在 Auto CAD 中使用 VBA 编写可实现选择属性块后，自己选择要递增的属性的代码,注释要中文

以下是使用 VBA 在 AutoCAD 中编写实现选择属性块后递增属性的代码，附有中文注释：

Sub IncrementAttribute()
' 定义一个递增属性的子程序

    Dim objSelSet As AcadSelectionSet
    ' 定义选择集对象

    Dim objEntity As AcadEntity
    ' 定义实体对象

    Dim objBlkRef As AcadBlockReference
    ' 定义块引用对象

    Dim objAttDef As AcadAttributeDefinition
    ' 定义属性定义对象

    Dim objAttRef As AcadAttributeReference
    ' 定义属性引用对象

    Dim strPrompt As String
    ' 定义提示字符串

    Dim strTag As String
    ' 定义标签字符串

    Dim dblValue As Double
    ' 定义属性值

    strPrompt = "选择属性块: "
    ' 设置选择属性块时的提示信息

    strTag = "INSERT"
    ' 设置选择属性块时的标签信息

    Set objSelSet = ThisDrawing.SelectionSets.Add("MySelSet")
    ' 创建一个新的选择集

    objSelSet.SelectOnScreen, strPrompt, strTag
    ' 在屏幕上选择属性块

    For Each objEntity In objSelSet
    ' 遍历选择集中的实体对象

        If TypeOf objEntity Is AcadBlockReference Then
        ' 判断当前实体是否为块引用对象

            Set objBlkRef = objEntity
            ' 将实体对象转换为块引用对象

            For Each objAttRef In objBlkRef.AttributeReferences
            ' 遍历块引用对象中的属性引用对象

                Set objAttDef = objAttRef.AttributeDefinition
                ' 获取属性引用对象对应的属性定义对象

                If objAttDef.TagString = "INCREMENT" Then
                ' 判断属性定义对象的标签字符串是否为 "INCREMENT"

                    dblValue = CDbl(objAttRef.TextString)
                    ' 将属性值转换为浮点数

                    dblValue = dblValue + 1
                    ' 将属性值递增 1

                    objAttRef.TextString = CStr(dblValue)
                    ' 将属性值转换为字符串并赋值给属性引用对象

                End If

            Next objAttRef

        End If

    Next objEntity

    objSelSet.Delete
    ' 删除选择集

End Sub

这段代码实现了选择属性块后递增一个名为 "INCREMENT" 的属性值。