高级会员
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
|
【转帖】请高手指点如何读取的属性值
请高手指点如何读取的属性值
请高手指点如何读取的属性值
我预先定义好了一个带有"序号"、“图样代号”、“零件名称”等的明细栏,在装配图中插入明细栏根据提示输入各个零件的:"序号"、“图样代号”、“零件名称”。问题是我想输出这些属性值到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)
)
人生如棋 棋如其人
乐在棋中 棋乐无穷
|