求救！

randyhuang

请教各位大侠：


在VBA里可以用GETXDATA提取某图元的扩展数据，但若我修改了其中的某些数据后应该用哪个命令完成呢？我试过用SETXDATA是不行的。

雪山飞狐_lzh

绝对可以，要注意下列两个问题：


1、SETXDATA和GETXDATA的应用程序名要相同


2、数据类型数组和数据数组要相符

randyhuang

能否说得详细点？

雪山飞狐_lzh

数据类型数组和数据数组相符示例：

1.        Private hDataType(1) As Integer, hData(1) As Variant
2.        Private dDataType(6) As Integer, dData(6) As Variant
3.        hDataType(0) = 1001: hData(0) = strAppName
4.        hDataType(1) = 1000: hData(1) = oTable                           'TLCAD实体类型名
5.        dDataType(0) = 1001: dData(0) = "TABLEDEFINE"
6.        dDataType(1) = 1070: dData(1) = tUpToDown                     '文字方向
7.        dDataType(2) = 1070: dData(2) = 1                                     '行数
8.        dDataType(3) = 1070: dData(3) = 1                                     '列数
9.        dDataType(4) = 1000: dData(4) = ""                                   '表头
10.        dDataType(5) = 1040: dData(5) = 0                                     '表头高
11.        dDataType(6) = 1070: dData(6) = tLeftUp                         '插入点

复制代码

SetXData的示例：     

1.        pBlockObject.SetXData hDataType, hData
2.        pBlockObject.SetXData dDataType, dData

复制代码

GetXData的示例：

1.        pBlockObject.GetXData strAppName, indatatype1, indata1
2.        pBlockObject.GetXData "TABLEDEFINE", indatatype2, indata2

复制代码