; 빠른인쇄 윈도우범위 A4
(defun c:a4plt(/ lhlpnt rhhpnt) ;명령어 a4plt
(setvar "cmdecho" 0)
(princ "\n...A4 Window quick plot....")
(setq lhlpnt (getpoint "\n 인쇄범위 선택 : "))
(setq rhhpnt (getcorner lhlpnt "\n 다음 선택 : "))
;(command "zoom" lhlpnt rhhpnt)
(command "-PLOT"
"YES" ;상세한 플롯 구성 YES
"" ;배치 이름 입력 또는 [?] <모형>
"★HP LaserJet 5100 PCL 6★.pc3" ;★플롯터이름 <-사용자 파일
"A4" ;★종이 크기 A4
"Millimeters" ;용지단위 mm
"L" ;용지 방향 입력 [세로(P)/가로(L)]
"NO" ;위 아래를 뒤집어 플롯 NO
"Window" ;플롯 영역 입력 [화면표시(D)/범위(E)/한계(L)/뷰(V)/윈도우(W)]
lhlpnt rhhpnt ;플롯영역 지정
"fit" ;플롯 축척 입력 (출력 밀리미터=도면 단위)또는 [맞춤(F)]
"c" ;플롯 간격띄우기 입력(x,y) 또는 [중심(C)]
"Yes" ;플롯 스타일로 플롯? [예(Y)/아니오(N)]
"PLOT_2008.ctb" ;★플롯설정파일 ctb <-사용자 파일
"yes" ;선가중치플롯 YES
"a" ;음영플롯설정 / 표시되는 대로(A)/와이어프레임(W)/숨김(H)/뷰 스타일(V)/렌더(R)
"no" ;플롯출력을 파일로 NO
"no" ;페이지설정 저장 NO
"yes" ;플롯진행 YES
)
(princ)
) ; end of defun
'캐드리습' 카테고리의 다른 글
DLC 포함 리습 샘플 (0) | 2023.02.14 |
---|---|
도면 양식 불러오기 리습 (0) | 2023.02.14 |
레이어 변경 리습 (없으면 만들기) (0) | 2023.02.14 |
제자리 블럭 만들기 이름지정 가능 리습 (0) | 2023.02.14 |
선택점 중심에서 장공 그리기 리습 (0) | 2023.02.14 |