关于SetXData的问题

lgf727

在CAD中用SetXData方法对实体加扩展数据,第一次加进去后,然后想改变其值,想再用一次SetXData方法,可数据还是没变,不知是什么原因.

雪山飞狐_lzh

代码呢？

lgf727

代码: Dim SetObj As AcadLWPolyline
Dim DataType(0 To 1) As Integer
Dim Data(0 To 1) As Variant DataType(0) = 1001: Data(0) = "glass"
DataType(1) = 1000: Data(1) = "5g"
SetObj.SetXData DataType, Data 第一次现完后用此代码加入扩展数据,没问题,在运行过程中再用HandleToObject方法再引用此对像再用上面的代码重新对实体写数据,程序是能运行,可再访问数据时,仍然没变,实在不明白?

雪山飞狐_lzh

1001码在程序中值有改变么？

efan2000

新设的数据和原有的是相同的，当然看不出来了。DataType(1) = 1000: Data(1) = "5g"，修改它的内容，比如5g-5h，再设置一次。

lgf727

1001码和1000码值在程序中有改变,但写进去后还是没变,我用Update更新后还是一样.

雪山飞狐_lzh

1001码不能改，代表应用程序名

lgf727

这是完整的一段代码这样是不是不行? Sub test()
Dim Po(7) As Double
Dim LWPoLine As AcadLWPolyline
Dim DataType(0 To 1) As Integer
Dim Data(0 To 1) As Variant
Dim XTypeOut As Variant, XDateOut As Variant Po(0) = 0: Po(1) = 0
Po(2) = 20: Po(3) = 0
Po(4) = 20: Po(5) = 20
Po(6) = 0: Po(7) = 20
Set LWPoLine = ThisDrawing.ModelSpace.AddLightWeightPolyline(Po)
'第一次写入
DataType(0) = 1001: Data(0) = "5g"
DataType(1) = 1000: Data(1) = "true"
LWPoLine.SetXData DataType, Data
LWPoLine.GetXData "", XTypeOut, XDataOut
MsgBox XTypeOut(0) & ";" & XDataOut(0) & vbCr & XTypeOut(1) & ";" & XDataOut(1)
'改变值重新写入,读出的值没变
DataType(0) = 1001: Data(0) = "5g_5h"
DataType(1) = 1000: Data(1) = "true"
LWPoLine.SetXData DataType, Data
LWPoLine.Update
LWPoLine.GetXData "", XTypeOut, XDataOut
MsgBox XTypeOut(0) & ";" & XDataOut(0) & vbCr & XTypeOut(1) & ";" & XDataOut(1)
End Sub

lgf727

lzh741206发表于2004-9-23 12:29:001001码不能改，代表应用程序名

果然如此,1001码的值不能改.只能改1000的值,不知为何?

雪山飞狐_lzh

1001码代表应用程序名，其他的如1000码、1002码等是这个应用程序下的值，如果你装了ET工具，调用xdlist命令就一目了然了