Topic: Set Drawing Limits To Extents

[bayoubuoy]

Sometimes I download blocks that have the drawing limits in hundreds of feet when the block is just a few inches.
I'm looking for a lisp routine to set the Drawing Limits to the values of the extents of the block (drawing).

thanks,
bayoubuoy

[Lee Mac]

Perhaps look into the EXTMIN / EXTMAX Sys Vars, and/or this.

Lee

[ronjonp]

Look at LIMMIN and LIMMAX as well.

[stevej]

I use this bit of code, although sometimes I need to run it twice for it to work, so I turn on the grid to verify.

Steve

Code: [Select]

(setq limmax (getvar "extmax"))       ;Gets drawing EXTENTS
(command "limits" "0,0" limmax)       ;Sets drawing LIMITS to drawing EXTENTS

[Lee Mac]

This?

Code: [Select]

(defun c:lim nil
  (mapcar 'setvar '(LIMMIN LIMMAX)
    (mapcar '(lambda ( x ) (reverse (cdr (reverse x))))
      (mapcar 'getvar '(EXTMIN EXTMAX))
    )
  )
)

[ronjonp]

Works here Lee.

[Lee Mac]

Works here Lee.

Good to hear Ron, thanks 

[bayoubuoy]

I use this bit of code, although sometimes I need to run it twice for it to work, so I turn on the grid to verify.

Steve

Code: [Select]

(setq limmax (getvar "extmax"))       ;Gets drawing EXTENTS
(command "limits" "0,0" limmax)       ;Sets drawing LIMITS to drawing EXTENTS

Steve,
Lurking here at The Swamp I learned enough to add a defun to your code.
Running twice does the trick.

Thanks much,
bayoubuoy

[bayoubuoy]

This?

Code: [Select]

(defun c:lim nil
  (mapcar 'setvar '(LIMMIN LIMMAX)
    (mapcar '(lambda ( x ) (reverse (cdr (reverse x))))
      (mapcar 'getvar '(EXTMIN EXTMAX))
    )
  )
)

LeeMac,
Works great.

Thanks,
bayoubuoy

[Lee Mac]

You're very welcome Bayoubuoy