急急!!!!如果删除扩展数据XDATA中的部分数据

zzcctt

用SetXdata写在物体里的数据,想删除掉一部分怎么办呀?

由于对扩展数据只有两个命令:getxdata和setxdata所以没办法删除?

请高手指点一下,谢谢.

xinghesnak

哥哥，先提出来删掉一部分再写进去啊

王咣生

Sub Example_SetXdata()

    Dim returnObj As AcadObject
    Dim basePnt As Variant
   

    ThisDrawing.Utility.GetEntity returnObj, basePnt, "Select an object"

    Dim DataType(0 To 0) As Integer
    Dim Data(0 To 0) As Variant
    Dim reals3(0 To 2) As Double
    Dim worldPos(0 To 2) As Double
   
    DataType(0) = 1001: Data(0) = "应用程序名"

    returnObj.SetXData DataType, Data

   
End Sub

再调用一次SetXData,仅保留应用程序名,其它扩展数据项都去掉,

这样就删了.

zzcctt

Dim DataType(0 To 7) As Integer
Dim Data(0 To 7) As Variant

DataType(0) = 1001: Data(0) = "BC_NAME"
DataType(1) = 1002: Data(1) = "{"
DataType(2) = 1000: Data(2) = "BC_0001"
DataType(3) = 1002: Data(3) = "}"

DataType(4) = 1001: Data(4) = "BC_X_SIZE"
DataType(5) = 1002: Data(5) = "{"
DataType(6) = 1042: Data(6) = 150
DataType(7) = 1002: Data(7) = "}"

比喻将上面的数据写到一个物体中,但是只想去掉下面的那组数据.

我试过了,将数据全部GETXDATA,然后只SETXDATA上面那组,再重新GETXDATA的时候,可是下面的那组并没去掉,还是全部有.

想问一下高手,有没可以删除下面那组已经SETXDATA到物体里的数据.?????

*******因为这样写数据,可以使用   Object.GETXDATA "BC_NAME",Datatype,data  直接获得上组数据的值

lihengmin

我寻找了很久了，唉，始终没找到，希望能得到回答   qq106130523