求助 修改一段代码 按颜色移动改改只选颜色不移动

偶尔郁闷

1. (defun getcolor_sslist (color / ss slen i ss_list na col) (setq ss (ssget)) (setq slen (- (sslength ss) 1)) (setq i 0) (setq ss_list (ssadd)) (while (<= i slen) (setq na (ssname ss i)) (setq ent (entget na)) (cond ((setq col (cdr (assoc 62 ent)))) ((setq col (cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 ent))))) ) ) ) (if (= col color) (ssadd na ss_list) ) (setq i (+ i 1)) ) ss_list ) (defun c:ttttt () (setq color 1) (setq ss (getcolor_sslist color)) (command "._move" ss "") (princ) )
   
2. 
   

(defun getcolor_sslist (color / ss slen i ss_list na col) (setq ss (ssget)) (setq slen (- (sslength ss) 1)) (setq i 0) (setq ss_list (ssadd)) (while (<= i slen) (setq na (ssname ss i)) (setq ent (entget na)) (cond ((setq col (cdr (assoc 62 ent)))) ((setq col (cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 ent))))) ) ) ) (if (= col color) (ssadd na ss_list) ) (setq i (+ i 1)) ) ss_list ) (defun c:ttttt () (setq color 1) (setq ss (getcolor_sslist color)) (command "._move" ss "") (princ) )<br /> <br />

网上找的一段代码 选择红色并且移动 哪位大大帮忙改一下 只要选择颜色不要移动 谢谢先.

669423907

去掉这一句 (command "._move" ss "")

偶尔郁闷

669423907 发表于 2020-5-28 16:10
去掉这一句 (command "._move" ss "")

去掉了 不好用

G〆h

感觉整个代码有些问题，只对红色有用。不具有通用性。如果只高亮显示对象，把 (command "._move" ss "")改为(sssetfirst nil ss)就行了

偶尔郁闷

G〆h 发表于 2020-5-29 11:19
感觉整个代码有些问题，只对红色有用。不具有通用性。如果只高亮显示对象，把 (command "._move" ss "")改 ...

谢谢 可以了