How to get co-ordinated of bottom left & Top right

[jitesh789]

I am attaching a sample dwg file 1.dwg for reference. I want to find the co-ordinates of Bottom left (i.e P4) and the co-ordinates of Top Right (i.e P2). These co-ordinates are to be use in a lisp routine i am making for batch plotting drawings of same size (say A1) in model space but with different insertion points.
Kindly try to help me with this problem

[alanjt]

This should help you..

(ACET-GEOM-SS-EXTENTS (ssget) 0.1)

(ACET-GEOM-SS-EXTENTS-ACCURATE(ssget))

(ACET-GEOM-SS-EXTENTS-FAST(ssget))

[jitesh789]

I am attaching my lisp for plotting of A1 sheets how can i use this code in the lisp kindly tell me.

[irneb]

First select everything in model space to a saved selection set:

(setq ss (ssget "_X" '((410 . "Model"))))

Then pass that to one of the functions, e.g.

(setq bounds (ACET-GEOM-SS-EXTENTS ss 0.1))

This returns a list containing 2 points. If I run it on your sample drawing I get:

((560.385 178.788 -1.0e-008) (1414.27 766.163 1.0e-008))

The 1st (i.e. car) is the bottom left, and the 2nd (i.e. cadr) is the top right.There's some very small Z values due to the fuzzyness of 0.1. You can omit this by modifying the points, e.g.

(setq pt1 (list (car (car bounds)) (cadr (car bounds)) 0.0)
      pt2 (list (car (cadr bounds)) (cadr (cadr bounds)) 0.0)
)

This generates a "rectangle" bounds across everything in model space - i.e. everything is contained within that rectangle.

However, you seem to already have a border. Would you rather have this for the border? In which case change the ssget to:

(princ "\nSelect border: ")
(setq ss (ssget))

[RobertB]

Of course, what's wrong with plotting from a layout? They've only been around for over a decade.

[alanjt]

Of course, what's wrong with plotting from a layout? They've only been around for over a decade.

Here here, I can't imagine going back to plotting from model.

[Tom Beauford]

I am attaching a sample dwg file 1.dwg for reference. I want to find the co-ordinates of Bottom left (i.e P4)

(getvar "extmin")

and the co-ordinates of Top Right (i.e P2)

(getvar "extmax")

. These co-ordinates are to be use in a lisp routine i am making for batch plotting drawings of same size (say A1) in model space but with different insertion points.
Kindly try to help me with this problem

Paper Space came with R11, I started on R12 about 17 years ago. I've done a few plots from Model over the years, just for looking at never for a finished drawing.