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

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

本帖最后由 作者 于 2004-9-21 17:04:56 编辑 <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
页: [1]
查看完整版本: vb 用2004object库如何得到文字信息