解决autocad2006,2007中某个对象获取GeomExtents时，左下角坐标为0，0的方法

guohq

在AutoCAD2006,2007 用GeomExtents获取某个对象的左下角坐标时，总是0，0。下面给出在.net中调用com方法，以弥补arx.net在低版本中的不足。

使用前先添加引用 ：如下图



代码如下：

2. Sub TT()
   
3.         Dim ID As ObjectId = ED.GetEntity("选择一个对象:").ObjectId
   
4.         Dim cadapp As Autodesk.AutoCAD.Interop.AcadApplication = Application.AcadApplication
   
5.         Dim Ent As Autodesk.AutoCAD.Interop.Common.AcadEntity = cadapp.ActiveDocument.HandleToObject(ID.Handle.ToString)
   
6. 
   
7.         Dim ptMin As Object = Nothing, ptMax As Object = Nothing
   
8. 
   
9.         Ent.GetBoundingBox(ptMin, ptMax)
   
10. 
    
11.         ED.WriteMessage("x=" & ptMin(0).ToString & ",y=" & ptMin(1).ToString & vbCrLf)
    
12.         ED.WriteMessage("x=" & ptMax(0).ToString & ",y=" & ptMax(1).ToString & vbCrLf)
    
13. 
    
14.     End Sub

Sub TT()<br />         Dim ID As ObjectId = ED.GetEntity("选择一个对象:").ObjectId<br />         Dim cadapp As Autodesk.AutoCAD.Interop.AcadApplication = Application.AcadApplication<br />         Dim Ent As Autodesk.AutoCAD.Interop.Common.AcadEntity = cadapp.ActiveDocument.HandleToObject(ID.Handle.ToString)<br /> <br />         Dim ptMin As Object = Nothing, ptMax As Object = Nothing<br /> <br />         Ent.GetBoundingBox(ptMin, ptMax)<br /> <br />         ED.WriteMessage("x=" & ptMin(0).ToString & ",y=" & ptMin(1).ToString & vbCrLf)<br />         ED.WriteMessage("x=" & ptMax(0).ToString & ",y=" & ptMax(1).ToString & vbCrLf)<br /> <br />     End Sub

注：此代码只给出大概方法，没有添加选择对象为空时的判断，没有对xline、xray等对象判断！！！