mistri2000 发表于 2022-7-5 16:27:20

非常感谢，效果很好，只需要尝试在那里添加爆裂、过度杀戮和净化！如果有人能帮忙添加这个？

mistri2000 发表于 2022-7-5 16:35:09

非常感谢这项工作很好，只需要在那里得到爆发，过度杀戮和净化！希望有人能帮忙！

mistri2000 发表于 2022-7-5 16:37:58

感谢BIGAL尝试了这些，在一个lisp例程中使用它们时遇到了问题。

BIGAL 发表于 2022-7-5 16:43:14

粗略地说，只需将突发代码添加到Ronjonp代码的开头，然后在末尾添加清除。
 
更好的方法是将其制作成序列
 

(defun c:cleanmy ()

(if (not _objecttobylayer)(load "drawingbylayer")) ; loads ronjonp code

(while (setq ss (ssget "X" ))
(sssetfirst nil ss)
(C:Burst)
)

(c:drawingtobylayer) ; runs ronjonp code

; overkill goes here

(command "-purge" "all" "*" "n")
)
页: 1 [2]
查看完整版本: 清理archi的Lisp例程