FlipCROViewByAxis Method

Description

Flips the CAD Reporting Object view along the axis passed.

Syntax

Visual Basic
Public Function FlipCROViewByAxis( _ ByVal _axisToUse As Integer _ ) As Long

Parameters

_axisToUse

Integer value of 0, 1, or 2:

0 - X axis

1 - Y axis

2 - Z axis

Return Type

Returns 1 if the flip succeeds and 0 otherwise.

Example

Flips the CRO view along an axis, based on user input.

Example (Visual Basic)

Sub Main
  Dim App As Object
  Set App = CreateObject ("PCDLRN.Application")
  Dim Part As Object
  Set Part = App.ActivePartProgram
Dim RprtWindow As Object
Set RprtWindow = Part.ReportWindow
Dim Pages As Object
Set Pages = RprtWindow.Pages
Dim Page As Object
Set Page = Pages.Item(1)
Dim RptControls As Object
Set RptControls = Page.ReportControls
Dim Control As Object
Dim Cmd As Object
Dim Count As Integer
Count = RptControls.Count
Dim Index As Integer
Index = 1
While (index <=Count)
  Set Control = RptControls.itemControl (index) 
  If Control.Type = 26514 Then
   intFlip = InputBox ("CRO Found with ID: " & Control.id & " Type 0 to flip it along the X axis. Type 1 to flip it along the Y axis. Type 2 to flip it along the Z axis.","Flip CRO by Axis")
   Control.FlipCROViewByAxis intFlip
   RprtWindow.RefreshReport
  End If
  index = index+1
Wend
End Sub