lifuq1979 发表于 2017-10-24 14:35:49

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

这个是创建点的，测试没问题
(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 发表于 2017-10-24 15:05:15

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

llsheng_73 发表于 2017-10-24 14:50:44

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

lifuq1979 发表于 2017-10-24 19:00:52

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

谢谢73兄指点

lifuq1979 发表于 2017-10-24 19:01:29

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


测试通过，谢谢了！！！

pengfei2010 发表于 2017-10-25 09:23:17

回帖是一种美德！感谢楼主的无私分享 谢谢
页: [1]
查看完整版本: 请大神指点entmake添加扩展属性的问题