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

呼吸的鱼 · 发表于 2006-6-14 10:38:00

我在看 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是什么意思，作用如何

呼吸的鱼 · 发表于 2006-6-14 15:48:00

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

xinghesnak · 发表于 2006-6-15 09:20:00

扩展数据我也不是很懂，我觉得Data表示存入的数据，datatype表示存入的数据类型对应的DXF组码，多个这样的组合构成一个数据的数组存入扩展数据。这个和Selection过滤条件是一样的
1000    扩展数据中的 ASCII 字符串（最多可以包含 255 个字节）
1001    扩展数据的注册应用程序名（最多可以包含 31 个字节的 ASCII 字符串）
你如果想添加别的数据（例如整数，图层），必须找到相应的数据类型组码码，而不能随意写一个（例如1002    2132131），不知道我解释清楚没有，呵呵！