56854365 发表于 2006-5-5 20:37:00

[VBA]求助一个关于cad扩展数据的问题

<P>怎么样把以前添加的AUTOCAD扩展数据更新成新的或删除</P>
<P>下面是网上找到的清除扩展数据的代码，我看不懂</P>
<P></P>
<P>void delXdata()<BR>{<BR>&nbsp;&nbsp;&nbsp; ads_name eNam;<BR>&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp; ads_point pt;<BR>&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp; int ret = acedEntSel ("\nselect an object:", eNam, pt);&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp; if ( ret!= RTNORM)&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp; { <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; return;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp; }<BR>&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp; AcDbObjectId ObjId;<BR>&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp; acdbGetObjectId(ObjId, eNam);<BR>&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp; AcDbEntity *pEnt;<BR><BR>&nbsp;&nbsp;&nbsp; acdbOpenAcDbEntity(pEnt, ObjId, AcDb::kForWrite);<BR><BR>&nbsp;&nbsp;&nbsp; resbuf *xdata = pEnt-&gt;xData(NULL);<BR><BR>&nbsp;&nbsp;&nbsp; if (xdata)<BR>&nbsp;&nbsp;&nbsp; {<BR>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; xdata-&gt;rbnext = NULL;<BR>&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pEnt-&gt;setXData(xdata);<BR>&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;acutRelRb(xdata);<BR>&nbsp;&nbsp;&nbsp; }<BR>&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp; pEnt-&gt;close();<BR>}</P>
页: [1]
查看完整版本: [VBA]求助一个关于cad扩展数据的问题