怎么给一个图元增加扩展属性

linghua111111

各位大神，请教一下如何给一个图元增加扩展属性，代码应该怎么写？

MZ_li

(entmod elist)

cytx2020zn

;; | ----------------------------------------------------------------------------
;; | XD_WriteX
;; | ----------------------------------------------------------------------------
;; | Function : Writes extended entity into an entity
;; | Argument : [e]       - entity name
;; |            [xdLst]   - list of data
;; |            [AppName] - Application Name (must be already registered)
;; | Return   : complete entity list is returned if (XD_WriteX ...) is successful,
;; |            else nil is returned
;; | Updated  : August 11, 1998
;; | Comment  : - Program can detect data types (STR, REAL,INT, LIST).
;; |            - Entitiy handles must be prefixed by a "#" sign
;; |              (eg. (XD_WriteX e (list "300XLCU" "#5DE")).
;; |            - 1010 group stores points, which is a list of 3 reals
;; |            - If you want to store a nested list, it should have {}
;; |            - as the first element of the list
;; | e-mail   : rakesh.rao@4d-technologies.com
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun XD_WriteX (ename xdLst AppName / entl xd)

(setq
        xd   (reverse (XD_WriteX@ xdLst))
        xd   (list -3 (cons AppName xd))
        entl (append (entget ename) (list xd))
)
(entmod entl)
entl
)

)
(defun XD_WriteX@ (xdLst / xd xd1 itm)

(setq xd '())
(foreach itm xdLst
        (cond
                ((and (= (type itm) 'LIST) (= (car itm) "{}"))
                        (setq
                                xd1 (cons (cons 1002 "}") (XD_WriteX@ (cdr itm)))
                                xd1 (append xd1 (list (cons 1002 "{")))
                                xd (append xd1 xd)
                        )
                )
                ((and (= (type itm) 'LIST) (= (length itm) 3))
                        (setq xd (cons (cons 1010 itm) xd))
                )
                ((and (= (type itm) 'STR) (= (substr itm 1 1) "#"))
                        (setq xd (cons (cons 1005 (substr itm 2)) xd))
                )
                ((= (type itm) 'STR)
                        (setq xd (cons (cons 1000 itm) xd))
                )
                ((= (type itm) 'INT)
                        (setq xd (cons (cons 1070 itm) xd))
                )
                ((= (type itm) 'REAL)
                        (setq xd (cons (cons 1040 itm) xd))
                )
        )
)
xd
)

CAD智能@未来

2. ;语法：
   
3. ;(ax:PUTXData Obj DATA)
   
4. ;参数：
   
5. ;obj:图元名
   
6. ;XDATA:扩展数据
   
7. ;如：  (("south" (1000 . "204201") (1040 . 1.0))
   
8. ;       ("AAAA" (1041 . 562.307)  (1000 . "aaaaa"))
   
9. ;       ("BBBB" (1000 . "bbbbbbb"))
   
10. ;       ("CCCC" (1041 . 752.569))
    
11. ;      )
    
12. ;示例：
    
13. ;(BF-PutXData myVlaObj '(("south" (1000 . "204201") (1040 . 1.0))))
    
14. ;说明：
    
15. ;对于图元上已经有的相同注册程序名的XDATA数据会覆盖
    
16. ;功能：把扩展数据附着到ACAD图元上
    
17. ;函数代码：
    
18. (defun BF-PutXData (Obj Data / dxf n i data_i temp1 appid)
    
19.   (setq dxf  (entget obj)
    
20.    N      (LENgth data)
    
21. i      0
    
22. data_i '(-3)
    
23.   )
    
24.   (repeat n
    
25.     (setq temp1  (nth i data)
    
26.    appid (car temp1)
    
27.    data_i (append data_i (list temp1))
    
28.    i  (1+ i)
    
29.     )
    
30.     (regapp appid)
    
31.     (entmod (append dxf (list data_i)))
    
32.   )
    
33. 
    
34. )

;语法：<br /> ;(ax:PUTXData Obj DATA) <br /> ;参数：<br /> ;obj:图元名<br /> ;XDATA:扩展数据<br /> ;如：  (("south" (1000 . "204201") (1040 . 1.0))<br /> ;       ("AAAA" (1041 . 562.307)  (1000 . "aaaaa"))<br /> ;       ("BBBB" (1000 . "bbbbbbb"))<br /> ;       ("CCCC" (1041 . 752.569))<br /> ;      )<br /> ;示例：<br /> ;(BF-PutXData myVlaObj '(("south" (1000 . "204201") (1040 . 1.0))))<br /> ;说明：<br /> ;对于图元上已经有的相同注册程序名的XDATA数据会覆盖 <br /> ;功能：把扩展数据附着到ACAD图元上 <br /> ;函数代码：<br /> (defun BF-PutXData (Obj Data / dxf n i data_i temp1 appid)<br />   (setq dxf  (entget obj)<br />    N      (LENgth data)<br /> i      0<br /> data_i '(-3)<br />   )<br />   (repeat n<br />     (setq temp1  (nth i data)<br />    appid (car temp1)<br />    data_i (append data_i (list temp1))<br />    i  (1+ i)<br />     )<br />     (regapp appid)<br />     (entmod (append dxf (list data_i)))<br />   )<br /> <br /> )

paulpipi

感谢各位分享，研究一下