求助：令人困惑的问题！

zhf7878 · 发表于 2003-9-24 22:56:00

求助：令人困惑的问题！


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

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

meflying · 发表于 2003-9-25 08:17:00

那你觉得应该是什么？

Student · 发表于 2003-9-25 08:31:00

请把倒数第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)))

求助：令人困惑的问题！

发表回复

精选推荐