[求助]请求高手 附加xdata属性函数调试没通过

mycad

;;代码如下；我想使用如下函数为实体附件一个xdata值；调试为通过，不知怎么回事？

;;Obj--为选择集选择的实体对象

;;xdata--为字符串值；如"222"

;;刚学习lisp,请高手赐教，谢谢！！！！！！！1

(defun c:tt()
  (setq pt0(getpoint"please intpu points:"))
  (command "_.pline" pt0)
  (setq obj(entlast))
  (addXDATA2(Obj "222"))
)

(defun addXDATA2(Obj xdata)
  (cond
    ( (and (= (type xdata) 'STR))
      (setq xdata2 xdata)
    )
    ( (and  (= (type xdata) 'INT))
       (setq xdata (itoa xdata))
    )
    ( (and  (= (type value) 'REAL))
      (setq xdata (itoa (fix xdata)))
    )
    (t nil)
    )
   (regapp "MAP");;
   (setq exdata'((-3 ("MAP"    
   (1000 . xdata)
   ;;(1000 . "HELLO!")
   )))
   )
   (setq newent
   (append Obj exdata));;
   (entmod newent);;
   (entget (car (entsel)) '("MAP"))
)

cy956

建议采用ldata，不管是调用还是修改都简单多了，可以附在实体上，也可以附图中，数据格式也灵活。