||||
(defun c:LL(/ P1 P2 p1x p1y p2x p2y sx sy bx by yn sc os)

   (Setq os (getvar "osmode"))
   (command "ucs" "")
   (command "osnap" "int,end")

   (setq p1 (getpoint "\nPick 1st Corner : ")
         p2 (getcorner p1 "\nPick 2nd Corner : ")
         p1x (car p1) p1y (cadr p1)
         p2x (car p2) p2y (cadr p2))

   (setvar "osmode" os)

   (if (> p1x p2x) (setq sx p2x bx p1x))
   (if (<= p1x p2x) (setq sx p1x bx p2x))
   (if (> p1y p2y) (setq sy p2y by p1y))
   (if (<= p1y p2y) (setq sy p1y by p2y))

   (command "limits" (list sx sy) (list bx by))

   (grdraw (list sx sy) (list bx sy) 2 1)
   (grdraw (list bx sy) (list bx by) 2 1)
   (grdraw (list bx by) (list sx by) 2 1)
   (grdraw (list sx by) (list sx sy) 2 1)

   (setq s (/ (- by sy) 594.0000))
   (prompt (strcat "\n  Limits Scale = " (rtos s 2 2) ))
(prompt "  --- Programed By Lee Hyuk Jin.")
(prin1))


위의 리습에서 스케일만 구하고 싶다면
아래 부분을 삭제하시면 됩니다.

   (command "limits" (list sx sy) (list bx by))

   (grdraw (list sx sy) (list bx sy) 2 1)
   (grdraw (list bx sy) (list bx by) 2 1)
   (grdraw (list bx by) (list sx by) 2 1)
   (grdraw (list sx by) (list sx sy) 2 1)


이 게시물을...