请教如何计算下面图形的长宽

kinglau

请教如何计算此图形的长宽

kinglau

图形如上所示

麻烦指点一下,我编了个程序,就是计算每个图元的起点和终点,然后比较x 和y 坐标,分别取最大和最小值,但是得不到结果~

雪山飞狐_lzh

看看这里的GetBoundingBox方法
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=28869

kinglau

好象没什么帮助啊?

雪山飞狐_lzh

Public Sub tt()
GetBoundingBox d1, d2
MsgBox d2(0) - d1(0) & "," & d2(1) - d1(1)
End Sub

Public Sub GetBoundingBox(ByRef MinPoint, ByRef MaxPoint)
On Error Resume Next

     Dim i
     Dim d1, d2, p1, p2
    
    
     ThisDrawing.ModelSpace(0).GetBoundingBox d1, d2
    
     For i = 1 To Count - 1
    
         ThisDrawing.ModelSpace(i).GetBoundingBox p1, p2
        
         If p1(0) < d1(0) Then d1(0) = p1(0)
         If p1(1) < d1(1) Then d1(1) = p1(1)
         If p2(0) > d2(0) Then d2(0) = p2(0)
         If p2(1) > d2(1) Then d2(1) = p2(1)
        
     Next i
    
     MinPoint = d1
     MaxPoint = d2
End Sub

kinglau

谢谢,我在看看,呵呵

kinglau

非常感谢,其实是个很简单的问题，我犯糊涂了,弄出来了，谢谢了啊