[已解决]：请问如何修改块名？为什么我这样不行？

Wildcat

请问Visual LISP如何修改块名？我写的程序如下，但为什么不能实现以上的功能？
(defun c:test ()
  (setq        en         (entsel "\n 选择图块：")
        en_data         (entget (car en))
        old_name (assoc 2 en_data)
        new_name (cons 2 "glassnail")
        en_data         (subst new_name old_name en_data)
  )
  (entmod en_data)
)

snoopychen

用cad的原有命令简单点

2. 
   
3. (defun c:test (/ en en_data old_name)
   
4.   (setq en (entsel "\n 选择图块：")
   
5.         en_data (entget (car en))
   
6.         old_name (cdr (assoc 2 en_data))
   
7.   )
   
8.   (command "rename" "b" old_name "glassnail")
   
9. )
   

<br /> (defun c:test (/ en en_data old_name)<br />   (setq en (entsel "\n 选择图块：")<br />         en_data (entget (car en))<br />         old_name (cdr (assoc 2 en_data))<br />   )<br />   (command "rename" "b" old_name "glassnail")<br /> )<br />

snsj

命令:rename

Wildcat

哦，原来CAD本身有个这样的命令，我直到现在才知道。
谢谢您们。

Underway

Ref:

http://www.jtbworld.com/lisp/axblock.htm

;;; Rename block from "revtext" to "revtext1"
;;; (ax:RenameBlock doc "revtext" "revtext1")
(defun ax:RenameBlock (doc bn nn / layout i)
  (vlax-for layout (vla-get-layouts doc)
    (vlax-for i (vla-get-block layout)
      (if (and
            (= (vla-get-objectname i) "AcDbBlockReference")
            (= (strcase (vla-get-name i)) (strcase bn))
          )
        (vla-put-name i nn)
      )
    )
  )
)