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

tonyhuangg

vb 用2004object库如何得到文字信息 Dim acadapp As Object
Dim acaddoc As AcadDocument
Dim acadtxt As AcadText
'初始化CAD
On Error Resume Next
Set acadapp = GetObject(, "AutoCAD.application.16")
If Err Then
Err.Clear
Set acadapp = CreateObject("autocad.application.16")
If Err Then
MsgBox Err.Description
Exit Sub
End If
End If
Set acaddoc = acadapp.ActiveDocument (???acadapp没有提示对象，是怎么回事？）
Set acadtxt = acadapp.AcadText
acadapp.Visible = False
acaddoc.Open ("c:\1.dwg") Dim s As String
Dim i As Integer ？？？？（如何得到图中的一些文字信息，） ？？？？（如何关闭文档和关闭autocad2004） acaddoc.Close

雪山飞狐_lzh

Set acadtxt = acadapp.AcadText ？ 概念有点不清晰，你应该历遍当前文档的模型空间 建议先看看VBA的对象模型 http://www.vba.cn/object/acad2004/