> Set Viewports Example (VBA)

Set Viewports Example (VBA)

This example shows how to set viewports and check and change whether they're linked.

'--------------------------------------------------------------------------
' Preconditions:
' 1. Open public_documents\samples\tutorial\introtosw\pressure_plate.sldprt.
' 2. Set some breakpoints (e.g., before and after panning the viewports).
' 3. Open the Immediate window.
' 4. Press F5 at each breakpoint.
'
' Postconditions:
' 1. Sets viewport arrangement to Two View-Horizontal (* Top viewport is
'    panned; bottom viewport also panned because it is linked to top
'    viewport).
' 3. Unlinks viewports (Top viewport is panned; bottom view isn't panned
'    because viewports were unlinked).
' 4. Sets viewport arrangement to a single viewport.
' 5. Examine the Immediate window.
'
' NOTE: Because this part is used elsewhere, do not save changes.
'--------------------------------------------------------------------------

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swModelViewManager As SldWorks.ModelViewManager

Dim swModelView As SldWorks.ModelView

Sub main()

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

' Set the viewport arrangement to Two View-Horizontal

Debug.Print "Set viewport arrangement to Two View-Horizontal..."

Set swModelViewManager = swModel.ModelViewManager

swModelViewManager.ViewportDisplay = swViewportDisplay_e.swViewportTwoViewHorizontal

' Check to see if the viewports are linked

Debug.Print "Are viewports linked? " & swModelViewManager.LinkedViews

' Pan the model in the top viewport

' The model in the bottom viewport also pans

' because it's linked to the top viewport

Debug.Print "Panning the model in top viewport; model in bottom viewport also pans because the viewports are linked..."

Set swModelView = swModel.ActiveView

swModelView.TranslateBy -5.535897435897E-04, 0

swModelView.TranslateBy -5.535897435897E-04, 0

swModelView.TranslateBy -5.535897435897E-04, 5.535897435897E-04

swModelView.TranslateBy -0.003875128205128, 0.001660769230769

swModelView.TranslateBy -0.004982307692308, 5.535897435897E-04

swModelView.TranslateBy -0.005535897435897, 5.535897435897E-04

swModelView.TranslateBy -0.007196666666667, 0

swModelView.TranslateBy -0.006089487179487, 0

swModelView.TranslateBy -0.006643076923077, 0

swModelView.TranslateBy -0.004982307692308, 0

swModelView.TranslateBy -0.005535897435897, 0

swModelView.TranslateBy -0.002214358974359, 0

swModelView.TranslateBy -5.535897435897E-04, 0

swModelView.TranslateBy 0, -5.535897435897E-04

swModelView.TranslateBy 0, -0.001107179487179

swModelView.TranslateBy 0.001107179487179, -0.002214358974359

swModelView.TranslateBy 0.001660769230769, -0.004982307692308

swModelView.TranslateBy 0.002214358974359, -0.006643076923077

swModelView.TranslateBy 0.001660769230769, -0.006089487179487

swModelView.TranslateBy 0.001107179487179, -0.003321538461538

swModelView.TranslateBy 0, -0.001107179487179

swModelView.TranslateBy 0, 5.535897435897E-04

swModelView.TranslateBy 0, 0.001107179487179

swModelView.TranslateBy 5.535897435897E-04, 5.535897435897E-04

swModelView.TranslateBy 0.001107179487179, 0.003875128205128

swModelView.TranslateBy 0.002767948717949, 0.004428717948718

swModelView.TranslateBy 0.002214358974359, 0.006643076923077

swModelView.TranslateBy 0.002767948717949, 0.005535897435897

swModelView.TranslateBy 0.003875128205128, 0.006643076923077

swModelView.TranslateBy 0.002214358974359, 0.004428717948718

swModelView.TranslateBy 0, 0.001107179487179

swModelView.TranslateBy -5.535897435897E-04, 0

swModelView.TranslateBy -5.535897435897E-04, 0

swModelView.TranslateBy -0.001660769230769, 0

swModelView.TranslateBy -0.003875128205128, 5.535897435897E-04

swModelView.TranslateBy -0.01328615384615, 0.002767948717949

swModelView.TranslateBy -0.01328615384615, 0.002767948717949

swModelView.TranslateBy -0.0160541025641, 0.003321538461538

swModelView.TranslateBy -0.01273256410256, 0.003321538461538

swModelView.TranslateBy -0.006643076923077, 0.001660769230769

swModelView.TranslateBy -0.002767948717949, 5.535897435897E-04

swModelView.TranslateBy 5.535897435897E-04, 0

swModelView.TranslateBy 0.002767948717949, 0

swModelView.TranslateBy 0.008857435897436, -5.535897435897E-04

swModelView.TranslateBy 0.02435794871795, -0.001660769230769

swModelView.TranslateBy 0.03044743589744, -0.002214358974359

swModelView.TranslateBy 0.01826846153846, -0.004428717948718

swModelView.TranslateBy 0.01217897435897, -0.004982307692308

swModelView.TranslateBy 0.004428717948718, -0.004982307692308

swModelView.TranslateBy 0.001660769230769, -0.003875128205128

swModelView.TranslateBy 0, -0.001660769230769

swModelView.TranslateBy 5.535897435897E-04, -5.535897435897E-04

swModelView.TranslateBy 0.001660769230769, 0

swModelView.TranslateBy 0.002214358974359, 0

swModelView.TranslateBy 0.008303846153846, 0.001107179487179

swModelView.TranslateBy 0.009411025641026, 0.004428717948718

swModelView.TranslateBy 0.01328615384615, 0.008303846153846

swModelView.TranslateBy 0.003875128205128, 0.007750256410256

swModelView.TranslateBy -0.002767948717949, 0.007750256410256

swModelView.TranslateBy -0.006643076923077, 0.003875128205128

swModelView.TranslateBy -0.006643076923077, 0

swModelView.TranslateBy -0.006089487179487, 0

swModelView.TranslateBy -0.008857435897436, 0

swModelView.TranslateBy -0.006643076923077, -0.001107179487179

swModelView.TranslateBy -0.002767948717949, -0.003321538461538

swModelView.TranslateBy -0.001660769230769, -0.001660769230769

swModelView.TranslateBy -5.535897435897E-04, -0.001107179487179

swModelView.TranslateBy 0, -5.535897435897E-04

swModelView.TranslateBy 0, 5.535897435897E-04

swModelView.TranslateBy 0, 5.535897435897E-04

' Fit the model in each viewport

swModel.ViewZoomtofit2

' Unlink the viewports

Debug.Print "Unlink the viewports..."

swModelViewManager.LinkedViews = False

Debug.Print "Are viewports linked? " & swModelViewManager.LinkedViews

' Pan the model in the top viewport

' The model in the bottom viewport doesn't pan

' because it's no longer linked to the top viewport

Debug.Print "Panning the model in top viewport; model in bottom viewport doesn't pan because the viewports are no longer linked..."

Set swModelView = swModel.ActiveView

swModelView.TranslateBy -5.535897435897E-04, 0

swModelView.TranslateBy -5.535897435897E-04, 0

swModelView.TranslateBy -5.535897435897E-04, 5.535897435897E-04

swModelView.TranslateBy -0.003875128205128, 0.001660769230769

swModelView.TranslateBy -0.004982307692308, 5.535897435897E-04

swModelView.TranslateBy -0.005535897435897, 5.535897435897E-04

swModelView.TranslateBy -0.007196666666667, 0

swModelView.TranslateBy -0.006089487179487, 0

swModelView.TranslateBy -0.006643076923077, 0

swModelView.TranslateBy -0.004982307692308, 0

swModelView.TranslateBy -0.005535897435897, 0

swModelView.TranslateBy -0.002214358974359, 0

swModelView.TranslateBy -5.535897435897E-04, 0

swModelView.TranslateBy 0, -5.535897435897E-04

swModelView.TranslateBy 0, -0.001107179487179

swModelView.TranslateBy 0.001107179487179, -0.002214358974359

swModelView.TranslateBy 0.001660769230769, -0.004982307692308

swModelView.TranslateBy 0.002214358974359, -0.006643076923077

swModelView.TranslateBy 0.001660769230769, -0.006089487179487

swModelView.TranslateBy 0.001107179487179, -0.003321538461538

swModelView.TranslateBy 0, -0.001107179487179

swModelView.TranslateBy 0, 5.535897435897E-04

swModelView.TranslateBy 0, 0.001107179487179

swModelView.TranslateBy 5.535897435897E-04, 5.535897435897E-04

swModelView.TranslateBy 0.001107179487179, 0.003875128205128

swModelView.TranslateBy 0.002767948717949, 0.004428717948718

swModelView.TranslateBy 0.002214358974359, 0.006643076923077

swModelView.TranslateBy 0.002767948717949, 0.005535897435897

swModelView.TranslateBy 0.003875128205128, 0.006643076923077

swModelView.TranslateBy 0.002214358974359, 0.004428717948718

swModelView.TranslateBy 0, 0.001107179487179

swModelView.TranslateBy -5.535897435897E-04, 0

swModelView.TranslateBy -5.535897435897E-04, 0

swModelView.TranslateBy -0.001660769230769, 0

swModelView.TranslateBy -0.003875128205128, 5.535897435897E-04

swModelView.TranslateBy -0.01328615384615, 0.002767948717949

swModelView.TranslateBy -0.01328615384615, 0.002767948717949

swModelView.TranslateBy -0.0160541025641, 0.003321538461538

swModelView.TranslateBy -0.01273256410256, 0.003321538461538

swModelView.TranslateBy -0.006643076923077, 0.001660769230769

swModelView.TranslateBy -0.002767948717949, 5.535897435897E-04

swModelView.TranslateBy 5.535897435897E-04, 0

swModelView.TranslateBy 0.002767948717949, 0

swModelView.TranslateBy 0.008857435897436, -5.535897435897E-04

swModelView.TranslateBy 0.02435794871795, -0.001660769230769

swModelView.TranslateBy 0.03044743589744, -0.002214358974359

swModelView.TranslateBy 0.01826846153846, -0.004428717948718

swModelView.TranslateBy 0.01217897435897, -0.004982307692308

swModelView.TranslateBy 0.004428717948718, -0.004982307692308

swModelView.TranslateBy 0.001660769230769, -0.003875128205128

swModelView.TranslateBy 0, -0.001660769230769

swModelView.TranslateBy 5.535897435897E-04, -5.535897435897E-04

swModelView.TranslateBy 0.001660769230769, 0

swModelView.TranslateBy 0.002214358974359, 0

swModelView.TranslateBy 0.008303846153846, 0.001107179487179

swModelView.TranslateBy 0.009411025641026, 0.004428717948718

swModelView.TranslateBy 0.01328615384615, 0.008303846153846

swModelView.TranslateBy 0.003875128205128, 0.007750256410256

swModelView.TranslateBy -0.002767948717949, 0.007750256410256

swModelView.TranslateBy -0.006643076923077, 0.003875128205128

swModelView.TranslateBy -0.006643076923077, 0

swModelView.TranslateBy -0.006089487179487, 0

swModelView.TranslateBy -0.008857435897436, 0

swModelView.TranslateBy -0.006643076923077, -0.001107179487179

swModelView.TranslateBy -0.002767948717949, -0.003321538461538

swModelView.TranslateBy -0.001660769230769, -0.001660769230769

swModelView.TranslateBy -5.535897435897E-04, -0.001107179487179

swModelView.TranslateBy 0, -5.535897435897E-04

swModelView.TranslateBy 0, 5.535897435897E-04

swModelView.TranslateBy 0, 5.535897435897E-04

' Change the viewport arrangement back to a single viewport

swModelViewManager.ViewportDisplay = swViewportDisplay_e.swViewportSingle

' Fit the model in the viewport

swModel.ViewZoomtofit2

End Sub

Search 'Set Viewports Example (VBA)' in the SOLIDWORKS Knowledge Base.

Provide feedback on this topic

SOLIDWORKS welcomes your feedback concerning the presentation, accuracy, and thoroughness of the documentation. Use the form below to send your comments and suggestions about this topic directly to our documentation team. The documentation team cannot answer technical support questions. Click here for information about technical support.

* Required


*Email:
Subject:		Feedback on Help Topics
Page:		Set Viewports Example (VBA)
*Comment:
*		I acknowledge I have read and I hereby accept the privacy policy under which my Personal Data will be used by Dassault Systèmes

Cancel

Print Topic

Select the scope of content to print:

This topic and all topics linked from this topic

Just this topic

This topic and only immediate topics under it

This selected topic and all subtopics

Cancel

We have detected you are using a browser version older than Internet Explorer 7. For optimized display, we suggest upgrading your browser to Internet Explorer 7 or newer.

Never show this message again

Web Help Content Version: API Help (English only) 2018 SP05

To disable Web help from within SOLIDWORKS and use local help instead, click Help > Use SOLIDWORKS Web Help.

To report problems encountered with the Web help interface and search, contact your local support representative. To provide feedback on individual help topics, use the “Feedback on this topic” link on the individual topic page.