LISP用于将图形移动到0，

K Baden · 发表于 2022-7-5 17:02:09

最后一件事（对不起！！！！）如果没有找到对象，或者对象数超过2个，有没有办法让它优雅地结束命令？我们使用偏移和图案填充的塔，你可以看到在我上面的图纸，所以总是有2个圆或2个多段线的图层。有时，我们在一个站点上有多个塔楼。分层应该是正确的，但有时不是。

这是不是太过分了？

Lee Mac · 发表于 2022-7-5 17:02:49

也许是这样？
[code]（defun c:twrm（/ent len lst sel）（cond）（（null（setq sel（ssget“_X”）（（008。“塔”）（410。“模型”）（-04。“

K Baden · 发表于 2022-7-5 17:08:17

这太棒了。谢谢你们俩对这东西都很在行。我很感激！！！

[编程交流] LISP用于将图形移动到0，