Author Topic: viewport scale pulldown  (Read 9050 times)

0 Members and 1 Guest are viewing this topic.

Eloquintet

  • Gator
  • Posts: 3206
viewport scale pulldown
« on: October 24, 2003, 02:46:16 PM »
hey i was just wondering if there is a way to make architectural units appear at the top of my viewports pulldown in the viewports toolbar instead of engineering. thanks

dan
Dan

AutoCAD Architecture 2015

CADaver

  • Guest
viewport scale pulldown
« Reply #1 on: October 27, 2003, 01:14:39 PM »
Viewports pulldown??  Are you using vanilla ACAD with a custom menu?

Anonymous

  • Guest
viewport scale pulldown
« Reply #2 on: October 27, 2003, 02:16:24 PM »
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

CADaver

  • Guest
viewport scale pulldown
« Reply #3 on: October 27, 2003, 04:08:51 PM »
Quote from: Anonymous
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


Must be an R2004 thing, cuz I don't have it with R2002.

But you can edit the current MNS to show whatever you want in the pulldown, if that's what you mean.

Eloquintet

  • Gator
  • Posts: 3206
viewport scale pulldown
« Reply #4 on: October 27, 2003, 04:20:56 PM »
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 it

dan
Dan

AutoCAD Architecture 2015

CADaver

  • Guest
viewport scale pulldown
« Reply #5 on: October 28, 2003, 08:05:07 AM »
Quote from: eloquintet
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 it

dan


Ahhh... must be an ADT thing.

SMadsen

  • Guest
viewport scale pulldown
« Reply #6 on: October 28, 2003, 08:57:07 AM »
^is found in plain A2K-A2K4 also. Right-click in a toolbar belonging to the ACAD menu group and choose the "Viewports" toolbar.

Don't know how to get architectural units on top, though (quite content with having metrics on top here :) )

Added: The viewport scale is a built-in control, but I'm sure with some VB knowledge it can be tweaked or replaced by your own definition?

The menu definition is
ID_VPScale   [_Control(_ViewportScale)]

CADaver

  • Guest
viewport scale pulldown
« Reply #7 on: October 28, 2003, 09:37:42 AM »
Quote from: SMadsen
^is found in plain A2K-A2K4 also. Right-click in a toolbar belonging to the ACAD menu group and choose the "Viewports" toolbar.


I had the toolbar open and docked but the left end was off screen. duh!

SMadsen

  • Guest
viewport scale pulldown
« Reply #8 on: October 28, 2003, 11:38:42 AM »
Ahhh... must be a CADaver thing.  :lol:

CADaver

  • Guest
viewport scale pulldown
« Reply #9 on: October 28, 2003, 12:03:38 PM »
Old eyes don't work like they used to...   'specially dead ones.

t-bear

  • Guest
viewport scale pulldown
« Reply #10 on: October 28, 2003, 04:01:24 PM »
I use this a lot here and always wished there were a way to edit it or add to it with in-house scale factors.  If you guys do get around to playing with this, I'd be very interested in the results.....

Eloquintet

  • Gator
  • Posts: 3206
viewport scale pulldown
« Reply #11 on: October 28, 2003, 04:33:38 PM »
yeah it's just another minor annoyance i've always pondered. good to see i'm not the only one :D

dan
Dan

AutoCAD Architecture 2015

daron

  • Guest
viewport scale pulldown
« Reply #12 on: October 28, 2003, 06:24:35 PM »
Here. I did this before 2002 came out. Name the dcl file zoomscale.dcl. You can add whatever you want to it.
Code: [Select]
//zooms to precise paper space scales

zp : 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;
}

Code: [Select]
(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

Eloquintet

  • Gator
  • Posts: 3206
viewport scale pulldown
« Reply #13 on: October 29, 2003, 10:08:09 AM »
hey daron i'm not that great with dcl yet. how do i go about creating this? do i seperate the first bit of code from the second or put the two together in one file. sounds like what i want but just need a little assistance. thanks a bunch

dan
Dan

AutoCAD Architecture 2015

daron

  • Guest
viewport scale pulldown
« Reply #14 on: October 29, 2003, 11:03:47 AM »
The first code is the dcl file. Name it zoomscale.dcl and put in it's own file in the same folder where you'll put your lisp file. The second code is the lisp as I'm sure you can tell. Put it in its own file and name it whatever you want. I used pszoomscale.lsp. It's really designed for paperspace, but I'm sure it can be modified for both.