cad plot에서 윈도우로 지정할 때 여러 곳 지정은 안되나요?

다중플롯을 말씀하시는거라면 드림을 이용해보세요

제가 만들어서 사용하고 있는 일도다품 도면 플롯리습입니다. 제 작업환경에 맞게 만들었기 때문에 몇가지 수정하셔야 사용가능하십니다. 1. ssget으로 객체선택할때에 "DG"레이어에 있는 사각형만 인식합니다.    -dg레이어 만드시거나 리습에서 레이어명 님이 원하는대로 수정하시면 됩니다. 2.프린트가 된 사각형은 범위 주위에 확인용 사각형을 그리도록 하게 해놨는데    레이어명이 "vv" 인 레이어가 없으면 실행되지 않으니    미리 레이어를 하나 만드시고 실행하세요 3.프린터명은 디폴트프린터로 되어있으니 건드리지 않아도 되지만     용지사이즈나 스타일펜은 님 용도에 맞게 수정하세요 4.용지방향은 가로,세로를 자동으로 판단해서 인쇄합니다. 5.인쇄방향은 기본은 위에서 아래로 내려오면서 인쇄를 하는데    인쇄방향 가중치 계산하는 부분 수정하시면 좌우로 인쇄하게 할수도 있습니다.    이건 필요하시면 알아서 수정해서 쓰시길.

추가로 선택객체를 DG 레이어로 옯겨주는 리습도 올립니다. (defun c:dg(/ lsc entset OS)  ;;;;; dg 레이어 생성하기 속성변경 객체레이어변경;;;;;;;;;;;;     (defun *error* (msg)(princ "error: ")(princ msg) (setvar "osmode" os) (command "clayer" "0″) (princ) ) (setq os (getvar "osmode")) (SETQ LSC 15) ;선가중치 (command "layer" "n" "dg" "" ) ;색상은 보라색,선유형은 실선 (command "layer" "s" "dg" "c" "magenta" "dg" "s" "dg" "l" "continuous" "dg" "") (prompt "n DG 레이어로 변경 -객체세트 선택") (setq entset (ssget)) (command "change" entset ""  "p" "layer" "dg" "") (command "change" "pre" "" "pro" "lt" "bylayer" "c" "bylayer" "s" lsc "") (command "clayer" "0″) (PROMPT "선택객체를  DG 레이어로 변경") (PRINC)  )

아. 그리고 추가로 하나 더 드립니다. 이 리습은 사각형을 그리는데 아예 처음부터 DG레이어에 그려줍니다. (defun c:ree( / POINT1 POINT2 )  ;;;;;;;;;;;;;;;; DG레이어에 렉탱글 그리기

 (setq point1 (getpoint "n 첫번째 모서리 선택 : "))   (setq point2 (getcorner point1 "n 두번째 모서리 선택 : "))   (command "rectangle" POINT1 POINT2 )

(setq entset (ENTlast)) (command "change" entset ""  "p" "layer" "DG" "") (command "change" "pre" "" "pro" "lt" "bylayer" "c" "bylayer" "s" lsc "")   (command "clayer" "0″)          (PRINC) )

저처럼 일도다품도면 작업많이 하시는 분들은 이 리습 세가지만 있으면 플롯은 거저 먹을 수 있음.   

그리고 마지막으로 자동 플롯말고 윈도우범위만 찍어서 프린트하실려면 이거 쓰시는게 더 편하십니다. 써보시면 아시겠지만 우주최강리습임을 자신합니다.

(defun c:44(/ lhlpnt rhhpnt OS POINT1 POINT2 point1x point1y point2x point2y disx disy ) ; 빠른인쇄   (defun *error* (msg)(princ "error: ")(princ msg) (setvar "osmode" os) (command "clayer" "0″) (princ) ) (setq os (getvar "osmode"))

 ; (Setvar "OSMODE" 47)

  (princ "n…A4 Window quick plot….")

(while ( > 1 0)   (setvar "cmdecho" 0)   (setq point1 (getpoint "n 인쇄범위의 좌상귀 선택  :  "))   (setq point2 (getcorner point1 "n 우하귀 선택  :  "))

(setq point1x (car point1)       point1y (cadr point1)       point2x (car point2)       point2y (cadr point2)) (setq disx ( * ( – point1x point2x) ( – point1x point2x) )       disy ( * ( – point1y point2y) ( – point1y point2y) ))     (if ( > disx disy)       (command "-PLOT"  "Y"  ""  "DEfault Windows System Printer.PC3″ "A4″ "Millimeters" "L" "NO" "Window" point1 point2 "fit" "c"  "Yes" "monochrome.ctb" "yes" "a" "no" "no" "yes" )       (command "-PLOT"  "Y"  ""  "DEfault Windows System Printer.PC3″ "A4″ "Millimeters" "p" "NO" "Window" point1 point2 "fit" "c"  "Yes" "monochrome.ctb" "yes" "a" "no" "no" "yes" )     )   (setvar "cmdecho" 1)   (princ) ); while end       ) ; end of defun   ;