求救，VBA文字添加遇到的难题

呼吸的鱼

      我在看AutoCAD VBA 开发精彩实例教程一书的第四章，工程样板一节中，介绍了两个添加文字的函数，第二个函数我实在是看不懂它的意思，请哪位高手帮忙解疑。下面是函数的代码

Public DataType(0 To 1) As Integer
Public Data(0 To 1) As Variant
'添加扩展数据
Public Function SetXdata(ByVal objText As AcadText, ByVal strText As String)
    DataType(0) = 1001: Data(0) = "Template"
    DataType(1) = 1000: Data(1) = strText
   
    objText.SetXdata DataType, Data
   
End Function
我很想知道这里  DataType，Data是什么意思，作用如何

呼吸的鱼

请问各位谁知道，麻烦告诉我啊，我现在很着急想弄明白这个问题

xinghesnak

扩展数据我也不是很懂，我觉得Data表示存入的数据，datatype表示存入的数据类型对应的DXF组码，多个这样的组合构成一个数据的数组存入扩展数据。这个和Selection过滤条件是一样的

1000     扩展数据中的 ASCII 字符串（最多可以包含 255 个字节）
1001     扩展数据的注册应用程序名（最多可以包含 31 个字节的 ASCII 字符串）

你如果想添加别的数据（例如整数，图层），必须找到相应的数据类型组码码，而不能随意写一个（例如1002     2132131）， 不知道我解释清楚没有，呵呵！ 

wyj7485

参考:http://www.mjtd.com/object/acad2004/

呼吸的鱼

非常感谢你们，看到帖子，对于VBA在这方面我明白了一些，我刚刚接触VBA，以后有什么不懂得，还得请你们多指教啊。

我接触的VBA材料有限，像3楼说的相应的数据类型组码，我都不知道去哪查，只能在书中的例子里看到一些。请问这些码有系统的资料吗？

呼吸的鱼

非常感谢四楼提供的资料。以后请多指教阿