¿£Áö´Ï¾î ±â¼úºí·Î±×
; ºü¸¥Àμâ À©µµ¿ì¹üÀ§ A4
(defun c:a4plt(/ lhlpnt rhhpnt)
      (setvar "cmdecho" 0)
  (princ "n...A4 Window quick plot....")
  (setq lhlpnt (getpoint "n Àμâ¹üÀ§ ¼±Åà : "))
  (setq rhhpnt (getcorner lhlpnt "n ´ÙÀ½ ¼±Åà : "))
      ;(command "zoom" lhlpnt rhhpnt)
      (command "-PLOT" 
               "YES"                                   ;»ó¼¼ÇÑ ÇÃ·Ô ±¸¼º YES
               ""                                      ;¹èÄ¡ À̸§ ÀÔ·Â ¶Ç´Â [?] <¸ðÇü>
               "¡ÚHP LaserJet 5100 PCL 6¡Ú.pc3"        ;¡ÚÇ÷ÔÅÍÀ̸§ <-»ç¿ëÀÚ ÆÄÀÏ
               "A4"                                    ;¡ÚÁ¾ÀÌ Å©±â A4
               "Millimeters"                           ;¿ëÁö´ÜÀ§ mm
               "L"                                     ;¿ëÁö ¹æÇâ ÀÔ·Â [¼¼·Î(P)/°¡·Î(L)]
               "NO"                                    ;À§ ¾Æ·¡¸¦ µÚÁý¾î ÇÃ·Ô NO
               "Window"                                ;ÇÃ·Ô ¿µ¿ª ÀÔ·Â [È­¸éÇ¥½Ã(D)/¹üÀ§(E)/ÇÑ°è(L)/ºä(V)/À©µµ¿ì(W)]
               lhlpnt rhhpnt                           ;Ç÷Կµ¿ª ÁöÁ¤
               "fit"                                   ;ÇÃ·Ô Ãàô ÀÔ·Â (Ãâ·Â ¹Ð¸®¹ÌÅÍ=µµ¸é ´ÜÀ§)¶Ç´Â [¸ÂÃã(F)]
               "c"                                     ;ÇÃ·Ô °£°Ý¶ç¿ì±â ÀÔ·Â(x,y) ¶Ç´Â [Áß½É(C)]
               "Yes"                                   ;ÇÃ·Ô ½ºÅ¸ÀÏ·Î Ç÷Ô? [¿¹(Y)/¾Æ´Ï¿À(N)]
               "PLOT_2008.ctb"                         ;¡ÚÇ÷Լ³Á¤ÆÄÀÏ ctb <-»ç¿ëÀÚ ÆÄÀÏ
               "yes"                                   ;¼±°¡ÁßÄ¡ÇÃ·Ô YES
               "a"                                     ;À½¿µÇ÷Լ³Á¤ / Ç¥½ÃµÇ´Â ´ë·Î(A)/¿ÍÀ̾îÇÁ·¹ÀÓ(W)/¼û±è(H)/ºä ½ºÅ¸ÀÏ(V)/·»´õ(R)
               "no"                                    ;Ç÷ÔÃâ·ÂÀ» ÆÄÀÏ·Î NO
               "no"                                    ;ÆäÀÌÁö¼³Á¤ ÀúÀå NO
               "yes"                                   ;Ç÷ÔÁøÇà YES
             )                    
 (princ)
 ) ; end of defun
 
 ; ºü¸¥Àμâ À©µµ¿ì¹üÀ§ A3
(defun c:a3plt(/ lhlpnt rhhpnt)
      (setvar "cmdecho" 1)
  (princ "n...A3 Window quick plot....")
  (setq lhlpnt (getpoint "n Àμâ¹üÀ§ ¼±Åà : "))
  (setq rhhpnt (getcorner lhlpnt "n ´ÙÀ½ ¼±Åà : "))
      ;(command "zoom" lhlpnt rhhpnt)
      (command "-PLOT" 
               "YES"                                   ;»ó¼¼ÇÑ ÇÃ·Ô ±¸¼º YES
               ""                                      ;¹èÄ¡ À̸§ ÀÔ·Â ¶Ç´Â [?] <¸ðÇü>
               "¡ÚHP LaserJet 5100 PCL 6¡Ú.pc3"        ;¡ÚÇ÷ÔÅÍÀ̸§ <-»ç¿ëÀÚ ÆÄÀÏ
               "A3"                                    ;¡ÚÁ¾ÀÌ Å©±â A4
               "Millimeters"                           ;¿ëÁö´ÜÀ§ mm
               "L"                                     ;¿ëÁö ¹æÇâ ÀÔ·Â [¼¼·Î(P)/°¡·Î(L)]
               "NO"                                    ;À§ ¾Æ·¡¸¦ µÚÁý¾î ÇÃ·Ô NO
               "Window"                                ;ÇÃ·Ô ¿µ¿ª ÀÔ·Â [È­¸éÇ¥½Ã(D)/¹üÀ§(E)/ÇÑ°è(L)/ºä(V)/À©µµ¿ì(W)]
               lhlpnt rhhpnt                           ;Ç÷Կµ¿ª ÁöÁ¤
               "fit"                                   ;ÇÃ·Ô Ãàô ÀÔ·Â (Ãâ·Â ¹Ð¸®¹ÌÅÍ=µµ¸é ´ÜÀ§)¶Ç´Â [¸ÂÃã(F)]
               "c"                                     ;ÇÃ·Ô °£°Ý¶ç¿ì±â ÀÔ·Â(x,y) ¶Ç´Â [Áß½É(C)]
               "Yes"                                   ;ÇÃ·Ô ½ºÅ¸ÀÏ·Î Ç÷Ô? [¿¹(Y)/¾Æ´Ï¿À(N)]
               "PLOT_2008.ctb"                         ;¡ÚÇ÷Լ³Á¤ÆÄÀÏ ctb <-»ç¿ëÀÚ ÆÄÀÏ
               "yes"                                   ;¼±°¡ÁßÄ¡ÇÃ·Ô YES
               "a"                                     ;À½¿µÇ÷Լ³Á¤ / Ç¥½ÃµÇ´Â ´ë·Î(A)/¿ÍÀ̾îÇÁ·¹ÀÓ(W)/¼û±è(H)/ºä ½ºÅ¸ÀÏ(V)/·»´õ(R)
               "no"                                    ;Ç÷ÔÃâ·ÂÀ» ÆÄÀÏ·Î NO
               "no"                                    ;ÆäÀÌÁö¼³Á¤ ÀúÀå NO
               "yes"                                   ;Ç÷ÔÁøÇà YES
             )                    
 (princ)
 ) ; end of defun