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

luckyliya · 发表于 2006-3-28 13:43:00

以下是求面域周长的代码,求内轮廓都行,但为什么求外轮廓的周长就不行呢?
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 · 发表于 2006-3-28 17:56:00

边界生成时，按照你的程序，如果点的一个点中可生成多个边界，而程序只读取最后生成的那个边界。所有总会有问题。
你需要在生成边界前保存当前空间的图元数量，然后通过边界命令后检查新生成了多少个图元，分别读取这些图元的属性就OK。

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

发表回复

精选推荐