求助：令人困惑的问题！

zhf7878

求助：令人困惑的问题！

2. (defun c:q()
   
3.         (setq s1 (getstring "\n请输入构件编号: "))
   
4.         (setq lastent (entget (entlast)))
   
5.           (setq appname "newdata1")
   
6.           (if(not (tblsearch "appid" appname))
   
7.             (regapp appname)
   
8.                )
   
9.         (setq exdata '((-3 (appname (1000 . s1)))))
   
10.         (setq newent(append lastent exdata))
    
11.         (entmod newent)
    
12. )

(defun c:q()<br />         (setq s1 (getstring "\n请输入构件编号: "))<br />         (setq lastent (entget (entlast)))<br />           (setq appname "newdata1")<br />           (if(not (tblsearch "appid" appname)) <br />             (regapp appname)<br />                )<br />         (setq exdata '((-3 (appname (1000 . s1)))))<br />         (setq newent(append lastent exdata))<br />         (entmod newent)<br /> )

运行以后，exdata的值怎么是(-3 (APPNAME (1000 . S1)))？

meflying

那你觉得应该是什么？

Student

请把倒数第2，第3行
(setq exdata '((-3 (appname (1000 . s1)))))
(setq newent(append lastent exdata))
改为：
(setq exdata (list -3 (list appname (cons 1000 s1))))
(setq newent(append lastent (list exdata)))