snria 发表于 2006-7-21 20:14:00

请高手帮我看一个程序

<P>(defun c:test ()<BR>&nbsp; (setq en_list (entget (car (entsel "Secelt object:"))))<BR>&nbsp; (if (assoc 62 en_list)<BR>&nbsp;&nbsp;&nbsp; (progn<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq en_list (vl-remove (assoc 62 en_list) en_list))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (entmod en_list)<BR>&nbsp;&nbsp;&nbsp; )<BR>&nbsp; )<BR>) </P>
<P>本意是想选择一个对象把它的层属性改为随层，可不知为什么只返回删除了（62。x）的表，而对象的层属性却没有改变？？</P>
<P>麻烦高手帮忙看一下哪里出问题了。</P>

rongyifei 发表于 2006-7-21 20:27:00

这个不知道为什么不能改变?我也试过,只有把新的(62 . 256)组码加进去才能实现.

Andyhon 发表于 2006-7-21 21:00:00

(defun c:test ()<BR>&nbsp; (setq en_list (entget (car (entsel "Secelt object:"))))<BR>&nbsp; (if (assoc 62 en_list)<BR>&nbsp;&nbsp;&nbsp; (progn<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq en_list (subst (cons 62 256) (assoc 62 en_list) en_list))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (entmod en_list)<BR>&nbsp;&nbsp;&nbsp; )<BR>&nbsp; )<BR>)
页: [1]
查看完整版本: 请高手帮我看一个程序