°Ô½Ã¹° 1,200°Ç
   
[Æ÷ÀÎƮķ] pppÈæ¹é1ÁöÁ¤2ÁöÁ¤Àº µÇ´Âµ¥ ´Ù¸¥ °ÍÀº ¾ÈµË´Ï´Ù
±Û¾´ÀÌ : ûÃáºñ¸Á·Ï ³¯Â¥ : 2013-02-05 (È­) 09:12 Á¶È¸ : 2307


(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)] <¿¹>:
          "MONOCHROME.CTB"  ;; ÇÃ·Ô ½ºÅ¸ÀÏ Å×À̺í À̸§ ÀÔ·Â ¶Ç´Â [?] (¾øÀ¸¸é . ÀÔ·Â) <>:
          "Y"  ;; ¼±°¡ÁßÄ¡·Î Ç÷Ô? [¿¹(Y)/¾Æ´Ï¿À(N)] <¿¹>:
          "A"  ;; À½¿µ ÇÃ·Ô ¼³Á¤ ÀÔ·Â [Ç¥½ÃµÇ´Â ´ë·Î(A)/¿ÍÀ̾îÇÁ·¹ÀÓ(W)/¼û±è(H)/ºä ½ºÅ¸ÀÏ(V)/·»´õ(R)] <Ç¥½ÃµÇ´Â ´ë·Î>:
          "N"  ;;ÇÃ·Ô Ãâ·ÂÀ» ÆÄÀÏ·Î ÇϽðڽÀ´Ï±î? [¿¹(Y)/¾Æ´Ï¿À(N)] <N>:
          "N"  ;; ÆäÀÌÁö ¼³Á¤¿¡ ´ëÇÑ º¯°æ »çÇ× ÀúÀå [¿¹(Y)/¾Æ´Ï¿À(N)]? <N>
          "Y"  ;;Ç÷ÔÀ» ÁøÇàÇմϱî [¿¹(Y)/¾Æ´Ï¿À(N)] <Y>:
      )
  )
  (princ)
)


(defun c:PcamPlot1 ( / 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
          "1:1"  ;; ÇÃ·Ô Ãàô ÀÔ·Â (Ãâ·Â ¹Ð¸®¹ÌÅÍ=µµ¸é ´ÜÀ§)¶Ç´Â [¸ÂÃã(F)] <¸ÂÃã>:
          "C"  ;; ÇÃ·Ô °£°Ý¶ç¿ì±â ÀÔ·Â(x,y) ¶Ç´Â [Áß½É(C)] <0.00,0.00>:
          "Y"  ;; ÇÃ·Ô ½ºÅ¸ÀÏ·Î Ç÷Ô? [¿¹(Y)/¾Æ´Ï¿À(N)] <¿¹>:
          "MONOCHROME.CTB"  ;; ÇÃ·Ô ½ºÅ¸ÀÏ Å×À̺í À̸§ ÀÔ·Â ¶Ç´Â [?] (¾øÀ¸¸é . ÀÔ·Â) <>:
          "Y"  ;; ¼±°¡ÁßÄ¡·Î Ç÷Ô? [¿¹(Y)/¾Æ´Ï¿À(N)] <¿¹>:
          "A"  ;; À½¿µ ÇÃ·Ô ¼³Á¤ ÀÔ·Â [Ç¥½ÃµÇ´Â ´ë·Î(A)/¿ÍÀ̾îÇÁ·¹ÀÓ(W)/¼û±è(H)/ºä ½ºÅ¸ÀÏ(V)/·»´õ(R)] <Ç¥½ÃµÇ´Â ´ë·Î>:
          "N"  ;;ÇÃ·Ô Ãâ·ÂÀ» ÆÄÀÏ·Î ÇϽðڽÀ´Ï±î? [¿¹(Y)/¾Æ´Ï¿À(N)] <N>:
          "N"  ;; ÆäÀÌÁö ¼³Á¤¿¡ ´ëÇÑ º¯°æ »çÇ× ÀúÀå [¿¹(Y)/¾Æ´Ï¿À(N)]? <N>
          "Y"  ;;Ç÷ÔÀ» ÁøÇàÇմϱî [¿¹(Y)/¾Æ´Ï¿À(N)] <Y>:
      )
  )
  (princ)
)


(defun c:PcamPlotC ( / 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)] <¿¹>:
          "ACAD.CTB"  ;; ÇÃ·Ô ½ºÅ¸ÀÏ Å×À̺í À̸§ ÀÔ·Â ¶Ç´Â [?] (¾øÀ¸¸é . ÀÔ·Â) <>:
          "Y"  ;; ¼±°¡ÁßÄ¡·Î Ç÷Ô? [¿¹(Y)/¾Æ´Ï¿À(N)] <¿¹>:
          "A"  ;; À½¿µ ÇÃ·Ô ¼³Á¤ ÀÔ·Â [Ç¥½ÃµÇ´Â ´ë·Î(A)/¿ÍÀ̾îÇÁ·¹ÀÓ(W)/¼û±è(H)/ºä ½ºÅ¸ÀÏ(V)/·»´õ(R)] <Ç¥½ÃµÇ´Â ´ë·Î>:
          "N"  ;;ÇÃ·Ô Ãâ·ÂÀ» ÆÄÀÏ·Î ÇϽðڽÀ´Ï±î? [¿¹(Y)/¾Æ´Ï¿À(N)] <N>:
          "N"  ;; ÆäÀÌÁö ¼³Á¤¿¡ ´ëÇÑ º¯°æ »çÇ× ÀúÀå [¿¹(Y)/¾Æ´Ï¿À(N)]? <N>
          "Y"  ;;Ç÷ÔÀ» ÁøÇàÇմϱî [¿¹(Y)/¾Æ´Ï¿À(N)] <Y>:
      )
  )
  (princ)
)


(defun c:PcamPlotC1 ( / 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
          "1:1"  ;; ÇÃ·Ô Ãàô ÀÔ·Â (Ãâ·Â ¹Ð¸®¹ÌÅÍ=µµ¸é ´ÜÀ§)¶Ç´Â [¸ÂÃã(F)] <¸ÂÃã>:
          "C"  ;; ÇÃ·Ô °£°Ý¶ç¿ì±â ÀÔ·Â(x,y) ¶Ç´Â [Áß½É(C)] <0.00,0.00>:
          "Y"  ;; ÇÃ·Ô ½ºÅ¸ÀÏ·Î Ç÷Ô? [¿¹(Y)/¾Æ´Ï¿À(N)] <¿¹>:
          "ACAD.CTB"  ;; ÇÃ·Ô ½ºÅ¸ÀÏ Å×À̺í À̸§ ÀÔ·Â ¶Ç´Â [?] (¾øÀ¸¸é . ÀÔ·Â) <>:
          "Y"  ;; ¼±°¡ÁßÄ¡·Î Ç÷Ô? [¿¹(Y)/¾Æ´Ï¿À(N)] <¿¹>:
          "A"  ;; À½¿µ ÇÃ·Ô ¼³Á¤ ÀÔ·Â [Ç¥½ÃµÇ´Â ´ë·Î(A)/¿ÍÀ̾îÇÁ·¹ÀÓ(W)/¼û±è(H)/ºä ½ºÅ¸ÀÏ(V)/·»´õ(R)] <Ç¥½ÃµÇ´Â ´ë·Î>:
          "N"  ;;ÇÃ·Ô Ãâ·ÂÀ» ÆÄÀÏ·Î ÇϽðڽÀ´Ï±î? [¿¹(Y)/¾Æ´Ï¿À(N)] <N>:
          "N"  ;; ÆäÀÌÁö ¼³Á¤¿¡ ´ëÇÑ º¯°æ »çÇ× ÀúÀå [¿¹(Y)/¾Æ´Ï¿À(N)]? <N>
          "Y"  ;;Ç÷ÔÀ» ÁøÇàÇմϱî [¿¹(Y)/¾Æ´Ï¿À(N)] <Y>:
      )
  )
  (princ)
)


 

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


°ü¸®ÀÚ 2013-02-06 (¼ö) 01:05

C:\AutoCAM\PcamHotKey.Lsp ÆÄÀϵµ
ºÁ¾ß ¾Ë ¼ö ÀÖÀ» °Í °°½À´Ï´Ù.

±×¸®°í °ü·ÃµÈ Áú¹®Àº ´ä±Û·Î ¿Ã·ÁÁÖ¼¼¿ä.

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