도면 양식 불러오기 리습

(defun c:A4 ( / osm scl inp)
(setvar "cmdecho" 0)
(setq osm (getvar "osmode"))
;(setvar "osmode" 0)
(setq scl (getreal "\n Scale : "))
(setq inp (getpoint "\n Insert point : "))
(command "-insert" "c:/경로/A4.dwg" "s" scl "r" "0" inp)
(setvar "osmode" osm)
(princ)
) ;;end of defun

;---------------------------------------

(defun c:A3 ( / osm scl inp)
(setvar "cmdecho" 0)
(setq osm (getvar "osmode"))
;(setvar "osmode" 0)
(setq scl (getreal "\n  Scale : "))
(setq inp (getpoint "\n Insert point : "))
(command "-insert" "c:/경로/A3.dwg" "s" scl "r" "0" inp)
(setvar "osmode" osm)
(princ)
) ;;end of defun