给cad设置并查询扩展属性xdata——vba实现

cad图形设置扩展属性可采用vba插件实现，如下：

使用方法:cad命令行输入“vbaman”加载此插件，“vbarun”运行此插件，根据提示选对应的图形即可设置扩展属性。

扩展属性可根据自己需求输入。

部分代码如下：

Public Function creatsel(ByVal selname As String) As AcadSelectionSet
On Error Resume Next
Dim sel As AcadSelectionSet
  For i = 0 To ThisDrawing.SelectionSets.Count - 1
     Set sel = ThisDrawing.SelectionSets.Item(i)
     If StrComp(sel.Name, selname, 1) = 0 Then
        sel.Delete
        Exit For
     End If
  Next i
Set creatsel = ThisDrawing.SelectionSets.Add(selname)
End Function
Sub 设置查询多个扩展属性()
    Dim sel As AcadSelectionSet
    Set sel = creatsel("mysel")
    sel.SelectOnScreen
    Dim xdataout As Variant, xt