프로그램
캐드 분류

리습 질문드립니다. 플롯 좌표선택 입니다.

컨텐츠 정보

  • 195 조회
  • 2 댓글
  • 0 추천
  • 0 비추천
  • 목록

본문

리습 질문드립니다. 
아래 리습 사용해서 도면출력용으로 쓰고있는데
오토플롯은 불필요한도면까지 출력하게되고 설정하기가 어려워 
아래 리습을 사용합니다.
궁금한점은 
현재상태 : 리습실행후 첫번째 좌표선택후 두번쨰 좌표선택하면 자동으로 플롯이되는데 
이부분을
첫번째 좌표 선택후 자동으로 원하는 상대 좌표 (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
 

관련자료

댓글 2 / 1 페이지

자유천지님의 댓글

(setq lhlpnt (getpoint "n 인쇄범위 선택 : "))

(setq rhhpnt (getcorner lhlpnt "n 다음 선택 : ")) 이부분이 좌표지정 입니다 ; ; ; lhlpnt rhhpnt ;입력받은좌표를 표시하는거구요 (setq lhlpnt (getpoint "n 인쇄범위 선택 : ")) (setq rhhpnt (list (+ (car  lhlpnt ) 3000) (- (cadr  lhlpnt ) 2000))) ;(ex: @3000,-2000) 하시면 될듯

 

전체 6,913 / 1 페이지
번호
제목
이름
알림 0