set LIMMAX

What I need, is to auto-set the limits of a drawing.
How could I accomplish this by setting LIMMAX by using the 'zoom extents' command ??

Thanks.

 

What I need, is to auto-set the limits of a drawing.

command ??

If I understand your question , (command "zoom" "extents") will regen to the
current drawing extents. Then you could use (setvar "limmin" (getvar
"extmin")) and (setvar "limmax" (getvar "extmax")) to make them agree. Maybe
you want to combine these operations? Then I'd suggest a keyboard macro
named ZE or somthing similar.

 

Thanks. I've tried this though, it still doesn't reset the LIMMAX.

 

The problem is with paperspace.
I need to turn off the paper background and margins temporarily, then run your 'program'. After this is done, then turn the paper margin back on.

What are the variables the control 'display paper margins' ??

 

This is what I came up with, and it seems to work.

(vlax-put (vla-get-display (vla-get-preferences (vlax-get-acad-object))) "LayoutDisplayPaper" 0)
(vlax-put (vla-get-display (vla-get-preferences (vlax-get-acad-object))) "LayoutDisplayMargins" 0)

(command "zoom" "extents")

(command "limmin" (getvar "extmin"))
(command "limmax" (getvar "extmax"))

(vlax-put (vla-get-display (vla-get-preferences (vlax-get-acad-object))) "LayoutDisplayPaper" -1)
(vlax-put (vla-get-display (vla-get-preferences (vlax-get-acad-object))) "LayoutDisplayMargins" -1)
(command "regen")