Vielen Dank für Ihre Antworten. Ich schaue mir das alles an!
Wenn ich versuche, das Makro zu vermeiden, liegt das daran, dass Benutzer nicht in VBA geschult sind und den Code nicht ändern können, wenn sie Änderungen am Modul vornehmen müssen. Und da ich nur auf der Durchreise bin, wäre das Modul dann unbrauchbar.
Das Äquivalent im Makro wäre eindeutig folgendes:
Dimmen swApp als Objekt
Teil als Objekt dimmen
Dim boolstatus als boolescher Wert
Dim longstatus As Long, longwarnings As Long
Sub main()
swApp = _ setzen
Anwendung.SldWorks
Set Part = swApp.ActiveDoc
myModelView als Objekt dimmen
Dim L als Single
L = InputBox("L_inter_épau", "Verärgert")
Wenn L > 170, dann
boolstatus = Part.Extension.SelectByID2("Groß [>175 mm]@EX10610_00000_10_boni. SLDASM", "KONFIGURATIONEN", 0, 0, 0, Falsch, 0, Nichts, 0)
boolstatus = Part.ShowConfiguration2("Groß [>175 mm]")
ElseIf L > 145 dann
boolstatus = Part.Extension.SelectByID2("Mittel [145-170 mm]@EX10610_00000_10_boni. SLDASM", "KONFIGURATIONEN", 0, 0, 0, Falsch, 0, Nichts, 0)
boolstatus = Part.ShowConfiguration2("Mittel [145-170mm]")
Oder
boolstatus = Part.Extension.SelectByID2("Klein [55-145 mm]@EX10610_00000_10_boni. SLDASM", "KONFIGURATIONEN", 0, 0, 0, Falsch, 0, Nichts, 0)
boolstatus = Part.ShowConfiguration2("Klein [55-145 mm]")
Ende, wenn
Ende Sub