vb and dwg

tonyhuangg

欲读取dwg文件里的有关的文字信息 ？的地方是出问题的位置，这段代码不知如何写（vb6） Dim acadapp As AcadApplication
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
acadapp.Documents.Open ("C:\1.dwg")
Set acaddoc = acadapp.ActiveDocument
'acaddoc.Open ("c:\1.dwg")
acadapp.Visible = False
Dim s As String
Dim i As Integer Dim moSpace As Object ？（就是要读出dwg中textstring的内容）
Set moSpace = acaddoc.ModelSpace ？
Dim ent As AcadEntity

For Each ent In moSpace ？
If ent.ObjectName = "acdbtext" Then ？
Debug.Print acadtxt.TextString ？
End If
Next


acaddoc.close

zfbj

你的具体需求是什么呢？

雪山飞狐_lzh

For Each ent In acaddoc.ModelSpace
If ucase(ent.ObjectName) = "ACDBTEXT" Then
Debug.Print ent.TextString
End If
Next

tonyhuangg

谢谢，还是新banzu有两刷子。



如果我知道某几个文字（如图框里的固定的几个内容，例如图号）的标记，如何根据标记来取自己想要的文字内容，这段代码如何写？

雪山飞狐_lzh

图框是做成什么形式？是块么？

tonyhuangg

我就想读到图框里图号的内容（有标记字），用cad2004，2002都可以打开，vb里用的2004的库。图框的例子有400多k，不能上传，发邮件给你。