Hallo Manfred,
ich habe Deinen Beitrag schon vor ein paar Wochen gelesen, aber leider keine Zeit, die Sache mal auszuprobieren. Aber jetzt hab ich Urlaub
und viel Zeit ....
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
'Auswahl der Richtung, kann auch noch eine zweite nehmen...
Part.Extension.SelectByID "Achse1", "AXIS", 0, 0, 0, False, 2, Nothing
'Auswahl der Komponente
Part.Extension.SelectByID "2-222-222-222,Bodenfuehrung-1@Baugruppe1", "COMPONENT", 0, 0, 0, True, 1, Nothing
'Einfügen des Linearen Musters
Part.FeatureLinearPattern 2, 0.05, 1, 0.05, False, False, "NULL", "NULL"
End Sub
Die Komponente "2-222-222-222,Bodenfuehrung-1@Baugruppe1" wird entlang "Achse1" gemustert (zwei Stück, Abstand 50 mm)
Ich hoffe es klappt auch bei Dir.
Gruß
Marc

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP