[求助]：请教在lisp中关于扩展数据的问题！

下里巴云

我想对一个实体追加扩展数据。
代码如下：
(setq elisty (entget e));;
(setq zddata '(( -3                                        ("QLR_BSM" (1071 . 0))  ;;                        ("QLR_DJH" (1000 . "")) ;;                 ("QLR_TDZH" (cons '1000  w_tdzh))  ;;       
           ("QLR_QLRMC" (cons '1000  w_qlr))  ;;
)))
(setq newent (append elisty zddata))
(entmod newent)
其中有两个点对的值是变量。但是运行后，发现不识别，显示错误：
DXF 组不正确: (-3 ("QLR_BSM" (1071 . 0)) ("QLR_DJH" (1000 . ""))
("QLR_TDZH" (CONS (QUOTE 1000) W_TDZH)) ("QLR_QLRMC" (CONS (QUOTE 1000) W_QLR))。。。
但是我在别的地方不做扩展数据的时候使用(cons '1000  w_tdzh))  这个函数，没有问题啊。帮忙一下

bobby_yang

你把‘改成list函数就可以了。