[VBA函数]：关于扩展数据不能读取的问题

ntchjie

Dim i As Integer
Dim sset As Object
Dim acadUtil As Object
Dim xdtype As Variant
Dim xdata As Variant
Dim xd As Variant
Dim appname As String
Dim entobj As Object

Call AcadOpen
Set AcadDoc = acadObj.ActiveDocument
Set MSpace = AcadDoc.ModelSpace
Set acadUtil = AcadDoc.Utility     'acadDoc must have been defined earlier
AppActivate "Autocad"
   
Set sset = AcadDoc.SelectionSets.Add("SS1")
sset.SelectOnScreen
i = 0
appname = "Test_Application"
For Each entobj In sset
    '提取数据
    magstr = ""
    i = 0
    entobj.GetXData appname, xdtype, xdata
    If VarType(xdtype) <> vbEmpty Then
        For Each xd In xdata
            msgstr = msgstr & vbCrLf & xdtype(i) & ":" & xd
            i = i + 1
        Next xd
    End If
    MsgBox msgstr
Next entobj


上面是一段vb程序，目的是获取再当前图形中所选择的物体的扩展数据并将显示，这段程序改编自一个别人的程序，可我总是无法获取物体的扩展数据，我知道原因，是appname = "Test_Application"
的原因，记得再一本书上看到的，应用程序再cad内需要注册名称的，我估计是名称的问题，不知道如何获得该名称。
我想获得dicad平面和纵断面文件的扩展数据以便对他进行进一步的改造，可以无法获得他的扩展数据。
不知道高手能不能指导指导

efan2000

将appname设置为""，就可以返回所有的扩展数据。

darkblue

二楼楼主说得不错，可是为什么要这样呢？能否解释得更清楚点，谢谢！

efan2000

如果appname不为空，则GetXData返回具体的某一应用程序名称的扩展数据，应用程序名称就是使用SetXData时所设置的，因而必须相同才可能读取到数据。如果为空，则返回所有的扩展数据。

ntchjie

多谢多谢。可以访问到，我发现也可以通过vlisp编译器获得选择物体的扩展属性，不过我发现向一些道路软件的扩展数据也不复杂，只是个 appname，其他的扩展属性都是一些本来就可以访问到的属性。

zhqchn

ntchjie ：
你在研究dicad？
这是我当年研究dicad的成果，用ARX写的一个程序，源代码全部公开，有兴趣的话拿去看看
dicad都是所有实体数据都是存放在xdata中的

http://www.xdcad.net/forum/showthread.php?threadid=172332

xunix

在命令行里输入：(entget(car(entsel))"("*")) 选择要查看的对象，就可以获取相应的信息。

ntchjie

最初由 zhqchn 发布
[B]ntchjie ：
你在研究dicad？
这是我当年研究dicad的成果，用ARX写的一个程序，源代码全部公开，有兴趣的话拿去看看
dicad都是所有实体数据都是存放在xdata中的

[url]http://www.xdcad.net/forum/showthread.ph... [/B]

多谢老兄，不过我没有学习过c，对arx编程一点都没有概念，只有自学的一点vb，dicad的xdata我基本上已经掌握了如何读取了。