如何用vba获取CAD图形中的文字及对应的坐标

mayuezxl

求救，如何用vba获取CAD图形中的文字及对应的坐标，谢谢各位了

my_computer

text.InsertionPoint

mayuezxl

谢谢你的指点，能否再说的详细点，多谢了

pphhbb1234

如何能够得到一个未知的AUTOCAD文件中的所有文字的坐标那?前提是文字不是通过该AUTOCAD VBA程序导入的.请各位大虾好的程序.AUTOCAD帮助里面都是先输入文字然后得到它的坐标,这对上面的问题是没用的.

fjfhgdwfn

sub main() 

Dim ssetObj As AcadSelectionSet
    Dim ssobj As AcadSelectionSet
    Dim CONUT As Integer
    CONUT = 0
    Count = ThisDrawing.SelectionSets.Count
     For i = 0 To Count - 1 '删除所有的选择集
    Set ssetObj = ThisDrawing.SelectionSets.Item(0)
      ssetObj.Delete
    Next i
  
   Dim sjx  As AcadSelectionSet
 
   Dim FilterType(1) As Integer
   Dim FilterData(1) As Variant
   Set sjx = ThisDrawing.SelectionSets.Add("sjx")
  
   FilterType(0) = 0
   FilterData(0) = "text" '是圆

   'FilterType(1) = 62
   'FilterData(1) = 10  '颜色是3

   FilterType(1) = 8
   FilterData(1) = "shuju"  '图层是0
  
     Dim mode As Integer
   mode = acSelectionSetAll
  sjx.Select mode, , , FilterType, FilterData

 Dim entry As AcadEntity

  Dim point As Variant

For Each entry In sjx

point = entry.InsertionPoint

msgbox point(0)

......

next entry

end sub

 

pphhbb1234

经过fjfhgdwfn大虾的程序测试,发现有不匹配的问题出现,point = entry.InsertionPoint提示MISPATCH,而且选择集程序中FILTER等都不明白具体含义?大虾能介绍一下吗?

fjfhgdwfn

应不会吧.我在用啊.我使用了过滤选择,留下QQ交流下了.我也是一个初学都.实际上帮助里都有的.多看看一般问题都可以解决的.

pphhbb1234

太好了,fjfhgdwfn,我的QQ是48272190,我非常喜欢研究autocad vba