(求助斑竹)真的好困惑,为什么求外轮廓的周长就不行呢

luckyliya

以下是求面域周长的代码,求内轮廓都行,但为什么求外轮廓的周长就不行呢?

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

mccad

边界生成时，按照你的程序，如果点的一个点中可生成多个边界，而程序只读取最后生成的那个边界。所有总会有问题。

你需要在生成边界前保存当前空间的图元数量，然后通过边界命令后检查新生成了多少个图元，分别读取这些图元的属性就OK。