[VBA程序]：如何在VBA中将DWG整图平移坐标？

foxzz

其实是有两个问题
1、如何得到某个DWG的最左下角坐标和右上角坐标？
2、如何在VBA中将DWG整图平移坐标

请各位大侠指教
谢谢

efan2000

关于第一个问题，要使用系统变量，看看下面的说明。

efan2000

对于第二个问题，可以参照下面的程序。

2. 
   
3.   [FONT=courier new]
   
4. 
   
5. Sub Test()
   
6.     ' 创建选择集
   
7.     Dim ssetObj As AcadSelectionSet
   
8.     Set ssetObj = ThisDrawing.SelectionSets.Add("SSET")
   
9.    
   
10.     ' 选择所有实体
    
11.     Dim mode As Integer
    
12.     mode = acSelectionSetAll
    
13.     ssetObj.Select mode
    
14.    
    
15.     ' 定义移动的源点和目的点
    
16.     Dim point1(0 To 2) As Double
    
17.     Dim point2(0 To 2) As Double
    
18.     point1(0) = 0: point1(1) = 0: point1(2) = 0
    
19.     point2(0) = 2: point2(1) = 0: point2(2) = 0
    
20.         
    
21.     ' 移动选择集中的实体
    
22.     Dim i As Integer
    
23.     For i = 0 To ssetObj.Count - 1
    
24.         ssetObj(i).Move point1, point2
    
25.     Next
    
26. End Sub
    
27. 
    
28.   [/FONT]
    

<br />   [FONT=courier new]<br /> <br /> Sub Test()<br />     ' 创建选择集<br />     Dim ssetObj As AcadSelectionSet<br />     Set ssetObj = ThisDrawing.SelectionSets.Add("SSET")<br />     <br />     ' 选择所有实体<br />     Dim mode As Integer<br />     mode = acSelectionSetAll<br />     ssetObj.Select mode<br />     <br />     ' 定义移动的源点和目的点<br />     Dim point1(0 To 2) As Double<br />     Dim point2(0 To 2) As Double<br />     point1(0) = 0: point1(1) = 0: point1(2) = 0<br />     point2(0) = 2: point2(1) = 0: point2(2) = 0<br />         <br />     ' 移动选择集中的实体<br />     Dim i As Integer<br />     For i = 0 To ssetObj.Count - 1<br />         ssetObj(i).Move point1, point2<br />     Next<br /> End Sub<br /> <br />   [/FONT]<br />

foxzz

非常感谢
请问如何访问 第一个问题中的系统变量？


知道了，是setvariable/getvariable