修改了一下，可以修改线宽 为bylayer ,本来还想修改个图层，线型，线宽全部bylayer的，算了，累了，大伙自己改吧，反正我也是自己改哦
;---------- 通用颜色切换代码 开始
(defun CC_chyanse (CC_yanse / CC_S)
(setvar "cmdecho" 0)
(cond
((= CC_yanse "0") (princ "\n---选择物体线宽变成 bylayer (随层)"))
((= CC_yanse "1") (princ "\n---选择物体颜色变成 1#(红色)"))
((= CC_yanse "2") (princ "\n---选择物体颜色变成 2#(黄色)"))
((= CC_yanse "3") (princ "\n---选择物体颜色变成 3#(绿色)"))
((= CC_yanse "4") (princ "\n---选择物体颜色变成 4#(兰色)"))
((= CC_yanse "5") (princ "\n---选择物体颜色变成 5#(蓝色)"))
((= CC_yanse "6") (princ "\n---选择物体颜色变成 6#(紫色)"))
((= CC_yanse "7") (princ "\n---选择物体颜色变成 7#(白色)"))
((= CC_yanse "8") (princ "\n---选择物体颜色变成 8#(灰色)"))
((= CC_yanse "9") (princ "\n---选择物体颜色变成 9#(灰白)"))
((= CC_yanse "bylayer") (princ "\n---选择物体颜色变成 bylayer (随层)"))
((= CC_yanse "byblock") (princ "\n---选择物体颜色变成 byblock (随块)"))
)
(while (setq CC_S (ssget))
(if (= cc_yanse "0")
(command "change" CC_S "" "p" "lw" "bylayer" "")
(command "change" CC_S "" "p" "c" CC_yanse "")
)
)
(princ)
)
(defun c:yw ()(CC_chyanse "0"))
(defun c:y1 ()(CC_chyanse "1"))
(defun c:y2 ()(CC_chyanse "2"))
(defun c:y3 ()(CC_chyanse "3"))
(defun c:y4 ()(CC_chyanse "4"))
(defun c:y5 ()(CC_chyanse "5"))
(defun c:y6 ()(CC_chyanse "6"))
(defun c:y7 ()(CC_chyanse "7"))
(defun c:y8 ()(CC_chyanse "8"))
(defun c:y9 ()(CC_chyanse "9"))
(defun c:y0 ()(CC_chyanse "bylayer"))
(defun c:yb ()(CC_chyanse "byblock"))
;---------- 通用颜色切换代码 结束 tranney 发表于 2014-10-7 16:55 static/image/common/back.gif
修改了一下，可以修改线宽 为bylayer ,本来还想修改个图层，线型，线宽全部bylayer的，算了，累了，大伙自己 ...
经测试，对高程点无效。
页:
1
[2]