---

Folgende Situation:

Ich habe eine Platte mit diversen Aussparungen. Diese sind entstanden durch einzelne Skizzen, lineare Muster und skizzengesteuerte Muster. Einige wenige dieser Aussparungen möchte ich wiederum mustern. Erste Idee: neue Skizze, "Elemente übernehmen", Fläche der Platte anklicken, nicht benötigte Linien löschen. Funktioniert nicht, weil auf diesem Wege nur die Außenkontur der Platte übernommen wird. Das Anklicken der ganzen Einzelkanten für "Elemente übernehmen" ist zu aufwändig und fehlerträchtig. Aktueller workaround: Einen neuen Körper im Bereich der zu musternden Aussparungen erstellen, Originalkörper "verdoppeln", mit "Kombinieren"->"Entfernen" einen Hilfskörper erstellen, an die gewünschten Positionen mustern, vom Originalkörper "Kombinieren"->"Entfernen".
Fällt jemandem eine elegantere Lösung ein?

Gruß,
Jürgen

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

---

Hallo Jürgen

Skizze öffnen, Fläche markieren, EIN Element je Innenkontur anklicken -> Elemente übernehmen dann wird diese Innenkontur als Linienzug ausgewählt

Viele Grüße - Axel

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

---

Hallo Jürgen

Angelehnt nach diesem Beitrag https://forum.solidworks.com/message/350215

Code:

---

Dim swApp As Object
Dim ModDoc As ModelDoc2
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()
    Set swApp = Application.SldWorks
    Set ModDoc = swApp.ActiveDoc
    Dim SelMgr As SelectionMgr
    Dim EdgeCount As Integer
    Dim Edges() As Edge
    Dim SelFace  As Face2
    Dim SelData As SelectData
    Dim SelectedCount As Integer
   
    If ModDoc Is Nothing Then
    Else
        Set SelMgr = ModDoc.SelectionManager
        If SelMgr.GetSelectedObjectCount2(-1) = 1 Then
            Select Case SelMgr.GetSelectedObjectType3(1, -1)
            Case swSelectType_e.swSelFACES
                Set SelFace = SelMgr.GetSelectedObject6(1, -1)
                If SelFace Is Nothing Then
                Else
                    EdgeCount = SelFace.GetEdgeCount
                    Edges = SelFace.GetEdges
                    Set SelData = SelMgr.CreateSelectData
                    'If you only want edges and not the original face then uncomment this out
                    ModDoc.ClearSelection2 (True) ' This Clears the selected Face
                    SelectedCount = SelMgr.AddSelectionListObjects(Edges, SelData)
                    'swApp.SendMsgToUser2 "There Were " & SelectedCount & " Edges Selected", _
                    'swMessageBoxIcon_e.swMbInformation, swMessageBoxBtn_e.swMbOk
                    boolstatus = ModDoc.SketchManager.SketchUseEdge2(False)
                End If
            End Select
        End If
    End If
End Sub

---

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

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

---

Hallo Jürgen,

ich würde sagen RMB auf eine Kante der Bohrung bzw. Innenkontur "Kurvenzug auswählen" oder "Tangentialität auswählen" "Elemente übernehmen" fertig.
Alternativ auf eine Innenfläche klicken RMB "Verbundene Flächen auswählen" "Elemente übernehmen" fertig.

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete 

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

---

@Axel:
Guter Hinweis, ich hatte nicht auf dem Schirm, dass das Anklicken einer Kante zur Auswahl des gesamten Kurvenzuges einer Aussparung reicht. So kann ich schon einigermaßen zügig und zuverlässig arbeiten. DANKE!

@Andreas:
Bin bisher ohne Makros und Skripte ausgekommen, daher bin ich auf dem Sektor bekennender DAU. Werde mich trotzdem bei Gelegenheit mal näher mit Deiner Antwort befassen.

@Bernd:
Es geht, siehe Axels Antwort, tatsächlich ohne RMB. Erleichtert den "workflow" erheblich.

Danke an alle,
Gruß,
Jürgen

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

---

Gern geschehen 

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

---

Zitat:

---

... Einige wenige dieser Aussparungen möchte ich wiederum mustern.

---

Meine erste Idee wäre:
Muster - Flächen wählen - fertig
bei "Einige wenige" würde das mit Tangentialität wählen machbar sein.
Auswahlfilter geht auch, benimmt sich aber für Flächen gewöhnungsbedürftig (IMHO)

Meine Zweite Idee zur Auswahl der Kanten in der Skizze:
Auswahlfilter Kanten - bei Ansicht normal zur Fläche: Fenster ziehen - wählt auch nur die oberen Kanten 
Ob es was bringt, liegt an der Lage der Elemente zueinander.

Meine Dritte Idee:
wenn die Sachen auch funktional zusammengehören, wäre vielleicht schon bei der Erstellung ein Block möglich ...

Gruß, Christian

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

---

Zitat:

---

Original erstellt von Christian_W:

Meine Zweite Idee zur Auswahl der Kanten in der Skizze:
Auswahlfilter Kanten - bei Ansicht normal zur Fläche: Fenster ziehen

---

Da hab ich ja mal richtig tief

DANKE,
Jürgen

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