randyhuang 发表于 2004-4-15 15:32:00

求救！

请教各位大侠：


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

雪山飞狐_lzh 发表于 2004-4-15 18:09:00

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


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


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

randyhuang 发表于 2004-4-16 17:31:00

能否说得详细点？

雪山飞狐_lzh 发表于 2004-4-16 22:17:00

数据类型数组和数据数组相符示例：       Private hDataType(1) As Integer, hData(1) As Variant
       Private dDataType(6) As Integer, dData(6) As Variant
       hDataType(0) = 1001: hData(0) = strAppName
       hDataType(1) = 1000: hData(1) = oTable                           'TLCAD实体类型名
       dDataType(0) = 1001: dData(0) = "TABLEDEFINE"
       dDataType(1) = 1070: dData(1) = tUpToDown                     '文字方向
       dDataType(2) = 1070: dData(2) = 1                                     '行数
       dDataType(3) = 1070: dData(3) = 1                                     '列数
       dDataType(4) = 1000: dData(4) = ""                                 '表头
       dDataType(5) = 1040: dData(5) = 0                                     '表头高
       dDataType(6) = 1070: dData(6) = tLeftUp                         '插入点SetXData的示例：             pBlockObject.SetXData hDataType, hData
       pBlockObject.SetXData dDataType, dDataGetXData的示例：       pBlockObject.GetXData strAppName, indatatype1, indata1
       pBlockObject.GetXData "TABLEDEFINE", indatatype2, indata2
页: [1]
查看完整版本: 求救！