当前位置:编程学习 > VB >>

VB提取CAD块属性

急、急、急,我现在能使用VB打开AutoCAD(2006),在模型空间划直线、圆。但是我不知道如何读取出此图形中属性块的各字段名后的属性值,图中属性块名"tdf",字段名"code"、"name"。请各位大虾指教,定给高分,不甚感激。 我的目的是编制一个软件,读取CAD图纸中的标题栏和明细表内容(不习惯用bom表),汇总生成“零部件明细表”、“外购件明细表”及其余各材料明细表。 我有分的。
答案:Dim myAcadApp As AutoCAD.AcadApplication, activeDoc As AutoCAD.AcadDocument, acMS As AutoCAD.AcadModelSpace
    Set myAcadApp = CreateObject("Autocad.Application")
  Set activeDoc = myAcadApp.ActiveDocument

Dim I%
    Dim entry As AcadEntity, blk1 As AcadBlockReference, att1 As AcadAttributeReference
    Dim varAttributes As Variant
    Dim strAttributes As String
    For Each entry In activeDoc.ModelSpace
         If entry.ObjectName = "AcDbBlockReference" Then
          Set blk1 = entry
          if blk1.name="?????" then'你的块名
		varAttributes = entry.GetAttributes
          strAttributes = ""
          For I = LBound(varAttributes) To UBound(varAttributes)
            Set att1 = varAttributes(I)
            strAttributes = strAttributes & "标记:" & att1.TagString & ",值:" & att1.TextString & "。"
            '自己想怎么用就怎么用^_^
          Next
	  end if          
        End If

    Next

上一个:求教vb大神啊
下一个:vb2005中在textbox中回车怎么会“咚”的一声?

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,