ActiveX 中的 Viewports collection

Free-Lancer

Help 中说明 Viewports 是 Document 中 Viewports 集合，实际上和 Layer Textstyle 等集合是不同的。

The collection of all viewports in the drawing.

VBA class name:	AcadViewports
Create using:	N/A
Access via:	Document.Viewports

用 vla-get-viewports 实际不是所有 Viewports，是只包括了一个 *Active 的集合。
找到这些Viewports 可以用以下方法

1 遍历 Paperspace ，Viewport  是 Paperspace 中的一个 Object  ，可以是在不同 *Paper_PaperSpace#
(vlax-for obj (vla-get-paperspace
        (vla-get-activedocument (vlax-get-acad-object))
          )
  (if (= (vla-get-objectname obj) "AcDbViewport")
    (setq vps (cons obj
            vps
          )
    )
  )
)

2 ssget 方法就简单了

(ssget "x" '((0 . "viewport")))

(vla-get-viewports
  (vla-get-activedocument (vlax-get-acad-object))
);_仅是 *Active