I want add new operation "Pocketing". It is code:
Dim ManufacturingOperation As ManufacturingOperation
Dim program As ManufacturingProgram
Dim InputObjectType(0)
Dim processDocument1 As ProcessDocument
processDocument1 = CATIA1.ActiveDocument
Dim Selection1 As Selection
Selection1 = processDocument1.Selection
Selection1.Search("Name='Manufacturing Program.1',all")
program = Selection1.Item2(1).Value
Selection1.Clear()
ManufacturingOperation = program.AppendOperation("Pocketing", 1)
ManufacturingOperation.Name = ("Pocketing.1")
ManufacturingOperation.SetTool("T1 End Mill D 10")
but if I want automation set geometries "Pocketing:
GeometriaPocketu.SetGeometries("Contours", 0, 1, sketch, Product, 0)
GeometriaPocketu.SetGeometry("Parts", Plane, Product, 0)....
I first must add new manufacturingfeature:
Dim GeometriaPocketu, GeometriaKonturu As MANUFACTURING.ManufacturingMachinableFeature
GeometriaPocketu = MfgView.ManufacturingFeatures.Add(type)
and I dont know,what can I write in place "Type"
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP