;;; ;;; Author: Henry C. Francis ;;; 425 N. Ashe St. ;;; Southern Pines, NC 28387 ;;; ;;; http://www.paracadd.com ;;; All rights reserved. ;;; ;;; Copyright: ;;; Edited: ;;; (DEFUN C:MSVIEW () ;;; (vl-load-com) (IF ukword NIL (LOAD "ukword" "\nFile UKWORD.LSP not loaded! ") ) ;_ end of IF (IF (EQ (GETVAR "tilemode") 0) (PROGN (SETQ msview-stat (ukword 1 "Continue Quit" "Make the profile view current before continuing. [Continue/Quit]" "Continue" ) ;_ end of ukword ) ;_ end of setq (IF (EQ msview-stat "Continue") (PROGN (SETQ curvno (GETVAR "cvport")) (SETQ msviewctr (GETVAR "VIEWCTR")) (SETVAR "tilemode" 1) ;;; (vla-put-MSpace (vla-get-Activedocument (vlax-get-Acad-Object)) ;;; :vlax-true) (IF vpbnd NIL (LOAD "vpbnd" "\nFile VPBND.LSP not loaded! ") ) ;_ end of IF (vpbnd) (IF (SETQ xrs_twist (VL-BB-REF 'bb_xrs_twist)) NIL (SETQ xrs_twist (GETVAR "viewtwist")) ) ;_ end of IF (IF (AND (OR min_x_val (SETQ min_x_val (VL-BB-REF 'bb_min_x_val)) ) ;_ end of OR (OR min_y_val (SETQ min_y_val (VL-BB-REF 'bb_min_y_val)) ) ;_ end of OR (OR max_x_val (SETQ max_x_val (VL-BB-REF 'bb_max_x_val)) ) ;_ end of OR (OR max_y_val (SETQ max_y_val (VL-BB-REF 'bb_max_y_val)) ) ;_ end of OR ) ;_ end of AND (PROGN (COMMAND ".zoom" "w" (LIST min_x_val min_y_val) (LIST max_x_val max_y_val) ) ;_ end of COMMAND ) ;_ end of PROGN (PROGN (COMMAND ".zoom" "c" msviewctr "") ) ;_ end of PROGN ) ;_ end of IF (IF (AND xrs_twist (NOT (EQUAL xrs_twist (GETVAR "viewtwist") 0.001)) ) ;_ end of AND (PROGN (SETQ restore_viewtwist (ukword 1 "Yes No" "Do you want to set the viewtwist here to match the viewport? [Yes/No]" (IF restore_viewtwist restore_viewtwist "No" ) ;_ end of IF ) ;_ end of ukword ) ;_ end of SETQ (IF (EQ restore_viewtwist "Yes") (PROGN (COMMAND "dview" "" "tw" (* 180.0 (/ xrs_twist PI)) "" "" ) ;_ end of COMMAND (IF C:TSNAP NIL (LOAD "tsnap" "\n File TSNAP.LSP not loaded! ") ) ;_ end of IF (c:tsnap) ) ;_ end of PROGN ) ;_ end of IF ) ;_ end of PROGN ) ;_ end of IF ) ;_ end of PROGN ) ;_ end of IF ) ;_ end of PROGN (PROGN (ALERT "This function must be called from paperspace") ) ;_ end of PROGN ) ;_ end of IF ) ;_ end of DEFUN ;|«Visual LISP© Format Options» (72 2 40 2 T "end of " 60 9 0 0 0 T T T T) ;*** DO NOT add text below the comment! ***|;