如何用lisp直接写入多个扩展属性

yhly555

如何用lisp直接写入多个扩展属性，如在程序名"SOUTH"中同时写入"111111"、"一"、"251"等。谢谢！

(-3 ("SOUTH" (1000 . "300000") (1000 . "111111") (1000 . "一") (1000
. "251")))

llsheng_73

1. (defun tt(e xdatas / ty app);;e为图元名或者有效的图元数据，xdatas扩展数据表((appname data data...)(appname data data...)...(appname data data...))
   
2.   (setq ty(type e)
   
3.         app(mapcar'car xdatas))
   
4.   (vl-every'regapp app)
   
5.   (if(member ty'(ename list))
   
6.     (entmod(append(if(= ty'ename)(entget e)e)
   
7.                   (list(cons -3(mapcar'(lambda(x)(cons(car x)
   
8.                                                       (mapcar'(lambda(x / ty)
   
9.                                                                 (cons(cond((=(setq ty(type x))'str)1000)
   
10.                                                                           ((= ty'real)1040)
    
11.                                                                           (t 1070))x))(cdr x))))xdatas)))))))

(defun tt(e xdatas / ty app);;e为图元名或者有效的图元数据，xdatas扩展数据表((appname data data...)(appname data data...)...(appname data data...))<br />   (setq ty(type e)<br />         app(mapcar'car xdatas))<br />   (vl-every'regapp app)<br />   (if(member ty'(ename list))<br />     (entmod(append(if(= ty'ename)(entget e)e)<br />                   (list(cons -3(mapcar'(lambda(x)(cons(car x)<br />                                                       (mapcar'(lambda(x / ty)<br />                                                                 (cons(cond((=(setq ty(type x))'str)1000)<br />                                                                           ((= ty'real)1040)<br />                                                                           (t 1070))x))(cdr x))))xdatas)))))))

(tt(car(entsel))'(("SOUTH""300000""111111""一""251")))

yoyoho

llsheng_73 发表于 2016-8-24 22:50
(tt(car(entsel))'(("SOUTH""300000""111111""一""251")))

指令: (tt(car(entsel))'(("SOUTH" "300000" "111111" "一" "251")))

选取物件: 损坏的 DXF 群组: (-3 ("SOUTH" (1070 . "300000") (1070 . "111111") (1070 . "一")
(1070 . "251")))

测试没成功

llsheng_73

yoyoho 发表于 2016-8-25 07:59
指令: (tt(car(entsel))'(("SOUTH" "300000" "111111" "一" "251")))

选取物件: 损坏的 DXF 群组: (-3 ...

已修改'string为'str，经测试正确。。。

yoyoho

llsheng_73 发表于 2016-8-25 09:29
已修改'string为'str，经测试正确。。。

感謝 llsheng_73   'string改为'str，测试o.k.

yhly555

llsheng_73 发表于 2016-8-24 22:50
(tt(car(entsel))'(("SOUTH""300000""111111""一""251")))

感谢！非常好用，但不知为什么我先用setq赋值时不能写入呢？如

2. (defun c:ttt ()
   
3. (setq a "某某")
   
4. (tt (car (entsel)) '(("SOUTH""300000" "111111" a "251")))
   
5. )

(defun c:ttt ()<br /> (setq a "某某")<br /> (tt (car (entsel)) '(("SOUTH""300000" "111111" a "251")))<br /> )

这样写为什么不能写入扩展属性，求解，谢谢！

yoyoho

yhly555 发表于 2016-8-25 10:42
感谢！非常好用，但不知为什么我先用setq赋值时不能写入呢？如这样写为什么不能写入扩展属性，求解，谢谢 ...

(defun c:ttt ()
(setq a "某某")
(tt (car (entsel)) (list(list"SOUTH""300000" "111111" a "251")))
)

yhly555

yoyoho 发表于 2016-8-25 11:22
(defun c:ttt ()
(setq a "某某")
(tt (car (entsel)) (list(list"SOUTH""300000" "111111" a "251"))) ...

欧了，谢谢大家！