Topic: Get ID of clipped Viewport

[T.Willey]

<snip>

I'm not overly keen on my solution however, since, should the user wish to exit the selection prompt, he/she must hit Esc, else be trapped in the while loop 'til the heat death of the universe...

Code: [Select]

(setvar 'ErrNo 0)
(while (and (not (equal (getvar 'ErrNo) 52)) (not flag))
    (if (setq ss (ssget "_+.:S:E" '((0 . "VIEWPORT"))))
        (setq flag t)
        (princ "\n** Please Select a Viewport **")
    )
)


[Lee Mac]

Nice one Tim - I thought that only worked with entsel - happily mistaken