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

qq_zsw

我编写的块名更改程序出错了，请各位指点正确的写法

;;;改块名
(defun gkm (oldnm newnm / ent)
  (setq ent (entget (tblobjname "block" oldnm)))
  (setq ent1 (subst (cons 2 newnm) (assoc 2 ent) ent))
  (entmod ent1)  ;;返回nil，操作失败
)

Andyhon

Visit here:

http://forums.augi.com/showthread.php?t=117236