Hi
An old post
I found a another solution
(defun view(/ doc ent fen sau vie)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(vlax-for lay (vla-get-layouts doc)
(setq vie nil
sau nil
)
(vlax-for ent (vla-get-block lay)
(if (and sau
(eq (vla-get-objectname ent) "AcDbViewport")
)
(setq vie (cons ent vie))
(setq sau T)
)
)
(and vie
(setq fen (cons (list (vla-get-name lay) vie) fen))
)
)
fen
)
return a list with name of layout and a list of viewport
Example
(("Layout1" (#<VLA-OBJECT IAcadPViewport2 15148314>))
("Layout2" (#<VLA-OBJECT IAcadPViewport2 15148c64>))
("Layout3" (#<VLA-OBJECT IAcadPViewport2 151721a4> #<VLA-OBJECT IAcadPViewport2 15174c64>))
)
@+