general marko 发表于 2022-7-5 20:35:37

好的，比格尔先生。我会等的。再次感谢你帮助我。

general marko 发表于 2022-7-5 20:37:33

这是lisp例程将要做的事情的图片。通过选择闭合多段线，lisp将在其交点处插入圆，包括其端点。用户将定义圆的直径/半径。我还希望这将适用于生产线或系列生产线。再次感谢

BIGAL 发表于 2022-7-5 20:40:44

哇在线试试这个目前还没有测试没有cad
 


;original code by Jow Burke Autodesk forum
(defun c:circonpline ( / Y ptlist nlist pt rad)
(defun massoc (key alist / x nlist)
(foreach x alist
(if (eq key (car x))
(setq nlist (cons (cdr x) nlist))
)
)
(reverse nlist)
) ;end
(setq ptlist (massoc 10 (entget(car(entsel "pick pline")))))
(setq rad (getreal "\nEnter radius"))
(setq len (length ptlist))
(setq Y 0)

(repeat len
(setq pt (nth Y ptlist))
(Command "circle" pt Rad)
(setq Y (+ Y 1))
)
)
(c:circonpline)

general marko 发表于 2022-7-5 20:45:34

谢谢比格尔先生，但我很困惑，我应该合并你发布的第一个和第二个代码吗？不知道最终代码。对不起，刚刚开始学习。

BIGAL 发表于 2022-7-5 20:47:08

抱歉，只是从第二个代码的工作，我将测试很快，使工作找到了一个更短的方式来做这件事。

general marko 发表于 2022-7-5 20:51:10

非常感谢比格尔先生，不用说对不起。
我就等着。

BIGAL 发表于 2022-7-5 20:55:19

感谢您在上面等待代码，删除了第一个代码帖子

general marko 发表于 2022-7-5 20:55:59

是的，谢谢比格尔，代码成功了。但我可以再请你帮个忙吗？我希望在命令行中键入命令“circonpline”后，lisp能够正常工作。问题是，当我加载这个lisp例程时，它会自动运行lisp例程。你能再帮我一次吗？再次感谢比格尔爵士。

general marko 发表于 2022-7-5 21:02:03

比加尔先生，我已经为我想要的编辑了Lisp程序。幸运的是我拿到了。再次感谢您的代码。
 
当做
马尔科

BIGAL 发表于 2022-7-5 21:03:44

我们做了一些类似的事情，但在一次通过多个PLINE，这可以很容易地添加，所以只需要一个运行让我知道或有一个自己去使用SSGET
页: 1 [2]
查看完整版本: 在每个角落插入圆/