Hallo,
Habe folgendes Problem.
Habe ein Produkt mit unterschiedlichen Parts , in den Parts gibt es jeweils einen Körper mit den Namen (Abzugskörper)
Gibt es eine Möglichkeit per Makro alle Körper im Produkt zu suchen und diese anschließende zusammen in anderes Part (basismodell_auswerfer) im Hauprkörper Hinzufügen zu lassen.
Das Suchen per Makro funktioniert soweit schon, da die Anzahl und Benennung der Parts immer unterschiedlich ist funktioniert das ganze dann nicht mehr.
Muss man das mit Variablen Programmieren?,
Kann mir da wer helfen
Mein Makro
Language="VBSCRIPT"
Sub CATMain()
Set productDocument1 = CATIA.ActiveDocument
Set selection1 = productDocument1.Selection
selection1.Search "Name=*Abzugskörper,all"
Set product1 = productDocument1.Product
Set products1 = product1.Products
Set product2 = products1.Item("_auswerfer_rund_.1")
Set product2 = products1.Item("_auswerfer_rund_.1")
Set product2 = products1.Item("_auswerfer_rund_.1")
Set product3 = products1.Item("_auswerfer_rund_.2")
Set product3 = products1.Item("_auswerfer_rund_.2")
Set product3 = products1.Item("_auswerfer_rund_.2")
Set product4 = products1.Item("_auswerfer_rund_.3")
Set product4 = products1.Item("_auswerfer_rund_.3")
Set product4 = products1.Item("_auswerfer_rund_.3")
Set product5 = products1.Item("_auswerfer_rund_.4")
Set product5 = products1.Item("_auswerfer_rund_.4")
Set product5 = products1.Item("_auswerfer_rund_.4")
Set product6 = products1.Item("_auswerfer_rund_.5")
Set product6 = products1.Item("_auswerfer_rund_.5")
Set product6 = products1.Item("_auswerfer_rund_.5")
Set product7 = products1.Item("_auswerfer_rund_.6")
Set product7 = products1.Item("_auswerfer_rund_.6")
Set product7 = products1.Item("_auswerfer_rund_.6")
Set product8 = products1.Item("_auswerfer_rund_.7")
Set product8 = products1.Item("_auswerfer_rund_.7")
Set product8 = products1.Item("_auswerfer_rund_.7")
Set product9 = products1.Item("_auswerfer_rund_.8")
Set product9 = products1.Item("_auswerfer_rund_.8")
Set product9 = products1.Item("_auswerfer_rund_.8")
Set product10 = products1.Item("_auswerfer_rund_.9")
Set product10 = products1.Item("_auswerfer_rund_.9")
Set product10 = products1.Item("_auswerfer_rund_.9")
Set product11 = products1.Item("_auswerfer_rund_.10")
Set product11 = products1.Item("_auswerfer_rund_.10")
Set product11 = products1.Item("_auswerfer_rund_.10")
Set product12 = products1.Item("_auswerfer_rund_.11")
Set product12 = products1.Item("_auswerfer_rund_.11")
Set product12 = products1.Item("_auswerfer_rund_.11")
Set documents1 = CATIA.Documents
Set partDocument1 = documents1.Item("basismodell_auswerfer.CATPart")
Set part1 = partDocument1.Part
Set shapeFactory1 = part1.ShapeFactory
Set bodies1 = part1.Bodies
Set body2 = bodies1.Item("Hauptkörper")
Set shapes1 = body2.Shapes
part1.Update
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP