请大神指点entmake添加扩展属性的问题

lifuq1979

这个是创建点的，测试没问题
(if(tblsearch"APPID""DATA")nil(regapp"DATA"))   
(entmake(mapcar'cons'(0 10 -3)(list "point" pt '(("DATA"(1000 . "2017.10.20")(1040 . 12.5))))))

为什么如下修改就不行了
(setq date (menucmd  "m=$(edtime,$(getvar,DATE),yyyy.mo.dd)")))
(if(tblsearch"APPID""DATA")nil(regapp"DATA"))  
(entmake(mapcar'cons'(0 10 -3)(list "point" pt '(("DATA"(1000 . DATE)(1040 . 12.5))))))
提示DXF组错误，该怎样修改
请各位大侠伸伸手

xyp1964

1. (setq date (menucmd "m=$(edtime,$(getvar,DATE),yyyy.mo.dd)"))
   
2. (if (null (tblsearch "APPID" "DATA"))
   
3.   (regapp "DATA")
   
4. )
   
5. (setq pt (getpoint))
   
6. (entmake
   
7.   (mapcar 'cons
   
8.           '(0 10 -3)
   
9.           (list        "point"
   
10.                 pt
    
11.                 (list (list "DATA" (cons 1000 DATE) '(1040 . 12.5)))
    
12.           )
    
13.   )
    
14. )

(setq date (menucmd "m=$(edtime,$(getvar,DATE),yyyy.mo.dd)"))<br /> (if (null (tblsearch "APPID" "DATA"))<br />   (regapp "DATA")<br /> )<br /> (setq pt (getpoint))<br /> (entmake<br />   (mapcar 'cons<br />           '(0 10 -3)<br />           (list        "point"<br />                 pt<br />                 (list (list "DATA" (cons 1000 DATE) '(1040 . 12.5)))<br />           )<br />   )<br /> )

llsheng_73

理解为什么有的地方要用list,有的地方直接用了',你的问题就解决了
跟(setq B"23") ,"ABC"并不代表"A23C"类似，但性质不一样

lifuq1979

llsheng_73 发表于 2017-10-24 14:50
理解为什么有的地方要用list,有的地方直接用了',你的问题就解决了
跟(setq B"23") ,"ABC"并不代表"A23C"类 ...

谢谢73兄指点

lifuq1979

xyp1964 发表于 2017-10-24 15:05

测试通过，谢谢了！！！

pengfei2010

回帖是一种美德！感谢楼主的无私分享 谢谢