Block 이름 바꾸기
명령어 : BLKREN
 
(defun renameblock (old new / ent)
   (and
      (= (type old) (type new) 'STR)
      (/= new old)
      (snvalid new 0)
      (setq ent (tblobjname "block" old))
      (or
         ;; allow changing case of block name
         (= (strcase old) (strcase new))
         (not (tblobjname "block" new))
      ) ;_ End of or
      ;; then get the block record...
      (setq ent (cdr (assoc 330 (entget ent))))
      (setq ent (entget ent))
      (entmod (subst (cons 2 new) (assoc 2 ent) ent))
   ) ;_ End of and
) ;_ End of defun
 
(defun c:BLKREN ( / *New_Block_Name *Old_Block_Name *Rename_Block_Name *Select_Block_Ename *Select_Block_Obj_SSet)
   (setvar "cmdecho" 0)
   (command "undo" "mark")
   (princ "n Undo-Mark 되었습니다.")
   (princ "n 명령어 : BLKREN - 블럭의 이름을 변경")  
   (princ "n 이름을 변경할 블럭을 선택하세요!")
   (setq *Select_Block_Obj_SSet (ssget ":S" (list (cons 0 "insert"))))
   (setq *Select_Block_Ename (ssname *Select_Block_Obj_SSet 0))
   (setq *Old_Block_Name (cdr (assoc 2 (entget *Select_Block_Ename))))
   (initget 7)
   (setq *New_Block_Name (getstring "n 새로운 블럭의 이름을 넣으세요! : "))
   (setq *Rename_Block_Name (renameblock *Old_Block_Name *New_Block_Name))
   (princ "n 명령어 : chbn - 블럭의 이름을 변경하는 코드")  
   (if (/= *Rename_Block_Name nil)
      (progn
         (princ "n")
         (princ " ** Block : "")
         (princ *Old_Block_Name)
         (princ ""(이)가 ")
         (princ "--------------> "")
         (princ *New_Block_Name)
         (princ ""(으)로 블럭이름이 변경되었습니다. ")
      ) ;_ End of progn
   ) ;_ End of if
   (princ)
)