用于更改特定C语言的Lisp

kunekainen · 发表于 2022-7-5 22:57:19

你好；

我搜索了论坛和许多其他地方，但找不到我想要的。

我正在寻找一个非常简单的Lisp程序。我想用另一个对象更改图形中所有对象的颜色。例如，我想将所有红色对象（线条、文本、所有内容）更改为黄色。

我不懂autolisp编程。如果你能帮助我，我将不胜感激。

Tharwat · 发表于 2022-7-5 23:28:06

试试这个。。。

copy


(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)

kunekainen · 发表于 2022-7-5 23:42:52

这就是我想要的。非常感谢先生

Tharwat · 发表于 2022-7-5 23:57:33

不客气。

[编程交流] 用于更改特定C语言的Lisp

发表回复

精选推荐