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

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