非autocad lisp代码？

LibertyOne · 发表于 2022-7-6 06:27:12

^好的，抓取数据。。。

ReMark · 发表于 2022-7-6 06:31:50

塞普图拉：你真是太慷慨了。

sepultura · 发表于 2022-7-6 06:40:01

要使用lisp，只需下载Babacad1.3的beta预发布版本，点击http://www.babacad.com/bem .如果用户能给我发送一些关于新的lisp功能的反馈，那就太好了。这将帮助我更快地修复错误。谢谢

(defun chcolor (colr / ss en ind)
(setq ss (ssget))
(setq ind 0)
(while (setq en (entget (ssname ss ind)))
 (setq en (append en (list (cons 62 colr))))
 (entmod en)
 (setq ind (+ ind 1))
)
(princ)
)

sepultura · 发表于 2022-7-6 06:42:22

谢谢你的评论。

[编程交流] 非autocad lisp代码？

发表回复

精选推荐