tonyhuangg 发表于 2004-9-21 11:22:00

vb 用2004object库如何得到文字信息

本帖最后由 作者 于 2004-9-21 17:04:11 编辑 <br /><br /> vb 用2004object库如何得到文字信息



Dim acadapp As Object<BR>Dim acaddoc As AcadDocument<BR>Dim acadtxt As AcadText<BR>'初始化CAD<BR>On Error Resume Next<BR>Set acadapp = GetObject(, "autocad.application.16")<BR>If Err Then<BR>               Err.Clear<BR>               Set acadapp = CreateObject("autocad.application.16")<BR>If Err Then<BR>               MsgBox Err.Description<BR>Exit Sub<BR>End If<BR>End If<BR>Set acaddoc = acadapp.ActiveDocument       (???acadapp没有提示对象，是怎么回事？）<BR>Set acadtxt = acadapp.AcadText<BR>acadapp.Visible = False<BR>acaddoc.Open ("c:\1.dwg")


Dim s As String<BR>Dim i As Integer


？？？？（如何得到图中的一些文字信息，）


？？？？（如何关闭文档和关闭autocad2004）


acaddoc.Close

雪山飞狐_lzh 发表于 2004-9-21 12:21:00

本帖最后由 作者 于 2004-9-21 12:44:21 编辑 <br /><br /> Set acadtxt = acadapp.AcadText



？


概念有点不清晰，你应该历遍当前文档的模型空间


建议先看看VBA的对象模型


<A href="http://www.vba.cn/object/acad2004/" target="_blank" >http://www.vba.cn/object/acad2004/</A>
页: [1]
查看完整版本: vb 用2004object库如何得到文字信息