|
发表于 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
请老师指点 |
|