(DEFUN CHANGE-LAYER-NAME-AND-COLOR (/
ACAD-OBJ
ADOC
COLOR
ITEM
ITEM-LAYER
ITEM-OBJ
LAYER-COLL
MODEL
NEWLAYER
NEWLAYER-NAME
)
(VL-LOAD-COM)
(SETQ ACAD-OBJ (VLAX-GET-ACAD-OBJECT)) ;_ el programa ACAD
(SETQ ADOC (VLA-GET-ACTIVEDOCUMENT ACAD-OBJ)) ;_ el DWG que esta abierto-
(SETQ MODEL (VLA-GET-MODELSPACE ADOC))
(SETQ LAYER-COLL (VLA-GET-LAYERS ADOC))
(PRINC "\n you pick an existing item")
(SETQ ITEM (SSNAME (SSGET "_:S+.") 0))
;;you pick an existing item
(SETQ ITEM-LAYER (CDR (ASSOC 8 (ENTGET ITEM)))) ; item's layer name
(SETQ ITEM-OBJ (VLAX-ENAME->VLA-OBJECT ITEM)) ;item as VL object
(SETQ NEWLAYER-NAME (STRCAT ITEM-LAYER "_XXX-CHANGED0")) ; the new layer name
(VL-CMDF "_-layer" "m" NEWLAYER-NAME "")
;;the new layer
(VLA-PUT-LAYER ITEM-OBJ NEWLAYER-NAME)
;; item at the new layer
(SETQ NEWLAYER (VLA-ITEM LAYER-COLL NEWLAYER-NAME))
(VLA-PUT-PLOTTABLE NEWLAYER :VLAX-TRUE)
(SETQ COLOR (ACAD_COLORDLG 3))
(VLA-PUT-COLOR ITEM-OBJ COLOR)
)