选择多段线

Huibert · 发表于 2022-7-6 17:19:21

我在选择多段线时遇到错误（相同的代码适用于3dpolyline、line和arc）

    Dim Pick As Variant
   Dim Polyline As AcadPolyline
   ThisDrawing.Utility.GetEntity Polyline, Pick, vbCr & "Select the polyline"

我试图找到问题，但唯一发现的是，在选择多段线时，实体不是AcadPolyline类型。为什么？
如何选择多段线？

copy

    Dim Pick As Variant
Dim Polyline As AcadPolyline
   ThisDrawing.Utility.GetEntity Ent, Pick, vbCr & "Select the polyline"
If TypeOf Ent Is AcadPolyline Then
Set Polyline = Ent
End If

SEANT · 发表于 2022-7-6 18:05:31

Autodesk对各种多段线实体以及它们在应用程序和API上下文中的引用方式有点混淆。你的情况的底线是：

将LW多段线调整为ACADLW多段线
. . . .
如果Ent的类型为AcadLWPolyline，则
设置LWPolyline=Ent

Huibert · 发表于 2022-7-6 18:32:58

谢谢你的解决方案。该程序正常工作。

非常感谢你

休伯特

[编程交流] 选择多段线

发表回复

精选推荐