求助 修改一段代码 按颜色移动改改只选颜色不移动
(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) )网上找的一段代码 选择红色并且移动 哪位大大帮忙改一下 只要选择颜色不要移动 谢谢先.
去掉这一句 (command "._move" ss "") 669423907 发表于 2020-5-28 16:10
去掉这一句 (command "._move" ss "")
去掉了 不好用 感觉整个代码有些问题，只对红色有用。不具有通用性。如果只高亮显示对象，把 (command "._move" ss "")改为(sssetfirst nil ss)就行了 G〆h 发表于 2020-5-29 11:19
感觉整个代码有些问题，只对红色有用。不具有通用性。如果只高亮显示对象，把 (command "._move" ss "")改 ...
谢谢 可以了
页:
[1]