请高手指点如何读取的属性值

hug21

我预先定义好了一个带有"序号"、“图样代号”、“零件名称”等的明细栏，在装配图中插入明细栏根据提示输入各个零件的："序号"、“图样代号”、“零件名称”。问题是我想输出这些属性值到Access数据库时，输出到数据库中的属性值始终是缺省值，该怎么办请高手指点。

huanghao35

好好理解下面斑竹的程序 相信可以解决你的问题

(Defun c:at(/ ename LOOP elist)
  (setq ename (entnext (car (entsel))))
  (setq LOOP T)
  (While (and ename LOOP)
    (setq elist (entget ename))
    (if (= (cdr (assoc 0 elist)) "ATTRIB")
        (progn
   (princ (cdr (assoc 2 elist)))
   (princ " ----> ")
   (princ (cdr (assoc 1 elist)))
   (princ "\n")
   )
      (setq LOOP nil)
      )
    (setq ename (EntNext ename))
    )
  (princ)
  )