---

SkizzeinPartperAPIauslesenundandern.jpg

Hallo,

ich brauche mal wieder etwas Starthilfe.
Für die Funktion die ich derzeit erstelle (Auslesen von Bestandsdaten), ist es nötig alle Skizzen die keine Featureverwendung haben,
von jelicher Konstruktionsgeometrie zu befreien.

Demnach muss ich erstmal eine Schleife erstellen, die mir alle Skizzen druchläuft. Und genau da liegt das Problem.
Ich habe nur ein Beispiel in der API Hilfe gefunden, dass sich alle Skizzen aus den Features zieht.
Es wäre zwar kein Problem diese mit duch die Schleife laufen zu lassen, aber die von mir im Screenshot markierte Skizze würde demnach nicht erfasst werden.

Hat jemand von euch einen Ansatz wie ich da rangehen könnte?

Danke im Voraus.

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

---

Stichworte: GetTypeName Method (IFeature), GetChildren Method (IFeature)

Code:

---

Sub main()
   
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swFeat As SldWorks.Feature
    Dim i As Long
   
    Set swApp = CreateObject("SldWorks.Application")
    Set swModel = swApp.ActiveDoc
       
    For i = 0 To swModel.GetFeatureCount - 1
       
        Set swFeat = swModel.FeatureByPositionReverse(i)
        If swFeat.GetTypeName = "ProfileFeature" And IsEmpty(swFeat.GetChildren) Then
                Debug.Print swFeat.Name & " hat keine Feature."
                'Stop
        End If
       
    Next i
   
End Sub

---

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

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

---

1000 Dank!
Genau so brauchte ich es.

[Diese Nachricht wurde von botlike am 22. Jan. 2019 editiert.]

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