发几个操作XDATA的函数，操作XDATA不再害怕

vectra

先发代码，求优化注释说明以后再补充

1. (defun ace-reg-appid (name /)
   
2.   (if (null (tblsearch "APPID" name))
   
3.     (regapp name)
   
4.   )
   
5. )
   
6. 
   
7. (defun ace-xdata-get (ename appid /)
   
8.   (if (= "*" appid)
   
9.     (cdr (assoc '-3 (entget ename (list appid))))
   
10.     (cdr (assoc appid (cdr (assoc '-3 (entget ename (list appid))))))
    
11.   )
    
12. )
    
13. 
    
14. (defun ace-xdata-set (ename appid data / code data-3 data-old data-app)
    
15.   (setq        code         (entget ename (list "*"))
    
16.         data-3         (assoc '-3 code)
    
17.         data-app (append (list appid) data)
    
18.   )
    
19. 
    
20.   (if (null data-3)
    
21.     ;; 不存在扩展数据时添加
    
22.     (setq code (append code (list (list -3 data-app))))
    
23. 
    
24.     (if        (setq data-old (assoc appid (cdr data-3)))
    
25.       ;; 扩展数据中已存在APPID项, 仅在内容不同时才进行替换
    
26.       (if (not (equal data-app data-old))
    
27.         (setq code (subst (subst data-app data-old data-3) data-3 code))
    
28.       )
    
29. 
    
30.       ;; 在扩展数据中加入新项
    
31.       (setq code (subst (append data-3 (list data-app)) data-3 code))
    
32.     )
    
33.   )
    
34. 
    
35.   (entmod code)
    
36. )
    
37. 
    
38. 
    
39. (defun ace-xdata-remove        (ename appid / code data-3 data-old)
    
40.   (setq        code   (entget ename (list "*"))
    
41.         data-3 (assoc '-3 code)
    
42.   )
    
43. 
    
44.   (if (and data-3 (setq data-old (assoc appid (cdr data-3))))
    
45.     (progn
    
46.       (setq
    
47.         code (subst (subst (list appid) data-old data-3) data-3 code)
    
48.       )
    
49.       (entmod code)
    
50.     )
    
51.   )
    
52. )
    

(defun ace-reg-appid (name /)<br />   (if (null (tblsearch "APPID" name))<br />     (regapp name)<br />   )<br /> )<br /> <br /> (defun ace-xdata-get (ename appid /)<br />   (if (= "*" appid)<br />     (cdr (assoc '-3 (entget ename (list appid))))<br />     (cdr (assoc appid (cdr (assoc '-3 (entget ename (list appid))))))<br />   )<br /> )<br /> <br /> (defun ace-xdata-set (ename appid data / code data-3 data-old data-app)<br />   (setq        code         (entget ename (list "*"))<br />         data-3         (assoc '-3 code)<br />         data-app (append (list appid) data)<br />   )<br /> <br />   (if (null data-3)<br />     ;; 不存在扩展数据时添加<br />     (setq code (append code (list (list -3 data-app))))<br /> <br />     (if        (setq data-old (assoc appid (cdr data-3)))<br />       ;; 扩展数据中已存在APPID项, 仅在内容不同时才进行替换<br />       (if (not (equal data-app data-old))<br />         (setq code (subst (subst data-app data-old data-3) data-3 code))<br />       )<br /> <br />       ;; 在扩展数据中加入新项<br />       (setq code (subst (append data-3 (list data-app)) data-3 code))<br />     )<br />   )<br /> <br />   (entmod code)<br /> )<br /> <br /> <br /> (defun ace-xdata-remove        (ename appid / code data-3 data-old)<br />   (setq        code   (entget ename (list "*"))<br />         data-3 (assoc '-3 code)<br />   )<br /> <br />   (if (and data-3 (setq data-old (assoc appid (cdr data-3))))<br />     (progn<br />       (setq<br />         code (subst (subst (list appid) data-old data-3) data-3 code)<br />       )<br />       (entmod code)<br />     )<br />   )<br /> )<br />

Sample

_$ (ace-reg-appid "T1")
"T1"
_$ (ace-reg-appid "T2")
"T2"
_$ (ace-xdata-set (handent "1BB") "T1" '((1000 . "Text")(1000 . "More Text...")))
...
_$ (ace-xdata-get (handent "1BB") "T1")
((1000 . "Text") (1000 . "More Text..."))
_$ (ace-xdata-set (handent "1BB") "T2" '((1070 . 10)))
...
_$ (ace-xdata-get (handent "1BB") "T2")
((1070 . 10))
_$ (ace-xdata-get (handent "1BB") "*")
(("T1" (1000 . "Text") (1000 . "More Text...")) ("T2" (1070 . 10)))
_$ (ace-xdata-set (handent "1BB") "T2" '((1070 . 20)(1070 . 30)))
...
_$ (ace-xdata-get (handent "1BB") "T2")
((1070 . 20) (1070 . 30))
_$ (ace-xdata-remove (handent "1BB") "T2")
...
_$ (ace-xdata-get (handent "1BB") "*")
(("T1" (1000 . "Text") (1000 . "More Text...")))

weilu

请教一下楼主，用LDATA一样也能存储数据，而且读写更为简单，那么XDATA的优势是什么呢？

Zrrrrr

感觉很有用，很方便，只是现在天正的图元不能entmod，很讨厌

ashleytgg

非常改写楼主

阿霸jun

顶一个，先收下，谢谢！

品茗新秀

顶一个，先收下，谢谢

阿然

，收藏了

richine001

做啥用的哈

819534890

不错不错，正需要用到

流_星

收藏了

香田里浪人

顶一个，先收下，谢谢

dbqtju

正需要用到

434939575

谢谢老大，不知道怎么用的.