【转帖】请高手指点如何读取的属性值
 

请高手指点如何读取的属性值
请高手指点如何读取的属性值
我预先定义好了一个带有"序号"、“图样代号”、“零件名称”等的明细栏，在装配图中插入明细栏根据提示输入各个零件的："序号"、“图样代号”、“零件名称”。问题是我想输出这些属性值到access数据库时，输出到数据库中的属性值始终是缺省值，该怎么办请高手指点。
好好理解下面斑竹的程序 相信可以解决你的问题
(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)
)

人生如棋 棋如其人
乐在棋中 棋乐无穷