0 Members and 1 Guest are viewing this topic.
um no i'm talking about the standard viewports pulldown from view/toolbars. the pulldown puts engineering units at top and i want architectural at top.dan
mmm i'm running adt 3.3 with acad 2002 actually. the pulldown i'm talking about is located within a viewports toolbar i have. when you are in floating modelspace it allows you to easily set the vpscale but i've always found it annoying that engineering units are on the top. does that help explain itdan
^is found in plain A2K-A2K4 also. Right-click in a toolbar belonging to the ACAD menu group and choose the "Viewports" toolbar.
//zooms to precise paper space scaleszp : dialog { label = "Zoom scale"; : boxed_column { label = "zoom ps"; : list_box { allow_accept = true; key = "zoom"; list = " \n1/128\"=1'-0\"\n1/64\"=1'-0\"\n1/32\"=1'-0\"\n1/16\"=1'-0\"\n3/32\"=1'-0\"\n1/8\"=1'-0\"\n3/16\"=1'-0\"\n1/4\"=1'-0\"\n3/8\"=1'-0\"\n1/2\"=1'-0\"\n3/4\"=1'-0\"\n1\"=1'-0\"\n3\"=1'-0\"\n6\"=1'-0\"\nExtents\nPrevious\nAll\nVmax\n.9x\n2x\n.5x"; width = 5; } } ok_cancel; }
(defun c:zg () (setq zoomfactor "0") (setq zdialog (load_dialog "zoomscale")) (if (and zdialog (new_dialog "zp" zdialog)) (progn (action_tile "zoom" "(setq zoomfactor $value)") (start_dialog) (cond ((= "0" zoomfactor) ) ((= "1" zoomfactor) (setq zoomfactor "0") (command ".zoom" "1/1536xp") ;1/128"=1'-0" ) ((= "2" zoomfactor) (setq zoomfactor "1") (command ".zoom" "1/768xp") ;1/64"=1'-0" ) ((= "3" zoomfactor) (command ".zoom" "1/384xp") ;1/32"=1'-0" ) ((= "4" zoomfactor) (command ".zoom" "1/192xp") ;1/16"=1'-0" ) ((= "5" zoomfactor) (command ".zoom" "1/128xp") ;3/32"=1'-0" ) ((= "6" zoomfactor) (command ".zoom" "1/96xp") ;1/8"=1'-0" ) ((= "7" zoomfactor) (command ".zoom" "1/64xp") ;3/16"=1'-0" ) ((= "8" zoomfactor) (command ".zoom" "1/48xp") ;1/4"=1'-0" ) ((= "9" zoomfactor) (command ".zoom" "1/32xp") ;3/8"=1'-0" ) ((= "10" zoomfactor) (command ".zoom" "1/24xp") ;1/2"=1'-0" ) ((= "11" zoomfactor) (command ".zoom" "1/16xp") ;3/4"=1'-0" ) ((= "12" zoomfactor) (command ".zoom" "1/12xp") ;1"=1'-0" ) ((= "13" zoomfactor) (command ".zoom" "1/4xp") ;3"=1'-0" ) ((= "14" zoomfactor) (command ".zoom" "1/2xp") ;6"=1'-0" ) ((= "15" zoomfactor) (command ".zoom" "e") ;extents ) ((= "16" zoomfactor) (command ".zoom" "p") ;previous ) ((= "17" zoomfactor) (command ".zoom" "a") ;all ) ((= "18" zoomfactor) (command ".zoom" "v") ;vmax ) ((= "19" zoomfactor) (command ".zoom" ".9x") ;.9x ) ((= "20" zoomfactor) (command ".zoom" "2x") ;double scale ) ((= "21" zoomfactor) (command ".zoom" ".5") ;half scale ) ) ;_ cond ;(alert zoomfactor) ) ;_ progn ) ;_ if) ;_ defun