Create Layer by Lisp

LAYER DXF

Help

 

Lineweight enum value

 

🔎 Lineweight enum value: Google 검색

 

(defun KM:LAYER_AREA_LWP ()
(command "_.linetype" "_load" "ACAD_ISO03W100" "acad.lin" "")
(setq Nme "AREA_LWP")
(setq Col 150)
(setq Ltyp "ACAD_ISO03W100")
(setq LWgt 50)
;
(entmake (list (cons 0 "LAYER")  
               (cons 100 "AcDbSymbolTableRecord")
               (cons 100 "AcDbLayerTableRecord")  
               (cons 2  Nme) 
               (cons 70 0)     
               (cons 62 Col) 
               (cons 6 Ltyp) 
;               (cons 290 Plt) ; If set to 0, do not plot this layer
               (cons 370 LWgt)))
(setvar "CLAYER" Nme)
(setvar "LWDISPLAY" 1)  ; Controls lineweights
(setvar "CELTSCALE" 20)  ; Sets the current object linetype scaling factor.
);defun