Hallo ihr alle
Ich arbeite an Solidworks 2017.
Ich möchte mir das Leben ein bisschen leichter machen. In meine Baugruppen setze ich regelmäßig Schrauben ein.
Hat jemand von Ihnen ein Makro auf Lager, mit dem Sie ein genau definiertes Teil in eine Baugruppe einfügen können?
Das Ziel ist es, meine Schrauben mit meiner 3D-Maus einsetzen zu können, ohne meine Standardmaus zu viel bewegen zu müssen.
Ein großes Dankeschön an Sie!!
Fred
Hallo, wenn Sie nur ein einfaches Makro wünschen, das eine Münze hinzufügt:
Dim swApp As SldWorks.SldWorks
Dim swPart As SldWorks.ModelDoc2
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim filePath As String
Sub main()
Set swApp = Application.SldWorks
Set swPart = swApp.ActiveDoc
'------ Entrer le chemin vers la pièce a ajouter -------
filePath = " "
'--------------------------------------------------------
Dim swInsertedComponent As Component2
Set swInsertedComponent = swPart.AddComponent5(filePath, 0, "", False, "", 0, 0, 0)
End Sub
Bearbeiten: Tippfehler behoben
Hallo
Vielen Dank für Ihre Hilfe.
Aber da ich super schlecht in Makro bin, glaube ich, dass ich irgendwo etwas verpasst habe.
Dim swApp als SldWorks.SldWorks
Dim swPart As SldWorks.ModelDoc2
Dim boolstatus als boolescher Wert
Dim longstatus As Long, longwarnings As Long
Dim filePath als Zeichenfolge
Sub main()
Legen Sie swApp = Application.SldWorks fest
Legen Sie swPart = swApp.ActiveDoc fest
filePath = "U:\PLANOTHEK\3D (SolidWorks)\Library\Fasteners\Screws\Full Thread H Screws\M12 H Screws"
Dim swInsertedComponent als Komponente2
Set swInsertedComponent = swPart.AddComponent5(filPath, 0, "", False, "", 0, 0, 0)
Ende Sub
Ich habe diesen Code in den Makro-Editor eingegeben. Wenn ich es ausführe, habe ich ein Teil, das eingefügt wird, aber es ist nicht das richtige, es ist der erste Teil der Baugruppe.
Können Sie mir sagen, wo mein Fehler liegt?
Ah, es scheint, dass ich in der nächsten Zeile einen Tippfehler gemacht habe, ich hatte ein e vergessen:
Set swInsertedComponent = swPart.AddComponent5(filePath, 0, "", False, "", 0, 0, 0)
Versuchen Sie zu sehen
Es funktioniert nicht.
Auf der anderen Seite habe ich jetzt im Makro-Editor ein Fenster, das erscheint (siehe Anhang)
Das ist normal, es fragt, welche Funktion es starten soll, aber hier haben wir nur eine Funktion (Hauptfunktion), also klicken wir einfach auf "Ausführen". Es passiert nur im Makro-Editor, wenn Sie eine Schaltfläche oder eine Verknüpfung haben, gibt es kein Problem.
Wenn ich es starte, passiert nichts:(
Wenn Sie Ihre Baugruppe geöffnet haben, führen Sie "Extras -> Makro -> Ausführen... " und Sie starten das Makro, es funktioniert nicht? Bei mir kein Problem, also muss es von dem Weg kommen, den du genommen hast, versuche mit einem anderen Raum zu sehen.
Ach übrigens, das Teil wird zu den Koordinaten 0,0,0 in Bezug auf das Bezugssystem der Baugruppe addiert. Vielleicht ist es von der Baugruppe verdeckt.
Wir machen Fortschritte, ich schaffe es, eine Nuss zu bekommen!
Mir ist aufgefallen, dass ich vergessen habe, die Dateiendung (.sldprt) hinzuzufügen.
Auf der anderen Seite funktioniert es für die Schraube noch nicht....
Ich habe es endlich geschafft, mein Makro für eine Schraube arbeiten zu lassen, noch nicht die richtige, aber ich werde es schaffen!
Vielen Dank für die Hilfe.
Der Fehler muss also vom Pfad kommen, vielleicht von einem Zeichen, das ein Problem verursacht, ich weiß es nicht.
Auf der anderen Seite denke ich, dass es besser als ein Makro gibt, um Ihre Schrauben hinzuzufügen. Lassen Sie sich vielleicht vom Funktionsprinzip des Werkzeugkastens inspirieren, mit Gleitschrauben, die in der Baugruppe hinterlegt sind und mit Beschränkungsreferenzen angebracht werden. Ich habe noch nie einen gemacht, aber Sie sollten viel Zeit sparen, wenn er richtig eingerichtet ist.
Einige Forschungswege:
http://help.solidworks.com/2013/french/solidworks/sldworks/c_Smart_Components.htm
https://www.youtube.com/watch?v=tkVG3dEWGQk
https://www.youtube.com/watch?v=zNM0_UUdN_M&t=3813s (das interessante Feature ist von 44:50)
http://help.solidworks.com/2012/french/SolidWorks/sldworks/HIDD_DVE_POS_GROUP.htm?id=560a118e0a564df19e9f25d4bad8836b
http://help.solidworks.com/2016/french/solidworks/sldworks/c_example_mate_reference_multiple_entities.htm