GJY 发表于 2005-1-31 15:50:00

非常感谢！但我的主要目的是提取该文件里块的属性。

非常感谢！但我的主要目的是提取该文件里块的属性。



如何在不打开DWG文件的情况下，提取该文件里块的属性？<BR>各位大虾：





我的程序用途：在成千上万张带有属性块的dwg图形中，通过一个小程序提取块属性。


请教在VBA里


1 如何在不打开DWG文件的情况下，提取该文件里块的属性，

雪山飞狐_lzh 发表于 2005-1-31 20:40:00

Sub ttw()<BR>                       Dim objDbx As AxDbDocument<BR>                       Dim i As AcadEntity<BR>                       Set objDbx = GetInterfaceObject("ObjectDBX.AxDbDocument")<BR>                       objDbx.Open "c:\1.dwg"<BR>                       For Each i In objDbx.ModelSpace<BR>                                                       If i.ObjectName = "AcDbBlockReference" Then<BR>                                                                                       If i.HasAttributes Then<BR>                                                                                                                       For Each j In i.GetAttributes<BR>                                                                                                                                                       MsgBox j.TextString<BR>                                                                                                                       Next j<BR>                                                                                       End If<BR>                                                       End If<BR>                       Next i<BR>End Sub<BR>

GJY 发表于 2005-2-1 19:12:00

非常感谢，到天津有事事先通知我!
页: [1]
查看完整版本: 非常感谢！但我的主要目的是提取该文件里块的属性。