몇가지 리습을 모아서 논건데요 염치불구하고 조언좀 부탁드립니다.

(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)))
)
      )
   )
  ) ; 블럭 변환(블럭 채인지 후 기존블럭 삭제)
—————————————————————————————-
 (command “change” p “” “p” “c” “Byblock” “”) ; 스타일 바이블럭으로 채인지
—————————————————————————————-           
 (setq ss (ssget ‘((7 . “ST60”))))
 (vl-cmdf “erase” ss “”) ; 글자 중 스타일 이름이 ST60 만 삭제
—————————————————————————————-
 (command “explode” p “”) ; 폭파
—————————————————————————————-
                     
   (setq pt1 (getpoint “객체선택 윈도우 첫번째점 클릭…n”))
   (setq pt2 (getcorner pt1 “객체선택 윈도우 두번째점 클릭…n”))

  (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 ; 다른이름으로 저장

—————————————————————————————-

순서대로 보시면 블럭 삽입 기존 블럭 삭제 -> 스타일을 바이블럭으로 채인지 -> 글자 스타일 중

ST60만 삭제 -> 범위 폭파 -> 다른이름 저장 내보내기

순인데요;;

작업 순서대로 보면 원본파일은 작업이 잘되는데 다른이름으로 내보내는 파일은 스타일을

바이블럭으로 채인지 바께 안되고 글자ST60삭제랑 범위 폭파가 안되잇네요;;

순서상 작업을 다하고 저장을 마지막에 하니까 다른이름으로 저장되는 파일이 리습작업이

다 완료 되잇어야대는게 아닌가 하구요 ;;