提取cad中多段线及块属性的vba源码

要提取CAD中多段线及块属性的VBA源码，你可以按照以下步骤进行编写：

1. 首先，使用AutoCAD打开相应的图纸文件。

2. 在VBA编辑器中创建一个新的模块，并命名为"ExtractAttributes"。

3. 在模块中声明变量和引用所需的对象库。

Option Explicit

4. 编写一个子过程，用于提取多段线和块的属性。

Sub ExtractAttributes()
    Dim doc As Document
    Dim selectionSet As SelectionSet
    Dim entity As AcadEntity
    
    ' 获取当前激活的文档对象
    Set doc = ThisDrawing
    
    ' 创建一个选择集对象
    Set selectionSet = doc.SelectionSets.Add("AttributesSelection")
    
    ' 使用选择集获取所有的多段线和块对象
    selectionSet.SelectOnScreen
    selectionSet.SelectByType acPolylines
    selectionSet.SelectByType acBlockReference
    
    ' 遍历选择集中的每个实体
    For Each entity In selectionSet
        Dim attributes As AcadBlockReference
        Dim att As AcadAttribute
        
        ' 如果是多段线
        If TypeOf entity Is AcadLWPolyline Then
            MsgBox "找到一个多段线"
            
            ' 在这里编写处理多段线的代码...
            
        ' 如果是块参照
        ElseIf TypeOf entity Is AcadBlockReference Then
            Set attributes = entity
            MsgBox "找到一个块参照：" & attributes.Name
            
            ' 遍历块参照中的属性
            For Each att In attributes.GetAttributes
                MsgBox "属性名：" & att.TagString & "，属性值：" & att.TextString
                
                ' 在这里编写处理属性的代码...
                
            Next att
        End If
    Next entity
    
    ' 清空选择集
    selectionSet.Clear
    doc.SelectionSets.Remove "AttributesSelection"
End Sub

5. 在主程序中调用这个子过程。

Sub main()
    Call ExtractAttributes
End Sub

6. 保存并关闭VBA编辑器。

现在，你可以在AutoCAD中执行这个VBA程序，通过选择多段线和块对象，提取它们的属性信息。你可以根据需要在代码中添加处理多段线和块属性的逻辑。