Hallo an alle
Da ich in BTS Crsa bin, muss ich ein konfigurierbares CAD eines Förderbandes erstellen (Praktikumsprojekt).
Normalerweise verwende ich Solid Edge, aber das Unternehmen, in dem ich arbeite, verwendet Solidworks, also bin ich ein bisschen verloren.
Das Ziel dieses Projekts ist es, die Abmessungen eines Förderers (Länge, Breite usw.) einstellen zu können, daher habe ich ein Makro in Excel erstellt, indem ich SolidWorks usw. deklariert habe. Nur gibt es nicht viel, was funktioniert. Da ich es nicht gewohnt bin, diese Art von Arbeit zu erledigen (ich bin Null in vba!), stelle ich Ihnen mein Makro mit einigen Hinweisen zur Verfügung, damit Sie es für mich klären können:
Unternummer Bouton_Clic()
Set swApp = CreateObject("Sldworks.Application")
Set Part = swApp.ActiveDoc
Part.Parameter("D1@Esquisse1@Longueur_convoyeur"). SystemValue = Bereich ("C2"). Wert / 1000
Part.ClearSelection
Teil.ForceRebuild
Part.Parameter("D1@Extru.-Mince1@Largeur_convoyeur"). SystemValue = Bereich ("C4"). Wert / 1000
Part.ClearSelection
Teil.ForceRebuild
Ende Sub
Die Fehlermeldung ist ein Laufzeitfehler '91', aber ich sehe nicht, was falsch ist.
Dabei handelt es sich um die "Part.Parameter... ", die hervorgehoben sind.
"Longueur_convoyeur" und "Largeur_convoyeur" stimmen mit dem Namen überein, den ich in Excel angegeben habe.
Ich hoffe, ich habe mein Problem gut erklärt.
Vielen Dank im Voraus