고수님 리습 수정 부탁드입니다.

(defun c:` (/ DwgFileFolder DwgFileList);;윈도우 중심점과 연계하기

  (vl-load-com)

  (setq fn (getvar “DWGPREFIX”))

  (setq tit (open “c:\tmp.$$$” “w”))

  (setq cwxy (getvar “VIEWCTR”))  ;;뷰중심포인트

  (setq cwsz (getvar “VIEWSIZE”)) ;;뷰크기

  (setq cwszy (/ cwsz 2.0))(setq cwszx (* cwszy 1.5))
  ;;뷰중심 계산

  (setq ux (- (car cwxy) cwszx)) (setq uy (+ (cadr cwxy) cwszy))

  (setq lx (+ (car cwxy) cwszx)) (setq ly (- (cadr cwxy) cwszy))
  ;(command “zoom” “w” (list ux uy) (list lx ly))
  (write-line (strcat (rtos ux) “,” (rtos uy)) tit) ;;좌상

  (write-line (strcat (rtos lx) “,” (rtos ly)) tit) ;;우하

  (write-line (strcat (rtos (car cwxy)) “,” (rtos (cadr cwxy))) tit) ;;중심점

  (write-line (rtos cwsz) tit) ;;뷰크기

  (close tit)

  (print “중심점 저장됨..>뷰이동가능”)

) 
(defun c:“ (/ DwgFileFolder DwgFileList);;윈도우 중심점과 연계하기

  (vl-load-com)

  (setq fn (getvar “DWGPREFIX”))

  (setq tit (open “c:\tmp.$$$” “r”))

  (setq uxy (read-line tit))

  (setq lxy (read-line tit))

  (setq cxy (read-line tit))

  (setq siz (read-line tit))

  (command “zoom” “w” uxy lxy)

  (command “zoom” “c” cxy siz)

  (close tit)

  )