zzcctt 发表于 2007-4-27 10:01:00

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

本帖最后由 作者 于 2007-4-27 10:04:58 编辑 <br /><br /> <p>用SetXdata写在物体里的数据,想删除掉一部分怎么办呀?</p><p>由于对扩展数据只有两个命令:getxdata和setxdata所以没办法删除?</p><p>请高手指点一下,谢谢.</p>

xinghesnak 发表于 2007-4-27 18:44:00

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

王咣生 发表于 2007-4-27 20:33:00

<p>Sub Example_SetXdata()</p><p><br/>&nbsp;&nbsp;&nbsp; Dim returnObj As AcadObject<br/>&nbsp;&nbsp;&nbsp; Dim basePnt As Variant<br/>&nbsp;&nbsp;&nbsp; </p><p>&nbsp;&nbsp;&nbsp; ThisDrawing.Utility.GetEntity returnObj, basePnt, "Select an object"</p><p><br/><font color="#ff0000">&nbsp;&nbsp;&nbsp; Dim DataType(0 To 0) As Integer<br/>&nbsp;&nbsp;&nbsp; Dim Data(0 To 0) As Variant</font><br/>&nbsp;&nbsp;&nbsp; Dim reals3(0 To 2) As Double<br/>&nbsp;&nbsp;&nbsp; Dim worldPos(0 To 2) As Double<br/>&nbsp;&nbsp;&nbsp; <br/><font color="#f70909">&nbsp;&nbsp;&nbsp; DataType(0) = 1001: Data(0) = "应用程序名"</font></p><p>&nbsp;&nbsp;&nbsp; returnObj.SetXData DataType, Data</p><p>&nbsp;&nbsp;&nbsp; <br/>End Sub</p><p>再调用一次SetXData,仅保留应用程序名,其它扩展数据项都去掉,</p><p>这样就删了.</p>

zzcctt 发表于 2007-4-29 22:40:00

<p>Dim DataType(0 To 7) As Integer<br/>Dim Data(0 To 7) As Variant</p><p>DataType(0) = 1001: Data(0) = "BC_NAME"<br/>DataType(1) = 1002: Data(1) = "{"<br/>DataType(2) = 1000: Data(2) = "BC_0001"<br/>DataType(3) = 1002: Data(3) = "}"<br/></p><p>DataType(4) = 1001: Data(4) = "BC_X_SIZE"<br/>DataType(5) = 1002: Data(5) = "{"<br/>DataType(6) = 1042: Data(6) = 150<br/>DataType(7) = 1002: Data(7) = "}"</p><p>比喻将上面的数据写到一个物体中,但是只想去掉下面的那组数据.</p><p>我试过了,将数据全部GETXDATA,然后只SETXDATA上面那组,再重新GETXDATA的时候,可是下面的那组并没去掉,还是全部有.</p><p><font color="#ff0000">想问一下高手,有没可以删除下面那组已经SETXDATA到物体里的数据.?????</font></p><p><font color="#0000ff">*******因为这样写数据,可以使用&nbsp;&nbsp; Object.GETXDATA "BC_NAME",Datatype,data&nbsp; 直接获得上组数据的值</font></p><p><br/></p>

lihengmin 发表于 2010-10-6 16:22:00

我寻找了很久了，唉，始终没找到，希望能得到回答   qq106130523
页: [1]
查看完整版本: 急急!!!!如果删除扩展数据XDATA中的部分数据