[求助]怎么在图元上增加延伸资料？

modman

我想在图元上加点儿附加信息，可是就是加不上，请高手帮忙看一下，谢谢了

(defun c:aaaa()
  (regapp "aatype")
  (setq aa (entsel)
 aan (entget (car aa))
 aatp (list -3 (list "aatype" (cons 1000 "bb")))
 aan (append aan (list aatp))
 aan (subst (cons 62 52) (assoc 62 aan) aan)
  )
  (entmod aan)
)

ljttjl

用以下语句再查询下对象看看:

（entget (car (entsel)) '("*"))

modman

试了一下，还是不行啊，选择完对象后没有返回的值

我用的是cad2006，这个和版本有没有关系？

yoyoho

用以下语句再查询下对象看看:

(entget (car (entsel)) '("*"))

AUTOCAD 2008 测试O.K.

modman

前段时间一直没上网，试验了一下，可以了，谢谢

能顺便讲解一下这个语句吗？手头的书上查不到