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

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

<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 我在看AutoCAD VBA 开发精彩实例教程一书的第四章，工程样板一节中，介绍了两个添加文字的函数，第二个函数我实在是看不懂它的意思，请哪位高手帮忙解疑。下面是函数的代码</P>
<P>Public DataType(0 To 1) As Integer<BR>Public Data(0 To 1) As Variant<BR>'添加扩展数据<BR>Public Function SetXdata(ByVal objText As AcadText, ByVal strText As String)<BR>&nbsp;&nbsp;&nbsp; DataType(0) = 1001: Data(0) = "Template"<BR>&nbsp;&nbsp;&nbsp; DataType(1) = 1000: Data(1) = strText<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; objText.SetXdata DataType, Data<BR>&nbsp;&nbsp;&nbsp; <BR>End Function<BR>我很想知道这里&nbsp; DataType，Data是什么意思，作用如何<BR></P>

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

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

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

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

wyj7485 发表于 2006-6-15 09:35:00

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

呼吸的鱼 发表于 2006-6-16 15:19:00

<P>非常感谢你们，看到帖子，对于VBA在这方面我明白了一些，我刚刚接触VBA，以后有什么不懂得，还得请你们多指教啊。</P>
<P>我接触的VBA材料有限，像3楼说的相应的数据类型组码，我都不知道去哪查，只能在书中的例子里看到一些。请问这些码有系统的资料吗？</P>

呼吸的鱼 发表于 2006-6-16 15:26:00

非常感谢四楼提供的资料。以后请多指教阿
页: [1]
查看完整版本: 求救，VBA文字添加遇到的难题