请问我这个颜色选择为什么不能默认先选择的物体啊

tranney

修改了一下，可以修改线宽 为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
修改了一下，可以修改线宽 为bylayer ,本来还想修改个图层，线型，线宽全部bylayer的，算了，累了，大伙自己 ...

经测试，对高程点无效。