gestion des couleurs forcés avec les CTB

[Olivier Eckmann]

Bonjour,

 

avec ça tu devrais gagner du temps

(vl-load-com)
(defun C:CLCO2DU ( / I JEU ent vla-ent iColor sLayerName sLayerNewName)
 (setq JEU (ssget "x")  I 0)
 (repeat (sslength JEU)
(setq ent (ssname JEU I))
(setq I (1+ I))
(setq vla-ent (vlax-ename->vla-object ent))
(setq sLayerName (vla-get-layer vla-ent))
(setq iColor (vla-get-color vla-ent))
(if (/= iColor 256)
 	(progn
(setq sLayerNewName (strcat sLayerName "_" (itoa iColor)))
   	(if (not (tblsearch "LAYER" sLayerNewName))
       	(entmakex (list '(0 . "LAYER")
                       	'(100 . "AcDbSymbolTableRecord")
                       	'(100 . "AcDbLayerTableRecord")
                       	(cons 2 sLayerNewName)
                       	'(70 . 0)
                       	(cons 62  icolor)
                 	)
       	)
   	)
   	(vla-put-layer vla-ent sLayerNewName)
   	(vla-put-color vla-ent 256)
 	)
)
 )
)

 

Olivier