| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| SPS, eine Veranstaltung am 12.11.2024
|
Autor
|
Thema: Mittellinie durch Ursprung in Skizze als Standard? (2927 mal gelesen)
|
H.Ironman Mitglied Konstrukteur
Beiträge: 4 Registriert: 19.11.2014
|
erstellt am: 19. Nov. 2014 09:41 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich suche nach einer Möglichkeit in SolidWorks, dass in Skizzen immer Mittellinien durch den Ursprung gelegt werden (so wie im Screenshot zu sehen...) Aktuell muss ich in jeder Skizze die Mittellinien neu zeichnen und diese dann kollinear zu der passenden Ursprungsebene ausrichten. Gibt es eine Möglichkeit das standardmäßig einzustellen? Grüße Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Jan Mitglied Dipl.-Ing.
Beiträge: 1271 Registriert: 23.12.2000 Dienstl. Lenovo 64GB, nVidia, Win10, SW 2019, 2021 u. 2022 Priv. Dell M7740 16GB, nVidia , Win10, SW 2012, SW 2021 und SW 2022 Prem.
|
erstellt am: 19. Nov. 2014 10:04 <-- editieren / zitieren --> Unities abgeben: Nur für H.Ironman
|
cad manu Mitglied Technische Zeichnerin / Konstrukteurin
Beiträge: 799 Registriert: 01.09.2004
|
erstellt am: 19. Nov. 2014 10:09 <-- editieren / zitieren --> Unities abgeben: Nur für H.Ironman
Hallo Ironman, was Jan meint ist genau richtig. Gehe auf Speichern unter und wähle dann Part-Template aus und es entsteht eine Datei-Teil-Vorlage mit dem Extender *.prtdot. Wie man es sonst von den Einstellungenen standard mäßig einbringt, was ich leider auch nicht. Ich würde es auch so machen. ------------------ Gruß cad manu Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
H.Ironman Mitglied Konstrukteur
Beiträge: 4 Registriert: 19.11.2014
|
erstellt am: 19. Nov. 2014 10:30 <-- editieren / zitieren --> Unities abgeben:
|
KMassler Ehrenmitglied V.I.P. h.c. CAD Admin + Mädchen für Alles...
Beiträge: 2675 Registriert: 06.11.2000 SolidWorks Start 1999 ** CSWP 01/2008 ** ------------------ Zuletzt beruflich: - SWX2020 SP5; - SAP/PLM+ECTR; - DriveWorks Pro; - Programmierung: VBA, aktuell Visual Studio 2022/VB.Net ------------------ ab 2024 (privat): Onshape und anderes
|
erstellt am: 19. Nov. 2014 13:57 <-- editieren / zitieren --> Unities abgeben: Nur für H.Ironman
Das ist aber nur die halbe Lösung. Ich habe die Frage eigentlich so verstanden, dass du das in JEDER Skizze so haben willst, nicht nur in der ersten. Da kannst du dir vielleicht ein Makro machen und dafür einen Knopf in die Toolbar setzen. Quick'n'dirty:
Code: Dim swApp As ObjectDim Part As Object Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As Long Sub main() Set swApp = _ Application.SldWorks Set Part = swApp.ActiveDoc Part.ClearSelection2 True Dim skSegment As Object Set skSegment = Part.SketchManager.CreateCenterLine(-0.1, 0.1, 0#, -0.1, -0.1, 0#) Part.SketchAddConstraints "sgVERTICAL2D" boolstatus = Part.Extension.SelectByID2("Point1@Ursprung", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0) Part.SketchAddConstraints "sgCOINCIDENT" Part.ClearSelection2 True Set skSegment = Part.SketchManager.CreateCenterLine(-0.2, 0.2, 0#, 0.2, 0.2, 0#) Part.SketchAddConstraints "sgHORIZONTAL2D" boolstatus = Part.Extension.SelectByID2("Point1@Ursprung", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0) Part.SketchAddConstraints "sgCOINCIDENT" Part.ClearSelection2 True End Sub
Was mir hier noch fehlt, ist die Möglichkeit, die Konstruktionslinie auf unendlich zu setzen. Dazu habe ich auf die Schnelle nichts gefunden. ------------------ Klaus www.al-ko.com | mein Gästebuch [Diese Nachricht wurde von KMassler am 19. Nov. 2014 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
H.Ironman Mitglied Konstrukteur
Beiträge: 4 Registriert: 19.11.2014
|
erstellt am: 19. Nov. 2014 15:40 <-- editieren / zitieren --> Unities abgeben:
|
KMassler Ehrenmitglied V.I.P. h.c. CAD Admin + Mädchen für Alles...
Beiträge: 2675 Registriert: 06.11.2000 SolidWorks Start 1999 ** CSWP 01/2008 ** ------------------ Zuletzt beruflich: - SWX2020 SP5; - SAP/PLM+ECTR; - DriveWorks Pro; - Programmierung: VBA, aktuell Visual Studio 2022/VB.Net ------------------ ab 2024 (privat): Onshape und anderes
|
erstellt am: 19. Nov. 2014 16:42 <-- editieren / zitieren --> Unities abgeben: Nur für H.Ironman
|
H.Ironman Mitglied Konstrukteur
Beiträge: 4 Registriert: 19.11.2014
|
erstellt am: 20. Nov. 2014 07:57 <-- editieren / zitieren --> Unities abgeben:
|
KMassler Ehrenmitglied V.I.P. h.c. CAD Admin + Mädchen für Alles...
Beiträge: 2675 Registriert: 06.11.2000 SolidWorks Start 1999 ** CSWP 01/2008 ** ------------------ Zuletzt beruflich: - SWX2020 SP5; - SAP/PLM+ECTR; - DriveWorks Pro; - Programmierung: VBA, aktuell Visual Studio 2022/VB.Net ------------------ ab 2024 (privat): Onshape und anderes
|
erstellt am: 20. Nov. 2014 15:04 <-- editieren / zitieren --> Unities abgeben: Nur für H.Ironman
|
Luechinger Mitglied Ingenieur + CAD-Admin
Beiträge: 71 Registriert: 30.07.2008 Win 7 64bit HP Elitebook 8740W 8 GB Ram Solidworks 2012 SP4 (64bit) ProE WF4 M140 (64bit) Stools 2012
|
erstellt am: 20. Nov. 2014 16:53 <-- editieren / zitieren --> Unities abgeben: Nur für H.Ironman
Hier das fertige Makro. Ist noch Dirty aber funktioniert. Gruss David Code:
Sub main()Dim swApp As Object Dim Part As Object Dim bRet As Boolean Dim skSegment As Object Set swApp = Application.SldWorks Set Part = swApp.ActiveDoc 'Mittelliniene erzeugen 'Linie 1 Set skSegment = Part.SketchManager.CreateCenterLine(0#, 0#, 0#, 50#, 0#, 0#) bRet = skSegment.MakeInfinite Part.SketchAddConstraints "sgHORIZONTAL2D" boolstatus = Part.Extension.SelectByID2("Point1@Ursprung", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0) Part.SketchAddConstraints "sgCOINCIDENT" Part.ClearSelection2 True 'Linie 2 Set skSegment = Part.SketchManager.CreateCenterLine(0#, 0#, 0#, 0#, -50#, 0#) bRet = skSegment.MakeInfinite Part.SketchAddConstraints "sgVERTICAL2D" boolstatus = Part.Extension.SelectByID2("Point1@Ursprung", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0) Part.SketchAddConstraints "sgCOINCIDENT" Part.ClearSelection2 True End Sub
[Diese Nachricht wurde von Luechinger am 20. Nov. 2014 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
KMassler Ehrenmitglied V.I.P. h.c. CAD Admin + Mädchen für Alles...
Beiträge: 2675 Registriert: 06.11.2000 SolidWorks Start 1999 ** CSWP 01/2008 ** ------------------ Zuletzt beruflich: - SWX2020 SP5; - SAP/PLM+ECTR; - DriveWorks Pro; - Programmierung: VBA, aktuell Visual Studio 2022/VB.Net ------------------ ab 2024 (privat): Onshape und anderes
|
erstellt am: 12. Dez. 2014 09:51 <-- editieren / zitieren --> Unities abgeben: Nur für H.Ironman
|