(defun C:XX()
(SETQ ENT(CAR(ENTSEL”nSelect One ENTITY to Set CURRENT LAYER, COLOR & LINETYPE into :”)))
(SETQ XX(ENTGET ENT))
(SETLAY(CDR(ASSOC 8 XX)))
(IF(=(ASSOC 6 XX)NIL)
(COMMAND”LINETYPE””S””BYLAYER”””)
(COMMAND”LINETYPE””S”(CDR(ASSOC 6 XX))””))
(IF(=(ASSOC 62 XX)NIL)
(COMMAND”COLOR””BYLAYER”)
(COMMAND”COLOR”(CDR(ASSOC 62 XX))))
(PRIN1))
공유