값 기억 후 다음 입력에 나오게 변경 부탁드립니다.

아래 내용은
 
교차산 두 선에서

처음 선택한 선이 두번째 선택한 선 기준으로 Break 되는 리습입니다.

처음 입력한 값을 기억 하여 다음에 명령어를 사용하면

이전 값이 계속 이어갈수 있게 변경하고 싶습니다…

dim 값을 if로 이용해서 변경하면 될것 같은데..

이렇게 저렇게해도 값이 저장이 안되네요..

혹시 방법을 알고 계신 고수님들 수정 부탁드립니다.



;===== Q2 – Break Angle Direction   ***
(defun c:Q2()
 (setvar “cmdecho” 0)
 (setq os (getvar “osmode”))
 (setvar “OSMODE” 0)
(setq dims (getreal (strcat “n 라인 간격:”)))
 (setq n 0)
 (setq entn 0)
;;;;;;;;;
(defun st_end (l_list n / ent)
  (setq ent (entget (ssname l_list n)))
  (setq start_p (cdr (assoc 10 ent))
 end_p (cdr (assoc 11 ent))
  )
)
;;;;;;;;;
 (prompt “n 아래 라인:”)
 (setq bls (ssget))
;;;;;;;;;
 (prompt “n 위 라인:”)
 (setq bl2 (ssget))
 (setq bn (sslength bl2))
;;;;;;;;;
;;;;;;;;;
 (repeat bn
    (st_end bl2 n)
    (setq bp3 start_p bp4 end_p)
;;;;;;;;;
    (setq nn 0)
    (while (<= nn entn)
       (if (<= nn entn)
   (progn           
      (st_end bls nn)
      (setq bp1 start_p bp2 end_p)
      (setq ang1 (angle bp1 bp2))
      (if (> ang1 pi)
         (setq ang1 (- ang1 pi))
      )
   )
       )
       (if (setq cross (inters bp1 bp2 bp3 bp4))
   (progn
      (setq ang2 (angle bp3 bp4))
         (if (> ang2 pi)
      (setq ang2 (- ang2 pi))
         )
      (setq theta (abs (- ang1 ang2)))
      (setq dist (/ 0.5 (sin theta)))   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; break 간격  
      (setq ps1 (polar cross ang1 (* dist dims)))
      (setq ps2 (polar cross (+ ang1 pi) (* dist dims)))
        ;(command “OSMODE” “0”)
      (command “break” (ssname bls nn) ps1 ps2 )
      (ssadd (entlast) bls)
      (setq entn (1+ entn))
   )
       )
       (setq nn (1+ nn))
    )
    (setq n (1+ n))     
 )
(princ)
(command “osmode” os)
)