Lisp Divide的帮助，然后

MR MAN · 发表于 2022-7-6 14:18:29

我用LISP分割对象，然后插入块，如图所示，但有时会在插入块时停止，我不知道为什么会有任何帮助：

（定义c:DDV（）
（命令“DIVIDE”PAUSE“BLOCK”“MRMAN25”“Y”PAUSE）
（普林斯）
)

谢谢

stevsmith · 发表于 2022-7-6 14:29:44

为什么我在你Lisp程序的时候有个笑脸男人？？
这是故意的吗？

MR MAN · 发表于 2022-7-6 14:44:22

不，我没有从我的线程中删除它，但它会返回
我很抱歉这个错误

flowerrobot · 发表于 2022-7-6 14:53:19

simly让我笑了大约一分钟，
试试看

copy

(defun c:dv (/
ss sectionno blockname
)
(setq blockname "[color=#ff0000]MRMAN25[/color]")
(if (or (tblsearch "block" blockname) (findfile blockname))
(progn 
(while (not ss)
(setq ss (ssget "_:S" )))
(initget 7)
(setq sectionno (getint "\nHow segments do you want? :"))
(command "DIVIDE" ss "BLOCK" blockname "Y" sectionno))
(Alert "The Block in not in the drawing please insert it")))