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

syx2014

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

syx2014

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

syx2014

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


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

wangshuping42

每种对象的坐标属性都不一致，比如块参照是insertionPosition，文本是InsertionPoint，圆是center，标注文字坐标是TextPosition，等等。

syx2014

谢谢