社区 › Auto Lisp › 多段线到圆

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

也许是这样：
 
（defunc:cwipe（）（）（[vlst(ovar（vlst）（mapcar'setvarvlst（00（seg（pi100）i-1（如果（和（（entsel“\n选择要擦除的圆：”（eq“AcDbCircle”（（cObj （vla objectcEnt（（（</p>

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

谢谢LeeMac，
 
我今天上班时会试试这个。

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

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

查看完整版本: 多段线到圆