多段线到圆

automicro · 发表于 2022-7-6 15:15:59

即使在砾石上开车也很有趣。
有砾石轮胎和GPS，带有非常delaljerad的地图
调查小型道路和地形

automicro · 发表于 2022-7-6 15:17:38

对不起，我不明白这是一个AutoCAD
突击队员，我以为你有别的意思
但现在我知道了，谢谢你的提示

Lee Mac · 发表于 2022-7-6 15:21:09

OVERKILL不随标准AutoCAD提供，但在Express Tools中提供。

CadTechJGC184 · 发表于 2022-7-6 15:24:05

好的好的，这个lisp能把一个圆变成一条多段线吗？我很困惑！我经常这样！哈哈哈

谢谢

Lee Mac · 发表于 2022-7-6 15:27:11

该LISP获取一条多段线，将其闭合，将其转换为一个区域，找到该区域的面积和质心，并创建一个以质心为中心的半径圆（sqrt（/pi））。然后删除该区域。

CadTechJGC184 · 发表于 2022-7-6 15:31:58

真的。。。这是一个强大的Lisp程序。然后你能把那个圆圈变成一个整体吗？我从来没能把一个圆变成一个整体。我对lisp例程有很多想法。我只是不知道如何创建一个。英雄联盟

Lee Mac · 发表于 2022-7-6 15:35:46

您需要为区域覆盖选择一条闭合多段线，所以不，LISP不起作用。。。

Lee Mac · 发表于 2022-7-6 15:38:01

也许是这样：

[code]（defunc:cwipe（[color][vlst ovar seg i cEnt cObj iPt ptLst）（[/color b][color=BLUE vl load com][color]）（[/color b][vlst([CMDECHO][OSMODE]ovar（[color=BLUE mapcar][color][/color b][getvar[color]vlst）（mapcar'setvar[color]vlst（00（[color=BLUE setq][color]seg（pi100[color]）[color]i-1[color]（如果[color]（和[color]（[color=BLUE setq][color]（[color=BLUE b]entsel“\n选择要擦除的圆：”（eq“AcDbCircle”（[color=BLUE vla get ObjectName][color]（[QcObj （vla objectcEnt（[color=BLUE progn color]（[color=BLUE b]（</p>

CadTechJGC184 · 发表于 2022-7-6 15:41:07

谢谢LeeMac，

我今天上班时会试试这个。

Lee Mac · 发表于 2022-7-6 15:44:58

该代码使用200个段，但如果需要，可以增加/减少该段。

[编程交流] 多段线到圆

发表回复

精选推荐