求助：如何获取每个选择集中每个对象自身在cad图纸中坐标值 ？
咨询一个问题：如何获取每个选择集中每个对象自身在cad图纸中坐标值有知道吗？麻烦给讲讲一下 谢谢 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
譬如这段代码 我是想分别输出选择集中的文本内容和文本自身的坐标值？
文本内容输出了，现在不知道咋输出文本自身的坐标值
每种对象的坐标属性都不一致，比如块参照是insertionPosition，文本是InsertionPoint，圆是center，标注文字坐标是TextPosition，等等。 谢谢
页:
[1]