Question

cad加开图层lisp语句谢谢？

找了好几个现成的软件开始用都好的，用着用着就权限了，只有自己劳动了，百度了下，可是。比如原来的图层有五个12345，我现在只开了一个1图层，我想加开5图层，lisp怎么写，求大仙告知？？

Answer 1

(DEFUN SUB_CHK_LAYER1 (layername COLOR / );;;;;;;;;;检测图层是否存在,若不存在,新建一个图层.(提供图层名 图层color)
(SETVAR "CMDECHO" 0)
(SETQ CHKLAY (TBLSEARCH "LAYER" layername))
(IF (= CHKLAY NIL)
(vl-cmdf "LAYER" "N" layername "C" (itoa COLOR) layername "");;;不能用COMMAND

)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(DEFUN C:TE ();;;;;;;;;;;;;;;;;;;;;
(SUB_CHK_LAYER1 "1" 1 );
(SUB_CHK_LAYER1 "2" 2);
(SUB_CHK_LAYER1 "3" 3);
(SUB_CHK_LAYER1 "4" 3);
(SUB_CHK_LAYER1 "5" 5);
)
(PROMPT "***C:TE***生成图层* ****")
(PRIN1)