[VBA函数]：紧急求救，感谢感谢

tfod2000

我已经将自己的扩展数据添加到指定的图元中了，但是我不知道自己如何才能将它的信息反馈出来供自己使用。本人想做一个小程序
实现在单击右键后出现关于本图元的信息。不知道如何实现，望各位老师帮忙解决

雪山飞狐(lzh)

最好用双击事件做
Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)

End Sub
在上面的代码中加入处理过程
从ThisDrawing.PickfirstSelectionSet中获取双击的实体

tfod2000

老师，那么对于扩展数据读取时的语句如何写，就是我怎么才能得到我需要的东西，这些东西是存放在数组中吗？我按照什么顺序读才能找到自己需要的。

ntchjie

' 显示一个图形对象中的扩展数据
Sub DisplayXData()
    Dim objSelect As AcadEntity
    Dim basePnt As Variant
    ' 选择对象并判断类型
    On Error Resume Next
   
Retry:
    ThisDrawing.Utility.GetEntity objSelect, basePnt, "选择所要查看扩展数据的对象："
   
    ' 处理按下Esc键的错误
    If objSelect Is Nothing Then
        If CheckKey(VK_ESCAPE) = True Then
            Exit Sub
        Else
            GoTo Retry
        End If
    End If
   
    ' 处理未选择到实体的错误
    If Err <> 0 Then
        Err.Clear
        GoTo Retry
    End If
   
    Dim xDataType As Variant
    Dim xData As Variant
   
    objSelect.GetXData "", xDataType, xData
   
    If VarType(xData) < vbArray Then                ' 注意VarType函数的返回值
        Debug.Print "对象不包含扩展数据"
        Exit Sub
    End If
   
    ' 执行你的操作
    Debug.Print "Start"
    Dim number As Integer
    number = UBound(xData) - LBound(xData) + 1
    Dim i As Integer
    For i = 0 To number - 1
        Debug.Print xDataType(i) & ":" & xData(i)
    Next i
    Debug.Print "End" & vbCrLf
End Sub

雪山飞狐(lzh)

VarType(xData) < vbArray
最好用
Not IsArray(xData)
代替

ntchjie

不为数组，收到，感谢。