ymcui 发表于 2014-5-24 09:46:57

如何框选所有物体过滤不同的物体改变其颜色

本帖最后由 ymcui 于 2014-5-24 09:49 编辑

如图框选所有直线和文字,直线颜色变成红色,文字颜色变成黄色.谢谢(defun c:TT()
(setq ss (ssget))
      (if (= t1 "TEXT")
(PROGN
(COMMAND "CHPROP" ?? "" "Color" "2" "" )
)
)
      (if (= t1 "LINE")
)
(COMMAND "CHPROP" ?? "" "Color" "1" "" )
)
)
)

xyp1964 发表于 2014-5-24 10:02:57

(defun c:tt ()
(setq ss (ssget '((0 . "text,line"))))
(setq ss1 (ssget "p" '((0 . "text"))))
(command "chprop" ss1 "" "color" "2" "")
(command "select" ss "")
(setq ss1 (ssget "p" '((0 . "line"))))
(command "chprop" ss1 "" "color" "1" "")
(princ)
)

ymcui 发表于 2014-5-24 13:37:10

xyp1964 发表于 2014-5-24 10:02 static/image/common/back.gif


感谢xyp1964 的帮助,谢谢
页: [1]
查看完整版本: 如何框选所有物体过滤不同的物体改变其颜色