我对VB熟悉，但对AUTOCAD VBA还是一知半解。。。求图内查找物料程序

'我在你的图上创建了3种属性快，名称分别为：
'“福瓶”——方框，“花瓶”——圆，“青花缸”——圆锥
'现在以“福瓶”为例子
Private Sub Demo()
    
    '先创建选择集，为了可以多次创建选择集应该删掉原来存在的选择集
    Dim i As Integer
    Dim SSet As AcadSelectionSet
    For i = 0 To ThisDrawing.SelectionSets.Count - 1
        If StrComp("X_SSET", ThisDrawing.SelectionSets.Item(i).Name, vbTextCompare) = 0 Then
            ThisDrawing.SelectionSets.Item(i).Delete
            Exit For
        End If
    Next
    Set SSet = ThisDrawing.SelectionSets.Add("X_SSET")
     '定义过滤表，做到精确选取
    Dim fType(2) As Integer
    Dim fDate(2) As Variant
    fType(0) = 0: fDate(0) = "INSERT"
    fType(1) = 2: fDate(1) = "福瓶"
    fType(2) = 66: fDate(2) = 1
    '到图纸中选择
    SSet.SelectOnScreen fType, fDate
    
    '遍历内容
    Dim Ent As AcadBlockReference
    Dim AttArry As Variant
    For i = 0 To SSet.Count - 1
        Set Ent = SSet.Item(i)
        AttArry = Ent.GetAttributes
        '应为我只定义一个属性，所以AttArry下标为0即可
        ThisDrawing.Utility.Prompt vbCrLf & "第 " & i + 1 & " 个属性块的值为：" & AttArry(0).TextString
    Next
    
End Sub

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:xjyy4iuabui.dwg 
下载次数:0  文件大小:107.82 KB  售价:2银币 [记录]
下载权限: 不限 以上或 Vip会员   [开通Vip]   [签到领银币]  [免费赚银币]