;; C:/AutoCAM/pcamplot.lsp 파일내용

(setq plotname "Samsung CLP-320 Series") ;; 사용자 설정부분 (컴퓨터마다 다릅니다)

;;==============================================================================
;; 흑백출력 : 용지에 맞게
;;==============================================================================
(defun c:PcamPlot ( / p1 p2 plotname papersiz lpmode)
  
  (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)
)

;;=============================================================================
;; 흑백 1:1 출력
;;=============================================================================
(defun c:PcamPlot1 ( / p1 p2 plotname papersiz lpmode)
  
  (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 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)
)

;;==============================================================================
;; 컬러출력 1:1
;;==============================================================================
(defun c:PcamPlotC1 ( / p1 p2 plotname papersiz lpmode)
  
  (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)
)