清理archi的Lisp例程

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代码的开头，然后在末尾添加清除。

更好的方法是将其制作成序列

copy


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

[综合讨论] 清理archi的Lisp例程

发表回复

精选推荐