2가지 리습을 묶은건데요 선택선택을 한번만 선택하게 하고싶어요 조언부탁드립니다. ㅠ.ㅠ

(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”))

  (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
)

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

내용을 보면 천번째 한번 범위 지정 후 -> 블럭 삽입 -> 블럭삭제 -> 범위지정 -> 저장

이건데 범위지정을 처음 한번만 하게 할수는 없나여?