(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)
)