[求助]关于getxdata的问题

tfod2000

我在程序中给一个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

完整一点的代码呢？

tfod2000

其实，我的目的是读出来扩展数据，刚才的代码是建立扩展数据的，以下是我读出的 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

Dim ckType,ckData

tfod2000

你真是神了。牛 牛         谢谢