用于更改特定C语言的Lisp
你好；我搜索了论坛和许多其他地方，但找不到我想要的。
我正在寻找一个非常简单的Lisp程序。我想用另一个对象更改图形中所有对象的颜色。例如，我想将所有红色对象（线条、文本、所有内容）更改为黄色。
我不懂autolisp编程。如果你能帮助我，我将不胜感激。 试试这个。。。
(defun c:Test (/ ss sn i)
;; Tharwat 3.6.2014 ;;
(if (setq ss (ssget "_X" '((-4 . "<AND") (0 . "~VIEWPORT") (62 . 1) (-4 . "AND>"))))
(repeat (setq i (sslength ss))
(setq sn (ssname ss (setq i (1- i))))
(if (vlax-write-enabled-p (vlax-ename->vla-object sn))
(entmod (subst '(62 . 2) (assoc 62 (entget sn)) (entget sn)))
)
)
)
(princ)
)(vl-load-com)
这就是我想要的。非常感谢先生 不客气。
页:
[1]