Vla-get-activepviewport

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (vla-get-activepviewport vla-object)

機能: 図面のアクティブなペーパー空間ビューポートを取得する。

引数

vla-object … VLAオブジェクト
ActivePViewport … PViewport オブジェクト。アクティブなペーパー空間ビューポート。

Memo:
ビューポートに対する変更が表示されるようにするには、このプロパティを使用してビューポートをアクティブに設定する必要がある。

戻り値: PViewport のVLAオブジェクト

サンプル

; 現在のビューポートの中心点座標
(getvar "viewctr")

; ActiveX で現在のビューポートの中心点座標
(setq *ActDoc* (vla-get-ActiveDocument (vlax-get-Acad-Object)))
(setq *actpvp* (vla-get-activepviewport *ActDoc*))
(setq vlviewctr (vlax-safearray->list
  (vlax-variant-value (vla-get-center *actpvp*)))
)

; (5.52353 4.0 0.0)


(vlax-dump-object *actpvp*)
; IAcadPViewport2: IAcadViewports インタフェース
; プロパティの値:
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00000001401691d8>
;   ArcSmoothness = 1000
;   Center = (5.52353 4.0 0.0)
;   Clipped (RO) = 0
;   CustomScale = 1.0
;   Direction = (0.0 0.0 1.0)
;   DisplayLocked = 0
;   Document (RO) = #<VLA-OBJECT IAcadDocument 000000002bfa82d0>
;   EntityTransparency = "ByLayer"
;   GridOn = 0
;   Handle (RO) = "4C2"
;   HasExtensionDictionary (RO) = 0
;   HasSheetView (RO) = 0
;   Height = 8.993
;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 0000000030a34f08>
;   LabelBlockId = 例外が発生しました。
;   LabelBlockId32 = ; エラー: 例外が発生しました: 0xC0000005 (アクセス違反)
; 警告: スキップされた個所の巻き戻しです 例外
; エラー: 例外が発生しました: 0xC0000005 (アクセス違反)