---

screenshot2.jpg

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

---

Moin,

wenn Du deine Mittellinien skizziert hast, dann Speicher die Datei doch einfach als Vorlage ab!

Jan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

Hey,

alles klar... Danke :-)

Manchmal ist die Lösung so einfach XD

Grüße

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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 Object

Dim 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

---

Hey, ja ich hätte es gerne in jeder neuen Skizze...

Ich versuch das mal mit dem Makro...

Danke ;-)

Grüße

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Und für die Zukunft bitte    daran denken:
Systeminfo! 

------------------
Klaus

www.al-ko.com | mein Gästebuch

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

SW 2014 SP2 :-P

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Du sollst das nicht hier in einen Beitrag mit langer Zunge schreiben, sondern in deine Systeminfo, damit bei neuen Beiträgen von dir die potenziellen Antworter schon sehen, ob sie mit den selben Voraussetzungen arbeiten wie du

------------------
Klaus

www.al-ko.com | mein Gästebuch

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

Danke 
wurde direkt in den Werkzeugkasten mit aufgenommen   

------------------
Klaus

www.al-ko.com | mein Gästebuch

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP