Send Topic Feedback | See Object Hierarchy Chart
PC-DMIS 2023.2 Object Library
PCDLRN ActiveX DLL > ReportControl Object : FlipCROViewByAxis Method

Integer value of 0, 1, or 2:

0 - X axis

1 - Y axis

2 - Z axis

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.
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
See Also