Thanks to both of you. After doing this for so many years,
I'm just like a frog in the well, I should have gone into a discussion group
sooner.
danny
"Ben Maki" wrote in message
news:1E3EA2812101C0C8A3E9C173196387FD@in.WebX.maYIadrTaRb...
> You don't need to create a dimstyle for a strict drawing scale. Set up
the
> dimstyle so that it works at 1:1, then use the DIMSCALE variable to scale
> the dimensions to whatever you need.
>
> Here is a routine that will zoom the viewport to whatever the dimscale
is...
>
> ;;short routine for zooming to the dimscale
> (defun c:zsd (/ scl vpl)
> (setq scl (strcat "1/" (rtos (getvar "dimscale") 2 0) "xp"))
> (command "ZOOM" scl)
> (princ (strcat "\nZoomed to " (rtos (getvar "dimscale") 2 0) " scale."))
> (princ)
> )
>
> --
> Ben Maki
> NDC Inc.
>
>
> "danny" wrote in message
> news:42E20342BC4BEDA82A9FB25D881BCC35@in.WebX.maYIadrTaRb...
> > Just wondering is there a lisp routine to do this:
> >
> > eg: I created a dim style call '50xp' & values of settings are in
relation
> > or proportion to a scale drawing of 1:50.
> > So when I used a scale 1/50xp in my drawing, the lisp routine can
> > automatically changed the dimstyle to my customised '50xp' dim style
> (which
> > all the values are meant for this scale of 1:50)
> > This routine should also work with other scale factors.
> >
> > Any help is appreciated.
> >
> > Thanks,
> >
> > danny
> >
> >
> >
> >
>
>