VBA中如何获得CAD modelspace中坐标

ECTCAF

Hi every master,

我是VBA编程新手，现有一问题要向高手请教，VBA中如何获得AutoCAD modelspace中所有circle和块的中心坐标，

我试了很久，都没实现，不知道可以用什么方法实现？thanks.

 

mccad

使用选择集，选择圆和块。

如果是圆，则可直接读到圆心。

如果是块，则使用GetBoundingBox来取得对角点后计算中心点。

ECTCAF

谢谢版主的解答 ,

只不过我还是不知道用哪个命令来获取圆心，我的目的是这样的，我想遍历图形中所有的circle and block and polyline的中心位置，然后把它们中心坐标写到一个文本文件中去，不知道要用到哪几个command来实现，我买了版主二次开发的一本书，可书上也没有这方面的教材，还望版主不吝赐教。Thanks.

雪山飞狐_lzh

书上没有的找帮助

2. Sub Example_Center()
3.    
4.     Dim circObj As AcadCircle
5.     Dim currCenterPt(0 To 2) As Double
6.     Dim newCenterPt(0 To 2) As Double
7.     Dim radius As Double
8.    
9.     ' Define the initial center point and radius for the circle
10.     currCenterPt(0) = 20: currCenterPt(1) = 30: currCenterPt(2) = 0
11.     radius = 3
12.    
13.     ' Create the circle in model space
14.     Set circObj = ThisDrawing.ModelSpace.AddCircle(currCenterPt, radius)
15.     ZoomAll
16.     MsgBox "The center point of the circle is " & currCenterPt(0) & ", " & currCenterPt(1) & ", " & currCenterPt(2), vbInformation, "Center Example"
17.     ' Change the center point of the circle
18.     newCenterPt(0) = 25: newCenterPt(1) = 25: newCenterPt(2) = 0
19.     circObj.center = newCenterPt
20.     circObj.Update
21.    
22.     ' Query the results of the new center position
23.     ' Notice the output from the center property is a variant
24.     Dim centerPoint As Variant
25.     centerPoint = circObj.center
26.     MsgBox "The center point of the circle is " & centerPoint(0) & ", " & centerPoint(1) & ", " & centerPoint(2), vbInformation, "Center Example"
27. End Sub

Sub Example_Center()         Dim circObj As AcadCircle     Dim currCenterPt(0 To 2) As Double     Dim newCenterPt(0 To 2) As Double     Dim radius As Double         ' Define the initial center point and radius for the circle     currCenterPt(0) = 20: currCenterPt(1) = 30: currCenterPt(2) = 0     radius = 3         ' Create the circle in model space     Set circObj = ThisDrawing.ModelSpace.AddCircle(currCenterPt, radius)     ZoomAll     MsgBox "The center point of the circle is " & currCenterPt(0) & ", " & currCenterPt(1) & ", " & currCenterPt(2), vbInformation, "Center Example"     ' Change the center point of the circle     newCenterPt(0) = 25: newCenterPt(1) = 25: newCenterPt(2) = 0     circObj.center = newCenterPt     circObj.Update         ' Query the results of the new center position     ' Notice the output from the center property is a variant     Dim centerPoint As Variant     centerPoint = circObj.center     MsgBox "The center point of the circle is " & centerPoint(0) & ", " & centerPoint(1) & ", " & centerPoint(2), vbInformation, "Center Example" End Sub