°Ô½Ã¹° 1,200°Ç
   
[Æ÷ÀÎƮķ] ppp1 ÆÄÀÏÀ» ¿Ã·È½À´Ï´Ù
±Û¾´ÀÌ : ûÃáºñ¸Á·Ï ³¯Â¥ : 2013-02-04 (¿ù) 13:27 Á¶È¸ : 2315

(defun c:PcamPlot( / p1 p2 plotname papersiz lpmode)
 
  (setq plotname "Samsung CLP-320 Series")
  (setq papersiz "")

  (setq p1 (getpoint "\n ÇÁ¸°Æ® ¹üÀ§ ÁöÁ¤1:"))
  (setq p2 (getcorner p1 "\n ¹üÀ§ ÁöÁ¤2:"))
 
 
  (if (> (abs (- (car p1)(car p2))) (abs (- (cadr p1)(cadr p2))))
      (setq lpmode "L")
      (setq lpmode "P")
  )

  (if (> (substr (getvar "acadver") 1 2) "15")
      ;; 2004, 2005, 2006, 2007
      (command "-plot"
          "Y" ;; »ó¼¼ÇÑ Ç®·Ô±¸¼º
          ""  ;; ¹èÄ¡ À̸§ ÀÔ·Â
          plotname
          papersiz  ;; ¿¡·¯³ª¸é ""À¸·Î º¯°æ
          "M"  ;; M=mm I=inch
          lpmode    ;; L=°¡·Î P=¼¼·Î
          "N"  ;; À§ ¾Æ·¡·Î µÚÁý¾î Ç÷Ô
          "W"  ;; W=À©µµ¿ì D=È­¸éÇ¥½Ã
          p1
          p2
          "F"  ;; ÇÃ·Ô Ãàô ÀÔ·Â (Ãâ·Â ¹Ð¸®¹ÌÅÍ=µµ¸é ´ÜÀ§)¶Ç´Â [¸ÂÃã(F)] <¸ÂÃã>:
          "C"  ;; ÇÃ·Ô °£°Ý¶ç¿ì±â ÀÔ·Â(x,y) ¶Ç´Â [Áß½É(C)] <0.00,0.00>:
          "Y"  ;; ÇÃ·Ô ½ºÅ¸ÀÏ·Î Ç÷Ô? [¿¹(Y)/¾Æ´Ï¿À(N)] <¿¹>:
          "."  ;; ÇÃ·Ô ½ºÅ¸ÀÏ Å×À̺í À̸§ ÀÔ·Â ¶Ç´Â [?] (¾øÀ¸¸é . ÀÔ·Â) <>:
          "Y"  ;; ¼±°¡ÁßÄ¡·Î Ç÷Ô? [¿¹(Y)/¾Æ´Ï¿À(N)] <¿¹>:
          "A"  ;; À½¿µ ÇÃ·Ô ¼³Á¤ ÀÔ·Â [Ç¥½ÃµÇ´Â ´ë·Î(A)/¿ÍÀ̾îÇÁ·¹ÀÓ(W)/¼û±è(H)/ºä ½ºÅ¸ÀÏ(V)/·»´õ(R)] <Ç¥½ÃµÇ´Â ´ë·Î>:
          "N"  ;;ÇÃ·Ô Ãâ·ÂÀ» ÆÄÀÏ·Î ÇϽðڽÀ´Ï±î? [¿¹(Y)/¾Æ´Ï¿À(N)] <N>:
          "N"  ;; ÆäÀÌÁö ¼³Á¤¿¡ ´ëÇÑ º¯°æ »çÇ× ÀúÀå [¿¹(Y)/¾Æ´Ï¿À(N)]? <N>
          "Y"  ;;Ç÷ÔÀ» ÁøÇàÇմϱî [¿¹(Y)/¾Æ´Ï¿À(N)] <Y>:
      )

      ;; 2000, 2002
      (command "-plot"
          "Y" ;; »ó¼¼ÇÑ Ç®·Ô±¸¼º
          ""  ;; ¹èÄ¡ À̸§ ÀÔ·Â
          plotname
          papersiz  ;; ¿¡·¯³ª¸é ""À¸·Î º¯°æ
          "M"  ;; M=mm I=inch
          "L"  ;; L=°¡·Î P=¼¼·Î
          "N"  ;; À§ ¾Æ·¡·Î µÚÁý¾î Ç÷Ô
          "W"  ;; W=À©µµ¿ì D=È­¸éÇ¥½Ã
          p1
          p2
          "F"  ;; ÇÃ·Ô Ãàô ÀÔ·Â (Ãâ·Â ¹Ð¸®¹ÌÅÍ=µµ¸é ´ÜÀ§)¶Ç´Â [¸ÂÃã(F)] <¸ÂÃã>:
          ""   ;; ÇÃ·Ô °£°Ý¶ç¿ì±â ÀÔ·Â(x,y) ¶Ç´Â [Áß½É(C)] <0.00,0.00>: ---> 2002: "" : "C"=¿¡·¯
          "Y"  ;; ÇÃ·Ô ½ºÅ¸ÀÏ·Î Ç÷Ô? [¿¹(Y)/¾Æ´Ï¿À(N)] <¿¹>:
          "."  ;; ÇÃ·Ô ½ºÅ¸ÀÏ Å×À̺í À̸§ ÀÔ·Â ¶Ç´Â [?] (¾øÀ¸¸é . ÀÔ·Â) <>:
          "Y"  ;; ¼±°¡ÁßÄ¡·Î Ç÷Ô? [¿¹(Y)/¾Æ´Ï¿À(N)] <¿¹>:
          "N"  ;; Àº¼± Á¦°Å? [¿¹(Y)/¾Æ´Ï¿À(N)] <¾Æ´Ï¿À>: <-- 2002¿¡¸¸ Àû¿ë
          "N"  ;; ÇÃ·Ô Ãâ·ÂÀ» ÆÄÀÏ·Î ÇϽðڽÀ´Ï±î? [¿¹(Y)/¾Æ´Ï¿À(N)] <N>:
          "N"  ;; º¯°æ»çÇ×À» ¸ðÇü¿¡ ÀúÀå [¿¹(Y)/¾Æ´Ï¿À(N)]? <N>
          "Y"  ;; Ç÷ÔÀ» ÁøÇàÇմϱî [¿¹(Y)/¾Æ´Ï¿À(N)] <Y>:
      )
  )
  (princ)
)

ûÃáºñ¸Á·Ï ´ÔÀÇ ¹¯°í´äÇϱâ ÃÖ½Å±Û [´õº¸±â]


À̸§ Æнº¿öµå
ºñ¹Ð±Û (üũÇÏ¸é ±Û¾´À̸¸ ³»¿ëÀ» È®ÀÎÇÒ ¼ö ÀÖ½À´Ï´Ù.) ¢Ñ ÷ºÎÆÄÀÏ
¿ÞÂÊÀÇ ±ÛÀÚ¸¦ ÀÔ·ÂÇϼ¼¿ä.