Hi ich hab ein Problem. Mein Chef hat mir folgende Datei gegeben. FÜr einen ExcellKatalog soll ich einen Button so Programieren, dass ich wenn ich den Button im Katalog drücke sich das Bauteil in Solid öffnet oder noch besser direkt einer Baugruppe zugewiesen wird. Leider funktioniert das bei den Baugruppen nur wenn ich das Teil bereits manuell in Works geöffnet habe. Ich hab leider gar keine Ahnung und bin nur noch morgen hier beschäftigt

Dim swApp As Object
'Dim Part As Object
Dim Assembly As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = CreateObject("SldWorks.Application")
'Set Part = Nothing
Set Assembly = swApp.AktiveDoc
boolstatus = Assembly.AddComponent("I:\...", 0, 0, 0)

Set Part = Nothing
End Sub




Könnt ihr mir bitte helfen

Grüße

Tingel