Topic: Coordinates of current Zoom Window

[mailmaverick]

How to get min and max coordinates of current window in ModelSpace ? Note that (getvar "EXTMAX") and (getvar "EXTMIN") gives max and min coordinates of extents of the drawing but my requirement is current zoomwindow .

[roy_043]

You can use these sys. variables to calculate those points:
VIEWCTR
VIEWDIR
VIEWSIZE
VIEWTWIST
SCREENSIZE

And searching this forum for these vars will no doubt lead to code samples.

[mailmaverick]

Thanks a lot.

[ymg]

Try this:

Code - Auto/Visual Lisp: [Select]

1. (defun ve (/ vc vh sz vw vq ll ur)
2.   ;; = View Extents                                               ;
3.   (setq vc (getvar 'viewctr)
4.         vh (getvar 'viewsize)
5.         sz (getvar 'screensize)
6.         vw (* vh (/ (car sz) (cadr sz)))
7.         vq (mapcar '/ (list vw vh) '(2 2))
8.         ll (mapcar '- vc vq) ; Lower Left  corner of current view ;
9.         ur (mapcar '+ vc vq) ; Upper Right corner of current view ;
10.   )
11.   (list ll ur)
12. )
13.  

[Lee Mac]

Pretty much the same method as ymg:

Code - Auto/Visual Lisp: [Select]

1. ;; Viewport Extents  -  Lee Mac
2. ;; Returns two WCS points describing the lower-left and
3. ;; upper-right corners of the active viewport.
4.  
5. (defun LM:ViewportExtents ( / c h v )
6.     (setq c (trans (getvar 'viewctr) 1 0)
7.           h (/ (getvar 'viewsize) 2.0)
8.           v (list (* h (apply '/ (getvar 'screensize))) h)
9.     )
10.     (list (mapcar '- c v) (mapcar '+ c v))
11. )

[ymg]

lee,

I like the:

Code: [Select]

(apply '/ (getvar 'screensize))
Neat!

ymg

[Kerry]

That looks rather MP'ish.

[ymg]

Kerry,

That looks rather MP'ish.

Don't know if you are referring to the bit of code up there.

It could be because I don't know where it came from, had it lying in the library.

ymg

[Kerry]

I was referring to the snippet

Code - Auto/Visual Lisp: [Select]

1. (apply '/ (getvar 'screensize))

I agree it's  very neat.

[MP]

That looks rather MP'ish.

Wow Kerry, good eye. From a little over 9 years ago (last line of logic):

Code: [Select]

(defun VPCords ( )
    (   (lambda (offset)
            (   (lambda (viewctr)
                    (list
                        (mapcar '- viewctr offset)
                        (mapcar '+ viewctr offset)
                    )
                )
                (getvar "viewctr")
            )
        )
        (   (lambda (halfHeight aspectRatio)
                (list
                    (* halfHeight aspectRatio)
                    halfHeight
                )
            )
            (* 0.5 (getvar "viewsize"))
            (apply '/ (getvar "screensize"))
        )
    )
)

That said, once you achieve competence in LISP the odds one's approach will appear similar to another is rather high, so I doubt Lee lifted it from me. To wit, odds are Reni or Tony wrote something using a construct like I penned above 142 years before I did.

[Kerry]

No suggestion of 'lifting'. Just an acknowledgment of the frugality of that snippet.

I recognise better than most the likelihood of similarity ... I've been looking at this language for a long time.

added:
Regarding the 142 years  .. I'm older than Lisp so I call 'poetic licence'

[MP]

Added: Do I get points for being the same age as LISP?

[Kerry]

of course ... anyone who survived the 60's gets bonus points in my book.

[MP]

[Bhull1985]

weirdest/funniest off topic posts ive read in a long time, kudos (and the gifs)







p.s.
....old people, hehe! To make this more relevant you all aren't so old, my grandfather was programming military systems in fortran in the 50's and 60's. You were yipper-snappers then I bet



p.s.s. I think old is just another word for "experienced"