（XD::Xrec:SetData）设置扩展记录数据

marting

1. (defun XD::Xrec:SetData (dict key data / xrec)
   
2.   (if (snvalid key)
   
3.     (progn
   
4.       (and (setq xrec (dictsearch dict key))
   
5.            (entdel (cdr (assoc -1 xrec)))
   
6.       )
   
7.       (dictadd
   
8.         dict
   
9.         key
   
10.         (entmakex
    
11.           (append
    
12.             (list '(0 . "XRECORD")
    
13.                   '(100 . "AcDbXrecord")
    
14.             )
    
15.             data
    
16.           )
    
17.         )
    
18.       )
    
19.     )
    
20.   )
    
21. )
    

(defun XD::Xrec:SetData (dict key data / xrec)<br />   (if (snvalid key)<br />     (progn<br />       (and (setq xrec (dictsearch dict key))<br />            (entdel (cdr (assoc -1 xrec)))<br />       )<br />       (dictadd<br />         dict<br />         key<br />         (entmakex<br />           (append<br />             (list '(0 . "XRECORD")<br />                   '(100 . "AcDbXrecord")<br />             )<br />             data<br />           )<br />         )<br />       )<br />     )<br />   )<br /> )<br />

yoyoho

marting你好！XD::Xrec:SetData涵数如何使用啊？有
范例吗？