求助：如何获取每个选择集中每个对象自身在cad图纸中坐标值？

syx2014 · 发表于 2014-9-15 16:49:00

咨询一个问题：如何获取每个选择集中每个对象自身在cad图纸中坐标值

syx2014 · 发表于 2014-9-15 16:49:00

有知道吗？麻烦给讲讲一下谢谢

syx2014 · 发表于 2014-9-15 16:53:00

Dim SS1 As AcadSelectionSet
Dim mode As Integer
Dim FilterType(0) As Integer
Dim FilterData(0) As Variant
FilterType(0) = 0                                  '按类型选择
FilterData(0) = "TEXT"                            '选择TEXT
On Error GoTo ErrorHandle                            '错误处理，出错时跳转到最后删除选择集
Set SS1 = acadDoc.SelectionSets.Add("selectset1") '添加空选择集
SS1.SelectOnScreen FilterType, FilterData          '用屏幕选择方法，向选择集添加对象
'-----------------------------------------------------------改为绿色
Open "zuobiao.txt" For Append As #1
ReDim Ents(SS1.Count) As String
For i = 0 To SS1.Count - 1

Ents(i) = SS1.Item(i).TextString


Print #1, "                "; Ents(i) & "    ";
Next

'对象处理
ErrorHandle:
acadDoc.SelectionSets.Item("selectset1").Delete    '删除选择集
Close #1

譬如这段代码我是想分别输出选择集中的文本内容和文本自身的坐标值？
文本内容输出了，现在不知道咋输出文本自身的坐标值