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