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

mayuezxl 发表于 2005-7-21 22:50:00

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

my_computer 发表于 2005-7-22 10:23:00

text.InsertionPoint

mayuezxl 发表于 2005-7-22 12:02:00

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

pphhbb1234 发表于 2006-7-28 19:39:00

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

fjfhgdwfn 发表于 2006-7-30 09:57:00

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 发表于 2006-7-30 13:45:00

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

fjfhgdwfn 发表于 2006-7-30 14:22:00

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

pphhbb1234 发表于 2006-7-30 15:51:00

太好了,<A name=88414>fjfhgdwfn</A>,我的QQ是48272190,我非常喜欢研究autocad vba

页: [1]

明经CAD社区's Archiver

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