| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| | |
 | AMB |
|
Autor
|
Thema: Makro für die Erstellung von Konstruktionslinien (1696 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: 1130
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: 1747
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:
|
Foren auf CAD.de (alle Foren)
| 
