创建的第二组三维多段线

vanowm · 发表于 2022-7-5 19:58:12

你好

有人发布了一个函数，可以从点列表中绘制三维多段线：
此函数返回：
当我尝试使用此函数向组中添加两条三维多段线时：
它不起作用（选择一个多边形不会自动选择另一个），因为我认为draw3dpoly函数不会返回正确的实体。
如果我在函数末尾取消注释3dpylent，它将返回：

copy

<Entity name: 0>

测试：
有什么建议吗？

非常感谢。

Commandobill · 发表于 2022-7-5 20:24:27

您可以查看此代码并对其进行修改。看起来您需要将组添加到字典：

copy

Lee Mac · 发表于 2022-7-5 20:37:01

使用Visual LISP的ActiveX方法创建和操作组要容易得多，但是，如果您特别想寻找Vanilla AutoLISP解决方案，请尝试以下方法：
然而，据我所知，使用Vanilla AutoLISP不可能创建匿名组。

如果您希望使用Visual LISP，则以下内容应足够（使用上面的3dpoly函数）：

copy