Question

劳烦帮我增加cad的LISP程序功能，原来程序如下，能不能添加一栏，把dote图层改为250号颜色，谢谢·

(defun C:dt() ;
(command "regenmode" "0" "") ;
(command "-layer" "c" "8" "*" "") ;
(command "-layer" "c" "3" "TEL,D-XCR,DIM-*,WIRE-电视,PUB_TAB,E-元件设备,AXIS,EQUIP-箱柜,EQUIP-*,ELEMENT,TEL_DIM,TEL_LEAD,TEL_SYMB,TEL_CABINET,LNGRID,SOCK-*,LIGHTNING" "") ;
(command "-layer" "c" "5" "CABLETRAY_DOTE,WIRE-消防电话,CABLETRAY_OTHER" "") ;
(command "-layer" "c" "20" "D-DQ,D-RD" "") ;
(princ "\n淡显完成")
)

Answer 1

(defun C:dt()  ;

(command "regenmode" "0" "") ;

(command "-layer" "c" "8" "*" "") ;

(command "-layer" "c" "3" "TEL,D-XCR,DIM-*,WIRE-电视,PUB_TAB,E-元件设备,AXIS,EQUIP-箱

柜,EQUIP-*,ELEMENT,TEL_DIM,TEL_LEAD,TEL_SYMB,TEL_CABINET,LNGRID,SOCK-*,LIGHTNING" "") ;

(command "-layer" "c" "5" "CABLETRAY_DOTE,WIRE-消防电话,CABLETRAY_OTHER" "") ;

(command "-layer" "c" "20" "D-DQ,D-RD" "") ;

(command "-layer" "c" "250" "DOTE" "") ;

(princ "\n淡显完成") 

)