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

 
谢谢你的评论。
页: 1 [2]
查看完整版本: 非autocad lisp代码？