[求助]：Presscad 图形的属性怎样写入?

zhoufupeng

Presscad  图形中加工说明,怎样查看和写入。为什么我用(entget (car (entsel)))并不能看到其加工说明内容，它们又是放在哪里，怎样读取和查看呢？请各位有知道提示下.谢谢

gysjy

(entget (entnext (cdr (car (entget (entsel))))))

idfhm

在图元属性中有一个数值他们设定好了第几个数字是代表什么意思!!

zhoufupeng

我已解决了是这样的

(entget (car (entsel)) '("*")) 可以取出扩展数据

;;;给图元附上扩展数据

;;;用法(jx_set_xdata (car (entsel))  "test" (list(cons 1000 "test")))

(defun jx_set_xdata (en rname xd_list / old all elist)
  (setq elist (entget en '("*"))
rname (strcase rname)
  )
  (regapp rname)
  (setq xd_list (cons rname xd_list)
old (assoc -3 elist)
  )
  (cond
    ((and old (assoc rname (cdr old)))
     (setq all  (cons -3 (subst xd_list (assoc rname (cdr old)) (cdr old)))
    elist (subst all (assoc -3 elist) elist)
     )
     (entmod elist)
    )
    ((and old (not (member rname (cdr old))))

     (setq all  (append old (list xd_list))
    elist (subst all (assoc -3 elist) elist)
     )
     (entmod elist)
    )
    ((not old)
     (setq xd_list (list -3 xd_list)
    elist   (append elist (list xd_list))
     )
     (entmod elist)
    )

  )
)