0 Members and 1 Guest are viewing this topic.
(SETQ PSIZ "LETTER" PORT "LANDSCAPE" PSTN "MINE.CTB" )
(SETQ PSIZ "LETTER (8.5 x 11)" PORT "LANDSCAPE" PSTN "MINE.CTB")
(DEFUN C:ZPLOT (/ LPGE NOFP OFRM PORT PRTR PSIZ PSTN STDP VNAM) ; DEFUN C:ZPLOT WITH VARIABLES FOR ; LPGE = LAST PAGE TO PLOT ; NOFP = NAME OF PRINTER ; OFRM = OUTPUT FORMAT ; PORT = PLOT ORIENTATION (LANDSCAPE OR ; PORTRAIT) ; PRTR = PRINTER TO USE (BY AREA) ; PSIZ = PAPER SIZE (11X17 OR LETTER) ; PSTN = PLOT STYLE TABLE NAME ; (LOZIER.CTB OR LOZIERII.CTB) ; STDP = STANDARD PLOT ; VNAM = VIEW NAME ( 1, 2, 3,.........20) (SETVAR "CMDECHO" 0) (INITGET "E T D") (SETQ PRTR (GETKWORD (STRCAT "\nPlot to printer in " "Engineering/meTal/wooD. [E/T/D] " "<meTal>: " ) ) ) ; REQUEST PRINTER TO USE (PRTR) (COND ((EQUAL PRTR "E") (SETQ NOFP "MODFT2_HP5SI") ) ((EQUAL PRTR "D") (SETQ NOFP "MODFT1_HP4V") ) ((OR (NULL PRTR) (EQUAL PRTR "T") ) (SETQ NOFP "MODFT1_HP5SI") ) ) (INITGET "V H B") (PRINC "\nChoose format for output: ") (SETQ OFRM (GETKWORD (STRCAT "\naVertical/aHorizontal/Bsize " "[V/H/B] <Bsize>: " ) ) ) ; REQUEST OUTPUT FORMAT (OFRM) (COND ; BEGIN OUTPUT FORMAT TEST CONDITIONS ((EQUAL OFRM "V") ; OFRM = AVERTICAL? (SETQ PSIZ "LETTER)" PORT "PORTRAIT" PSTN "MINEII.CTB" ) ) ((EQUAL OFRM "H") ; OFRM = AHORIZONTAL? (SETQ PSIZ "LETTER)" PORT "LANDSCAPE" PSTN "MINEII.CTB" ) ) ((OR ; OFRM = NULL OR BSIZE? (NULL OFRM) (EQUAL OFRM "B") ) (SETQ PSIZ "11X17" PORT "LANDSCAPE" PSTN "WOOD.CTB" ) ) ) ; END OUTPUT FORMAT TEST CONDITIONS (INITGET (+ 2 4)) (SETQ VNAM (GETINT "\nEnter first View Name to plot <1>: ")) (IF (NULL VNAM) (SETQ VNAM 1) ) (INITGET (+ 2 4)) (SETQ LPGE (GETINT "\nEnter last View Name to plot <1>: ")) (IF (NULL LPGE) (SETQ LPGE 1) ) (WHILE ; BEGIN PLOT WHILE (<= VNAM LPGE) (COMMAND "-PLOT" "YES" "MODEL" NOFP PSIZ "INCHES" PORT "NO" "VIEW" VNAM "FIT" "CENTER" "YES" PSTN "YES" "NO" "NO" "NO" "YES" ) (SETQ VNAM (1+ VNAM)) ) ; END PLOT WHILE (SETVAR "CMDECHO" 1) (PRINC "\nPlotting Complete. ") (PRINC))
-plotyesmodelMODFT1_HP5SI.PC3LETTER (8.5" X 11")incheslandscapenoview1fit0,0yeslozierii.ctbyesnononoyes