기존 블럭명 삭제 후 선택한 문자로 블럭명이 되게끔 요청합니다

(defun c:bnb2 (/ mrDuplicateRemove ss txt doc L blockname)
(setvar “cmdecho” 0)
(setq te (entsel “n     >> 변경하려는 불럭명 선택하세요: “))
(setq te1 (cadr te)
       te2 (car te)
       te3 (entget te2)
       te4 (cdr (assoc 1 te3)))
(princ te4)
 (defun mrDuplicateRemove (L)(if L (cons (car L)(mrDuplicateRemove (vl-remove (car L)(cdr L))))))
 (if (and
(princ “n     >> 변경하는 블럭을 선택하세요:”)
   (setq ss (ssget ‘((0 . “insert”))))
   (/= (setq txt te4) “”))
  (progn
   (setq doc (vla-get-activedocument (vlax-get-acad-object)))
   (setq L
    (mrDuplicateRemove
     (mapcar ‘vla-get-name
      (mapcar ‘vlax-ename->vla-object (vl-remove-if ‘listp (mapcar ‘cadr (ssnamex ss))))
)))
   (vlax-for block (vla-get-blocks doc)
    (setq blockname (vla-get-name block))
    (if (member blockname L)
     (vla-put-name block (strcat txt blockname))
))
   (vlax-release-object doc)
  )
 )(princ)
 )(princ)