vb and dwg 欲读取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
??
如果我知道某几个文字(如图框里的固定的几个内容,例如图号)的标记,如何根据标记来取自己想要的文字内容,这段代码如何写?
??
acaddoc.close