[VBA程序]：请问vb中如何获得一个cad文件图形的尺寸

arleng

就是说这个文件中整个图形到底长多少，宽多少，这个数据有什么办法获得吗？

用于块插入的时候控制图形的排列

efan2000

用系统变量EXTMAX和EXTMIN分别获取图形范围右上角点的值和左下角点的值。
如：

1. 
   
2.   [FONT=courier new]
   
3. maxPt=ThisDrawing.GetVariable("EXTMAX")
   
4. minPt=ThisDrawing.GetVariable("EXTMIN")
   
5.   [/FONT]
   

复制代码

arleng

那这个文件作为块插入以后还能否获得该块的尺寸呢？

只能获得文件的尺寸好像还是不太方便

efan2000

插入到图纸中以后，AutoCAD就把它当做一个实体来对待了，这样就可以用实体对象的GetBoundingBox来获取左下角点和右上角点的坐标，这个方法对大多数的实体都有效。如下面的例子：

2. 
   
3.   [FONT=courier new]
   
4. Sub test()
   
5.     Dim BlockRefObj As AcadBlockReference
   
6.     '这里添加对其赋值的代码
   
7.     Dim minPt As Variant
   
8.     Dim maxPt As Variant
   
9.     BlockRefObj.GetBoundingBox minPt, maxPt
   
10. End Sub
    
11.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub test()<br />     Dim BlockRefObj As AcadBlockReference<br />     '这里添加对其赋值的代码<br />     Dim minPt As Variant<br />     Dim maxPt As Variant<br />     BlockRefObj.GetBoundingBox minPt, maxPt<br /> End Sub<br />   [/FONT]<br />