VBA CAD 返回选择文字的ID

在VBA AutoCAD环境中，如果你想要获取用户选择的文字对象并返回它的ID，你需要使用` Acad SelectionSet` 和 ` Acad Document` 对象，以及 ` AcadObjectId` 类型。以下是一个简单的例子：

Sub GetSelectedTextId()
    Dim acadDoc As Autodesk.AutoCAD.ApplicationServices.Document
    Set acadDoc = ThisDrawing
    Dim selSet As Autodesk.AutoCAD.Runtime.SelectionSet
    Set selSet = acadDoc.SelectionSets(0) ' 获取当前图形的第一个选择集
    Dim objId As Autodesk.AutoCAD.DatabaseServices.ObjectId
    Dim textObj As Autodesk.AutoCAD.DatabaseServices.TextObject
    On Error Resume Next ' 添加错误处理以捕获可能的异常
    
    ' 检查是否有选择项
    If selSet.Count > 0 Then
        ' 循环遍历选择集
        For Each objId In selSet
            If objId.ObjectType = acDbText Then ' 判断是否为文字对象
                Set textObj = acadDoc.ModelSpace.GetObject(objId, False)
                Debug.Print "选择的文字对象ID：" & objId.Id ' 输出文字对象ID
            End If
        Next
    Else
        MsgBox "未选中文本对象."
    End If
    
    On Error GoTo 0 ' 离开错误处理模式
End Sub

在这个代码中，我们首先获取当前绘图的文档对象，然后从选择集中查找所有对象。如果是文本对象，我们就将其ID打印出来。