tonyhuangg 发表于 2004-9-23 16:40:00

vb and dwg

欲读取dwg文件里的有关的文字信息


？的地方是出问题的位置，这段代码不知如何写（vb6）


Dim acadapp As AcadApplication<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>acadapp.Documents.Open ("C:\1.dwg")<BR>Set acaddoc = acadapp.ActiveDocument<BR>'acaddoc.Open ("c:\1.dwg")<BR>acadapp.Visible = False<BR>Dim s As String<BR>Dim i As Integer


Dim moSpace As Object                                                                                                                                                                                                                               ？（就是要读出dwg中textstring的内容）                <BR>Set moSpace = acaddoc.ModelSpace                                                       ？<BR>        Dim ent As AcadEntity<BR>        <BR>        For Each ent In moSpace                                                                                                                                                                                               ？<BR>               If ent.ObjectName = "acdbtext" Then                                       ？<BR>                                                               Debug.Print acadtxt.TextString                                                               ？<BR>               End If<BR>        Next<BR>                                                                                                                                                               


                                                                                                                                                                       <BR>                                                                                                                                                                       


<BR>acaddoc.close

zfbj 发表于 2004-9-23 18:56:00

你的具体需求是什么呢？

雪山飞狐_lzh 发表于 2004-9-23 22:30:00

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

tonyhuangg 发表于 2004-9-24 10:44:00

谢谢班组

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



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

雪山飞狐_lzh 发表于 2004-9-24 11:37:00

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

tonyhuangg 发表于 2004-9-24 16:16:00

我就想读到图框里图号的内容（有标记字），用cad2004，2002都可以打开，vb里用的2004的库。图框的例子有400多k，不能上传，发邮件给你。
页: [1]
查看完整版本: vb and dwg