첨부된 DCL 파일 다운 받아서 함께 사용하세요

 

;;------ block name change ------------------------------------------

;;명령어 : BN
(defun c:bn(/ obn nbn ss ky1)
   (prompt "...블록이름 변경하기")
   (setq obn nil nbn nil ss nil)
   (setq ss (ssget ":s" '((0 . "insert"))))
   (if ss (setq obn (cdr (assoc 2 (entget (ssname ss 0)))))
          (setq obn "지정된 블록이 없음...다시지정하세요"))
   (setq dcl_id (load_dialog "Block_name_Change_bn.dcl"))
   (setq ky1 3)
(while (= ky1 3)
   (if (not (new_dialog "bn_chg" dcl_id)) (exit))
   (set_tile "text_old" obn)
   (if (= nbn nil) (set_tile "text_new" obn)(set_tile "text_new" nbn))
   (mode_tile "text_new" 2)

   (action_tile "text_old" "(setq obn $value)")
   (action_tile "text_new" "(setq nbn $value)")

   (action_tile "butt1" "(setq ky1 3)(done_dialog)")

   (action_tile "butt2" "(@butt2)")
   (action_tile "accept" "(setq ky1 33)(done_dialog)")
   (action_tile "cancel" "(setq ky1 4)(done_dialog)")
   (start_dialog)
   (cond
      ((= ky1 3)
         (setq ss (ssget ":s" '((0 . "insert"))))
         (if ss (progn
            (setq obn (cdr (assoc 2 (entget (ssname ss 0)))))
            (setq nbn obn))
            (setq obn "지정된 블록이 없음...다시지정하세요"))
      )
      ((= ky1 33)
         (if (or (tblsearch "block" nbn) (= nbn " "))
         (setq ky1 3) (setq ky1 9))
      )
   )
   (if (and (= (tblsearch "block" obn) nil)(/= ky1 4))
      (setq ky1 3 obn "지정된 블록이 없음...다시지정하세요"))

   (unload_dialog dcl_id)
   (if (= ky1 9) (progn
      (command "rename" "b" obn nbn)
      (prompt "n블록이름변경:") (prin1 obn)(prompt "->") (prin1 nbn)
   ))
   );while end
(prin1))
;subroutine
(defun @butt2()
   (if (or (tblsearch "block" nbn) (= nbn " ")) (progn
      (set_tile "text_new" obn)(mode_tile "text_new" 2)
   ))
); end of defun