Sub Main()
Dim Session As IADSession
Dim Hook As IAutomationHook
Dim Root As IADRoot
Dim AdPart As AlibreX.IADPartSession
Hook = GetObject(, "AlibreX.AutomationHook")
Root = Hook.Root
Session = Root.TopmostSession
AdPart = Session
Dim GetCurrentViewTransform As New List(Of Double)
GetCurrentViewTransform.AddRange(AdPart.ViewTransform.Array)
Dim ADPartGeoFac As AlibreX.IADGeometryFactory
ADPartGeoFac = AdPart.GeometryFactory
Dim TopMatrix As New List(Of Double) From {
-1, 0, 0, 0,
0, 0, 1, 0,
0, 1, 0, 0,
0, 0, 0, 1
}
Dim FrontMatrix As New List(Of Double) From {
-1, 0, 0, 0,
0, 1, 0, 0,
0, 0, 1, 0,
0, 0, 0, 1
}
Dim CustomISO As New List(Of Double) From {
0.70710676908493,
0.40824830532074,
-0.577350258827209,
0,
0,
0.816496610641479,
0.577350258827209,
0,
0.70710676908493,
-0.40824830532074,
0.577350258827209,
0,
0,
0,
0,
1
}
Dim Trans As AlibreX.IADTransformation
Trans = ADPartGeoFac.CreateTransform(FrontMatrix.ToArray())
AdPart.SetViewTransform(Trans)
Trans = ADPartGeoFac.CreateTransform(TopMatrix.ToArray())
AdPart.SetViewTransform(Trans)
Trans = ADPartGeoFac.CreateTransform(GetCurrentViewTransform.ToArray())
AdPart.SetViewTransform(Trans)
Trans = ADPartGeoFac.CreateTransform(CustomISO.ToArray())
AdPart.SetViewTransform(Trans)
End Sub