有谁知道如何向定义的属性里写入内容？

超然A

 (setq en_data (entget en_name '("*")))

好句子

无痕

lazybug发表于2006-3-3 16:49:00;取得所选块的所有属性列表(defun c:cgg (/ en en_name en_data)(setq en (entsel \"\n选择对象:\"))(setq en...

(while (assoc 0 en_data) 。。。。）

这个判断是有问题的。