블럭 변경하여 저장하는 리습 수정좀 도와주세요 ㅠ.ㅠ

(defun C:jang (/ p p1 l n e pt1 dia E1 dia1)
   (setq p (ssget))            
   (COMMAND "OSNA" "NONE")
   (if p (progn                     ; If any objects selected
      (setq l 0 n (sslength p))
      (while (< l n)                 ; For each selected object…
  (if (= "INSERT"               ; Look for TEXT entity type (group 0)
  (cdr (assoc 0 (setq e (entget (SETQ E1 (ssname p l)))))))
     (progn
  (setq pt1 (cdr (assoc 10 e)))
  (setq dia (cdr (assoc 2 e)))
  (setq dia1 (substr dia 1 2))
  (if (or (= dia "M24″) (= dia1 "24″)) (progn
      (command "insert" "zz24″ pt1 1 1 0)
      (COMMAND "ERASE" E1 "")))
  (if (or (= dia "M22″) (= dia1 "22″)) (progn
      (command "insert" "zz22″ pt1 1 1 0)
      (COMMAND "ERASE" E1 "")))
  (if (or (= dia "M20″) (= dia1 "20″))  (progn
      (command "insert" "zz20″ pt1 1 1 0)
      (COMMAND "ERASE" E1 "")))
  (if (or (= dia "M16″) (= dia1 "16″))(progn
      (command "insert" "zz16″ pt1 1 1 0)
      (COMMAND "ERASE" E1 "")))
  (if (or (= dia "M12″) (= dia1 "12″)) (progn
      (command "insert" "zz12″ pt1 1 1 0)
      (COMMAND "ERASE" E1 "")))
  (setq l (+ l 1))
     )
     (progn
        (setq l (+ l 1)))

 )
      )
   )
  )
 (setq pt1 (getpoint "객체선택 윈도우 첫번째점 클릭…n"))
   (setq pt2 (getcorner pt1 "객체선택 윈도우 두번째점 클릭…n"))

  (setq filename (entsel "n 파일명 문자를 선택.. (단일행 문자)..n"))

   (WHILE (= filename NIL)  ;선택이  nil이라면 루프를 돌려주고
      (setq filename (entsel "n 파일명 문자를 선택.. (단일행 문자)..n"))
    )

  (setq fn (car filename))
  (setq fntxt (cdr (assoc 1 (entget fn))))
 
    (setq dwgname (strcat "" fntxt ))
 
  (command "zoom" "w" pt1 pt2) ; 새도면 정의 = 엔터
  (command "wblock" dwgname "" pt1 "cross" pt1 pt2 "" "undo" "")
  (princ dwgname)
  (princ)

) ;defun end
)

위에는 블럭을 변경하는 리습이고 밑에는 단품저장하는 리습을 고캐드에서 누가 올려주신거를 연결한

리습인데요;; 원본은 그냥 그대로 나뚜고 별도로 저장되는 파일에 블럭을 변경하고 싶습니다.

순서상으로 보면 원본의 블럭을 수정 후 단품저장되는 형식이잔아요? 원본은 그냥 나뚜고 저장되는 파일

의 블럭이 수정되게 수정하고 싶습니다.
어떤식으로 수정하면 될까요?