Points of a viewpoint

[cadconcepts]

Hi All-

Is there a way to extract the four points of standard non-polygonal viewport via lisp? Thanks.

Manuel A. Ayala

[rkmcswain]

Quick and dirty, not elegant

(setq a (entget (car (entsel))))
(setq cen (cdr (assoc 10 a)))
(setq width (cdr (assoc 40 a)))
(setq height (cdr (assoc 41 a)))
(setq ul (list
	   (- (car cen) (* 0.5 width))
	   (+ (cadr cen) (* 0.5 height)))
      ur (list
	   (+ (car cen) (* 0.5 width))
	   (+ (cadr cen) (* 0.5 height)))
      ll (list
	   (- (car cen) (* 0.5 width))
	   (- (cadr cen) (* 0.5 height)))
      lr (list
	   (+ (car cen) (* 0.5 width))
	   (- (cadr cen) (* 0.5 height)))
)      

[cadconcepts]

rkmcswain

Thank you for your assistance. I will try out the code.

Manuel

[cadconcepts]

Hi rkmcswain

Do you by any chances know how I can check if a viewport is polygonal or clipped? Thanks.

Manuel

[Opie]

Looked at the Clipped property of the viewport.

[rkmcswain]

If the viewport is non-rectangular, it is clipped.
The presence of a group 340 entry will confirm this.