Vla-get-activepviewport

提供:GizmoLabs - だいたい CAD LISP なサイト
2013年11月6日 (水) 12:42時点におけるGizmon (トーク | 投稿記録)による版
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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 (アクセス違反)


関連事項