tfod2000 发表于 2004-11-15 09:48:00

[求助]关于getxdata的问题

我在程序中给一个text类附加了一组信息，这些信息由字符串，整性和实数组成，我想在下边的程序中用getxdata莱取出附加信息，但是每次返回的值都为空，我不知道怎么回事。我看帮助，但是里面值给出了为string形的代码，请各位大侠帮忙解决一下。给点代码。
unit3Type(0) = 1001: unit3Data(0) = "尺寸"
unit3Type(1) = 1071: unit3Data(1) = 3       '形状
unit3Type(2) = 1000: unit3Data(2) = tri_textp(0)       '单元所含的第一个节点
unit3Type(3) = 1000: unit3Data(3) = tri_textp(1)       '                                                                                       二
unit3Type(4) = 1000: unit3Data(4) = tri_textp(2)       '                                                                                       三
unit3Type(5) = 1000: unit3Data(5) = "n"                                                                               '                                                                                       四
unit3Type(6) = 1040: unit3Data(6) = tri_m               '                                                                                               实数                                                                       
unit3Type(7) = 1040: unit3Data(7) = tri_z '                                                                                       实数
text.SetXData unit3Type, unit3Data
text.updata

雪山飞狐_lzh 发表于 2004-11-15 10:12:00

完整一点的代码呢？

tfod2000 发表于 2004-11-15 10:22:00

其实，我的目的是读出来扩展数据，刚才的代码是建立扩展数据的，以下是我读出的
Dim chakan As AcadEntity
Dim point As AcadPoint
Dim tem_text As AcadText
Dim ckType(0 To 7) As Variant       ' 给应用程序预开数组
Dim ckData(0 To 7) As Variant '给附加的节点编号开数组
Dim number As Integer
ThisDrawing.Utility.GetEntity chakan, point, "请选择单元号"
If TypeName(chakan) = "IAcadText" Then
       Set tem_text = chakan
       tem_text.GetXData "", ckType, ckData
       If VarType(ckData) < vbArray Then ' 注意VarType函数的返回值
       MsgBox "对象不包含扩展数据"
       Else
       Dim i As I
number = UBound(ckData) - LBound(ckData) + 1
       For i = 0 To number - 1
       MsgBox CStr(ckType(i)) & i & ckData(i)
       Next i
       End If
请老师指点

雪山飞狐_lzh 发表于 2004-11-15 10:39:00

Dim ckType,ckData

tfod2000 发表于 2004-11-15 11:02:00

你真是神了。牛 牛         谢谢
页: [1]
查看完整版本: [求助]关于getxdata的问题