| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| Nahe an industriellen Realbedingungen, eine Pressemitteilung
|
Autor
|
Thema: Makro für die Erstellung von Konstruktionslinien (1732 mal gelesen)
|
Seminger Mitglied Dipl.-Ing. (FH) Maschinenbau
Beiträge: 290 Registriert: 30.10.2009 SolidWorks Professional 2016 x64 Cimatron 14.0 PTC Creo Elements Simufact.forming Magma 5.4 --------------------------------------- Dell Precision T5810 Intel Xeon (R) 3,70 GHz 16 GB Ram NVidia Quadro M4000 Windows 7 Professional 64Bit
|
erstellt am: 16. Apr. 2010 08:36 <-- editieren / zitieren --> Unities abgeben:
Moinsen! Wenn ich neue Teile konstruiere, setz ich mir durch den Ursprung gern ne vertikale und horizontale Konstruktionslinie. Diese beiden Linien setz ich dann noch auf unendlich. Das ganze würd ich gern mit nem Makro machen. Funktioniert soweit auch, nur das unendlich krieg ich net hin. Hat vielleicht jemand ne Idee? Das Makro liest sich so: Sub main() Set swApp = Application.SldWorks Set Part = swApp.ActiveDoc Dim myModelView As Object Set myModelView = Part.ActiveView myModelView.FrameState = swWindowState_e.swWindowMaximized Dim skSegment As Object Set skSegment = Part.SketchManager.CreateCenterLine(-1#, 0#, 0#, 49#, 0#, 0#) Set skSegment = Part.SketchManager.CreateCenterLine(0#, -1#, 0#, -0#, 49#, 0#) End Sub Dank Euch!
Mfg, Seb. ------------------ Einem Eisberg, der nur die Spitze zeigt, fehlt Selbstvertrauen... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bbonisch Mitglied Maschinenbautechniker
Beiträge: 1053 Registriert: 25.02.2005 CSWA HP Z440 Windows 7 Professional 64 Bit Intel Xeon CPU E5-1630 @ 3.7 GHz (8 CPUs); 32 GB RAM NVIDIA Quadro M4000 UG 4.0.4.2 mit TC V9.1.2.10 SW2014 SP5 mit CAD-Desktop (SAP)
|
erstellt am: 16. Apr. 2010 08:45 <-- editieren / zitieren --> Unities abgeben: Nur für Seminger
|
Seminger Mitglied Dipl.-Ing. (FH) Maschinenbau
Beiträge: 290 Registriert: 30.10.2009 SolidWorks Professional 2016 x64 Cimatron 14.0 PTC Creo Elements Simufact.forming Magma 5.4 --------------------------------------- Dell Precision T5810 Intel Xeon (R) 3,70 GHz 16 GB Ram NVidia Quadro M4000 Windows 7 Professional 64Bit
|
erstellt am: 16. Apr. 2010 09:25 <-- editieren / zitieren --> Unities abgeben:
Hast eigentlich Recht. Hatte ich auch ma so, aber dann muss ich für jede Ebene ne eigene Vorlage machen... Und wenn ich auf ner bestehenden Fläche ne Skizze anlegen will, hilft das auch net weiter... ------------------ Einem Eisberg, der nur die Spitze zeigt, fehlt Selbstvertrauen... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bbonisch Mitglied Maschinenbautechniker
Beiträge: 1053 Registriert: 25.02.2005 CSWA HP Z440 Windows 7 Professional 64 Bit Intel Xeon CPU E5-1630 @ 3.7 GHz (8 CPUs); 32 GB RAM NVIDIA Quadro M4000 UG 4.0.4.2 mit TC V9.1.2.10 SW2014 SP5 mit CAD-Desktop (SAP)
|
erstellt am: 16. Apr. 2010 09:53 <-- editieren / zitieren --> Unities abgeben: Nur für Seminger
|
goofy_ac Mitglied Produktentwickler
Beiträge: 1144 Registriert: 20.06.2006 Dell Precision 7740; i7/9850@2,6GHz Quadro RTX5000; 32GB; Win10x64 prof. SWX2022 SP5; dbWorks R20
|
erstellt am: 16. Apr. 2010 10:16 <-- editieren / zitieren --> Unities abgeben: Nur für Seminger
|
nahe Ehrenmitglied
Beiträge: 1764 Registriert: 18.01.2001 arbeite mit: Dell Precision 7750 i7 2,6 GHz 6 Kerne 32GB RAM 512GB SSD NVIDIA Quadro RTX 4000 ------------------------ SWX-2020 SP5.0 EPDM ---------------- Windows 10 ---------------- VB.net VB VBA ein wenig Swift am Mac
|
erstellt am: 16. Apr. 2010 11:19 <-- editieren / zitieren --> Unities abgeben: Nur für Seminger
|
Seminger Mitglied Dipl.-Ing. (FH) Maschinenbau
Beiträge: 290 Registriert: 30.10.2009 SolidWorks Professional 2016 x64 Cimatron 14.0 PTC Creo Elements Simufact.forming Magma 5.4 --------------------------------------- Dell Precision T5810 Intel Xeon (R) 3,70 GHz 16 GB Ram NVidia Quadro M4000 Windows 7 Professional 64Bit
|
erstellt am: 16. Apr. 2010 14:03 <-- editieren / zitieren --> Unities abgeben:
Hatte in der Hilfe schon gesucht, aber ohne die richtigen Suchbegriffe kann das ja nichts werden. Danke für den Hinweis! Jetzt weiß ich theoretisch wies geht, aber angewendet krieg ich es trotzdem net. Hab keine Ahnung, wie ich das in mein Makro einbauen soll?! ------------------ Einem Eisberg, der nur die Spitze zeigt, fehlt Selbstvertrauen... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thomas5 Mitglied Konstrukteur, SWX-Admin
Beiträge: 420 Registriert: 14.07.2003 SWX2013
|
erstellt am: 17. Apr. 2010 14:58 <-- editieren / zitieren --> Unities abgeben: Nur für Seminger
Hallo Seb. so werden Deine Linien unendlich: Code: Set skSegment = Part.SketchManager.CreateCenterLine(-1#, 0#, 0#, 49#, 0#, 0#) Dim bRet as Boolean bRet=skSegment.MakeInfinite Set skSegment = Part.SketchManager.CreateCenterLine(0#, -1#, 0#, -0#, 49#, 0#) bRet=skSegment.MakeInfinite
Viele Grüße und frohes Schaffen! ThomasEine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Seminger Mitglied Dipl.-Ing. (FH) Maschinenbau
Beiträge: 290 Registriert: 30.10.2009 SolidWorks Professional 2016 x64 Cimatron 14.0 PTC Creo Elements Simufact.forming Magma 5.4 --------------------------------------- Dell Precision T5810 Intel Xeon (R) 3,70 GHz 16 GB Ram NVidia Quadro M4000 Windows 7 Professional 64Bit
|
erstellt am: 20. Apr. 2010 09:44 <-- editieren / zitieren --> Unities abgeben:
|