(求助斑竹)真的好困惑,为什么求外轮廓的周长就不行呢
以下是求面域周长的代码,求内轮廓都行,但为什么求外轮廓的周长就不行呢?Public Sub clist()
Dim pt As Variant
Dim spt As String
Dim i As Integer
pt = ThisDrawing.Utility.getpoint(, vbCrLf & "输入要计算周长对象的内部一点：")
spt = pt(0) & "," & pt(1)
ThisDrawing.SendCommand "-boundary" & vbCr & "a" & vbCr & "o" & vbCr & "r" & vbCr & vbCr & spt & vbCr & vbCr
If (ThisDrawing.GetVariable("LASTPROMPT")"已创建 0 个面域。") Then
MsgBox ThisDrawing.ModelSpace(ThisDrawing.ModelSpace.Count - 1).Perimeter
ThisDrawing.ModelSpace(ThisDrawing.ModelSpace.Count - 1).Delete
End If
End Sub
边界生成时，按照你的程序，如果点的一个点中可生成多个边界，而程序只读取最后生成的那个边界。所有总会有问题。
你需要在生成边界前保存当前空间的图元数量，然后通过边界命令后检查新生成了多少个图元，分别读取这些图元的属性就OK。
页:
[1]