社区 › Auto Lisp › VB返回的顶点数

Jozi68 发表于 2022-7-6 12:54:08

VB返回的顶点数

有人知道如何返回qleader的顶点数吗？我需要一些VB代码。

SEANT 发表于 2022-7-6 13:12:34

我想你指的是VB。NET，在这种情况下，顶点的数量可以直接作为引线的属性。

Jozi68 发表于 2022-7-6 13:28:15

不，不幸的是，这是一个旧的VB6应用程序。我看到有一个GetVertexCount方法，但我不知道如何实现它（或者它是否相关）。
我有一个领导者选择集，但如果我引用一个不存在的vertext，就会出错，所以我需要知道有多少领导者。

SEANT 发表于 2022-7-6 13:43:27

啊，是的。在这种情况下，坐标属性可以提供垂直计数，即。，
 
 
Sub LeaderPtCount()
Dim varPkPt As Variant
Dim ent As AcadEntity
Dim entlead As AcadLeader
Dim varCoords As Variant
Dim intNumOfVerts As Integer


ThisDrawing.Utility.GetEntity ent, varPkPt, "Select a Leader: "

If TypeOf ent Is AcadLeader Then
Set entlead = ent
varCoords = entlead.Coordinates
intNumOfVerts = (UBound(varCoords) + 1) / 3
MsgBox "The selected leader has " & intNumOfVerts & " vertices."
End If

End Sub

Jozi68 发表于 2022-7-6 13:54:27

非常感谢肖特，它工作得像做梦一样。

查看完整版本: VB返回的顶点数