;;example
'("ARSTAIR" "ARPARTITION" "ARWOOD" "ARFURNITURE""ARWINDOW" )
'("A-Flor-Strs" "A-Flor-Tptn" "A-Flor-Wdwk" "A-Furn" "A-Glaz")
)
'(
("A-Flor-Strs" 1 "Continuous" 0.13 T 0 "A-Flor-Strs")
("A-Flor-Tptn" 20 "HIDDEN" 0 T 0 "A-Flor-Tptn")
("A-Flor-Wdwk" 3 "Continuous" 0 T 0 "A-Flor-Wdwk")
("A-Furn" 8 "Continuous" 0 T 0 "A-Furn")
("A-Glaz" 5 "Continuous" 0 T 0 "A-Glaz")
)
)
;;function to rename a layer.
;;if old layer exists, and new layer doesn't exist, the old layer is simply renamed.
;;if old layer exists, and new layer is already there, it takes everything on old layer and puts them on new layer.
;;if old layer doesn't exist, it does nothing.
(defun renlay
(ol nl
/ ss i ent
) )
)
)
)
)
)
)
(defun lyrmk
(Nme Col lTyp lWgt Plt trns dsc
/ lay lyrs cmd
) ;lee mac ;http://www.cadtutor.net/forum/showthread.php?36882-Check-create-layer-issue-in-Lisp&p=243520&viewfull=1#post243520
;(mdfy)
; (and lWgt (vla-put-LineWeight entVL (eval (read (strcat "acLnWt" lWgt)))))
(and lWgt
(vl-cmdf "_.-layer" "_LWeight" lWgt Nme
"")) (vl-cmdf "_.-layer" "_TR" trns Nme
"") )
; (and lWgt (vla-put-LineWeight entVL (eval (read (strcat "acLnWt" lWgt)))))
(and lWgt
(vl-cmdf "_.-layer" "_LWeight" lWgt Nme
"")) (vl-cmdf "_.-layer" "_TR" trns Nme
"")))
lTyp
"acad.lin")))