Inhalt einer Skizze

3D Design
1

Hallo

Eine Anfängerfrage: Gibt es eine Möglichkeit, den Inhalt einer Skizze aufzulisten? Ich würde gerne wissen, wie viele Bögen, Linien ...  Vor 30 Jahren war es bei meinem damaligen Lieblings-Cadkey mit einem Klick erledigt. Jetzt drehe ich mich ein bisschen im Kreis. 

Zu diesem Anlass hänge ich ein kleines Solidworkian-Video an

Einen schönen Tag und viel Glück

Vielen Dank an alle


etiaffage.mp4
1 „Gefällt mir“
2

Hallo

Erstellen Sie ein neues Makro, und fügen Sie den folgenden Code ein:

Option Explicit
Sub main()
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swSelMgr As SldWorks.SelectionMgr
    Dim swSketch As SldWorks.Sketch
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swSketch = swModel.GetActiveSketch2
    If swSketch Is Nothing Then
        Set swSelMgr = swModel.SelectionManager
        If swSelMgr.GetSelectedObjectCount2(-1) = 0 Then Exit Sub
        If swSelMgr.GetSelectedObjectType3(1, -1) <> swSelectType_e.swSelSKETCHES Then Exit Sub
        Dim swFeat As SldWorks.Feature
        Set swFeat = swSelMgr.GetSelectedObject5(1)
        Set swSketch = swFeat.GetSpecificFeature
    End If
    If swSketch Is Nothing Then Exit Sub
    Dim myText As String
    myText = "  Nombre de lignes = " & swSketch.GetLineCount
    myText = myText & vbCrLf & "  Nombre d'arcs = " & swSketch.GetArcCount
    myText = myText & vbCrLf & "  Nombre de points = " & swSketch.GetSketchPointsCount
    myText = myText & vbCrLf & "  Nombre d'éllipses  = " & swSketch.GetEllipseCount
    myText = myText & vbCrLf & "  Nombre de paraboles  = " & swSketch.GetParabolaCount
    MsgBox myText
End Sub

 Startet das Makro mit einer geöffneten oder ausgewählten Skizze

1 „Gefällt mir“
3

Oh oh, das wird mich in API und anderen Makros ungefährlich machen. Außerdem scheint es mir sehr klar zu sein, und es funktioniert

Vielen Dank

1 „Gefällt mir“