Function POEksenYonleri(PO As Object)
Dim dirc(2, 2) As Double
PO.MachiningAxisSystem.GetOriginXDirection dirc(0, 0), dirc(0, 1), dirc(0, 2)
PO.MachiningAxisSystem.GetOriginYDirection dirc(1, 0), dirc(1, 1), dirc(1, 2)
PO.MachiningAxisSystem.GetOriginZDirection dirc(2, 0), dirc(2, 1), dirc(2, 2)
POEksenYonleri = dirc
End Function

Function MFGIslemeYonu(MFG As Object)
Dim dirc(2) As Double
MFG.GetToolAxis dirc(0), dirc(1), dirc(2)
MFGIslemeYonu = dirc
End Function


Sub KameraAl()
Dim Viewer1 As Viewer
Set Viewer1 = CATIA.ActiveWindow.ActiveViewer
Dim viewpoint3D1
Set viewpoint3D1 = Viewer1.Viewpoint3D

Dim origin1(2)
viewpoint3D1.GetOrigin origin1 'gets the origin or "target" of the view
Debug.Print "Origin X: " & origin1(0)
Debug.Print "Origin Y: " & origin1(1)
Debug.Print "Origin Z: " & origin1(2)

Dim sight1(2)
viewpoint3D1.GetSightDirection sight1 'gets the sight direction of the current view
Debug.Print "SightDirection X: " & sight1(0)
Debug.Print "SightDirection Y: " & sight1(1)
Debug.Print "SightDirection Z: " & sight1(2)

Dim upright1(2)
viewpoint3D1.GetUpDirection upright1 'gets the up direction of the current view"camera"
Debug.Print "UpDirection X: " & upright1(0)
Debug.Print "UpDirection Y: " & upright1(1)
Debug.Print "UpDirection Z: " & upright1(2)

Debug.Print "Focus Distance: " & viewpoint3D1.FocusDistance
Debug.Print "Zoom: " & viewpoint3D1.Zoom
End Sub

Sub KameraAyarla()
Dim Viewer1 As Viewer
Set Viewer1 = CATIA.ActiveWindow.ActiveViewer
Dim viewpoint3D1
Set viewpoint3D1 = Viewer1.Viewpoint3D

Dim origin1(2)
origin1(0) = 386.294189453125
origin1(1) = 1583.26831054688
origin1(2) = 741.564147949219
viewpoint3D1.PutOrigin origin1 'gets the origin or "target" of the view

Dim sight1(2)
sight1(0) = -0.268800288438797
sight1(1) = -0.861103296279907
sight1(2) = -0.431564122438431
viewpoint3D1.GetSightDirection sight1 'gets the sight direction of the current view

Dim upright1(2)
upright1(0) = -3.40001583099365E-02
upright1(1) = -0.439292401075363
upright1(2) = 0.897700548171997
viewpoint3D1.GetUpDirection upright1 'gets the up direction of the current view"camera"

viewpoint3D1.FocusDistance = 1679.31018066406
viewpoint3D1.Zoom = 2.22237198613584E-03


Viewer1.Rotate upright1, -1

Viewer1.Update

End Sub






















Sub AptUret(MFG As Object, AptDosyasi As String)
Dim outputGen As ManufacturingOutputGenerator
Dim genData As ManufacturingGeneratorData

Set outputGen = MFG
outputGen.InitFileGenerator "APT", AptDosyasi, genData
outputGen.RunFileGenerator genData
genData.ResetAllModalValues
End Sub

Function MfgActivityToProgram(MfgActivity As Object) As ManufacturingProgram
Dim rslt As ManufacturingProgram
Set rslt = MfgActivity
MfgActivityToProgram = rslt
End Function

Function POEksenYonleri(PO As Object)
Dim dirc(3, 2) As Double
PO.MachiningAxisSystem.GetOriginXDirection dirc(0, 0), dirc(0, 1), dirc(0, 2)
PO.MachiningAxisSystem.GetOriginYDirection dirc(1, 0), dirc(1, 1), dirc(1, 2)
PO.MachiningAxisSystem.GetOriginZDirection dirc(2, 0), dirc(2, 1), dirc(2, 2)
PO.MachiningAxisSystem.GetOriginPoint dirc(3, 0), dirc(3, 1), dirc(3, 2)
POEksenYonleri = dirc
End Function

Function MFGIslemeYonu(MFG As Object)
Dim dirc(2) As Double
MFG.GetToolAxis dirc(0), dirc(1), dirc(2)
MFGIslemeYonu = dirc
End Function

Function DocToPPR(Doc As Object) As PPRDocument
Dim myProcessDocument
Set myProcessDocument = Doc

Dim myPPRDocument As PPRDocument
Set myPPRDocument = myProcessDocument.PPRDocument
Set DocToPPR = myPPRDocument
End Function

Function ProcessToMfgProcess(Process As Object) As ManufacturingProcess
Dim myManufacturingProcess As ManufacturingProcess
Set myManufacturingProcess = Process
Set ProcessToMfgProcess = myManufacturingProcess
End Function

Sub catmain()

End Sub