qq_zsw 发表于 2010-5-3 10:41:00

[求助]如何进行符号库操作

<p>我编写的块名更改程序出错了，请各位指点正确的写法</p><p>;;;改块名<br/>(defun gkm (oldnm newnm / ent)<br/>&nbsp; (setq ent (entget (tblobjname "block" oldnm)))<br/>&nbsp; (setq ent1 (subst (cons 2 newnm) (assoc 2 ent) ent))<br/>&nbsp; (entmod ent1)&nbsp; ;;返回nil，操作失败<br/>)</p>

Andyhon 发表于 2010-5-3 11:15:00

<p>Visit here:</p><p><a href="http://forums.augi.com/showthread.php?t=117236">http://forums.augi.com/showthread.php?t=117236</a></p>
页: [1]
查看完整版本: [求助]如何进行符号库操作