[求助]附加数据间题。

cag · 发表于 2004-4-9 10:06:00

(defun CL (/ lastent exdata newent xData)
   (setq xData "This is a new thing!")
   (setq lastent (entget (car (entsel))))
   (regapp "NEWDATA")
   (setq exdata
   '((-3
   ("NEWDATA"
;;;    (1000 . "This is a new thing!")
   (1000 . xData)
   )
   )
   )
   )
   (setq newent
   (append lastent exdata)
   )
   (entmod newent)
)
会出现:错误: DXF 组不正确: (-3 ("NEWDATA" (1000 . XDATA)))
怎么修改(1000 . xData)
用这个程序添加的附加数据可以用(entget (car (entsel))'("NEWDATA"))查看到,因为它是添加在图元表的后边，怎么写才能让附加数据看不到。