리습 질문드립니다.
아래 리습 사용해서 도면출력용으로 쓰고있는데
오토플롯은 불필요한도면까지 출력하게되고 설정하기가 어려워
아래 리습을 사용합니다.
궁금한점은
현재상태 : 리습실행후 첫번째 좌표선택후 두번쨰 좌표선택하면 자동으로 플롯이되는데
이부분을
첫번째 좌표 선택후 자동으로 원하는 상대 좌표 (ex: @3000,-2000) 좌표를
자동으로 선택하고 넘어가게 하고싶습니다.
지식이 없어 문의드립니다. 혹 아시는 분이 있으면 알려주시면 감사하겠습니다!
항상 건강하세요~
; 빠른인쇄 윈도우범위 A4
(defun c:fpt(/ lhlpnt rhhpnt)
(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
“” ;배치 이름 입력 또는 [?] <모형>
“FinePrint” ;★플롯터이름 <-사용자 파일
“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)]
“monochrome.ctb” ;★플롯설정파일 ctb <-사용자 파일
“no” ;선가중치플롯 YES
“w” ;음영플롯설정 / 표시되는 대로(A)/와이어프레임(W)/숨김(H)/뷰 스타일(V)/렌더(R)
“no” ;플롯출력을 파일로 NO
“no” ;페이지설정 저장 NO
“yes” ;플롯진행 YES
)
(princ)
) ; end of defun
(setq lhlpnt (getpoint “n 인쇄범위 선택 : “))
;
;
;
lhlpnt rhhpnt ;입력받은좌표를 표시하는거구요
(setq lhlpnt (getpoint “n 인쇄범위 선택 : “))
(setq rhhpnt (list (+ (car lhlpnt ) 3000) (- (cadr lhlpnt ) 2000))) ;(ex: @3000,-2000) 하시면 될듯
답변감사드립니다~