---

Hallo zusammen,

besteht die Möglichkeit Bauteile per Makro auf vollständig bestimmte Skizzen zu überprüfen evtl. auch Bauteile innerhalb einer Baugruppe!?
Hintergrund ist das alte Bestandsdaten entsprechend geprüft werden sollen.

Danke und Gruß

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

---

SkizzenCheck3.txt

Hallo Goose,

das geht. Hier die Kurzversion:

Code:

---

Sub Skizzen_Check()
    Dim oApp As Application
    Set oApp = ThisApplication
    Dim oDoc As Document
    Set oDoc = oApp.ActiveDocument

    Dim FeatureAnz As Integer
    FeatureAnz = oDoc.ComponentDefinition.Features.Item(1).Parent.Sketches.Count
    Dim i As Integer
   
    '51713  kFullyConstrainedConstraintStatus
    '51714  kUnderConstrainedConstraintStatus
    '51715  kOverConstrainedConstraintStatus
    '51716  kUnknownConstraintStatus
   
    For i = 1 To FeatureAnz
        If oDoc.ComponentDefinition.Features.Item(1).Parent.Sketches.Item(i).ConstraintStatus = kUnderConstrainedConstraintStatus Then
            MsgBox "unbestimmt:  " & oDoc.ComponentDefinition.Features.Item(1).Parent.Sketches.Item(i).Name
           
        End If
    Next 'i
   
End Sub

---

Oder mit Öffnen der unbestimmten Skizze siehe Anhang

------------------
Gruß Roland

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

---

Zitat:

---

Original erstellt von RolandD:
Hallo Goose,

das geht. Hier die Kurzversion:

Code:

---

Sub Skizzen_Check()
    Dim oApp As Application
    Set oApp = ThisApplication
    Dim oDoc As Document
    Set oDoc = oApp.ActiveDocument

    Dim FeatureAnz As Integer
    FeatureAnz = oDoc.ComponentDefinition.Features.Item(1).Parent.Sketches.Count
    Dim i As Integer
   
    '51713  kFullyConstrainedConstraintStatus
    '51714  kUnderConstrainedConstraintStatus
    '51715  kOverConstrainedConstraintStatus
    '51716  kUnknownConstraintStatus
   
    For i = 1 To FeatureAnz
        If oDoc.ComponentDefinition.Features.Item(1).Parent.Sketches.Item(i).ConstraintStatus = kUnderConstrainedConstraintStatus Then
            MsgBox "unbestimmt:  " & oDoc.ComponentDefinition.Features.Item(1).Parent.Sketches.Item(i).Name
           
        End If
    Next 'i
   
End Sub

---

Oder mit Öffnen der unbestimmten Skizze siehe Anhang

---

Hallo RolanD,

vielen Dank!

Unities sind raus

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

---

Hallo Goose,

eine weitere Möglichkeit ist der Model-Inspector (oder so ähnlich) von Cinteg.
Es gibt eine kostenlose Version, die 3 oder 5 Merkmale überprüft.
Ich denke, unbestimmte Skizzen waren dabei. Der Model-Inspector  liest die gleiche Eigenschaft aus.

Mir ist aufgefallen, dass die Angabe "Skizze unbestimmt" nicht immer zutrifft:
Prüf mal eine Bohrung, die auf dem projizierten Ursprung liegt. Ich glaube, die wird unbestimmt angezeigt, obwohl sie ja voll bestimmt ist. Vielleicht muss man hier besser kUnknownConstraintStatus auswerten.
Im USA-Forum hatte ich mal einen Beitrag zu dem Thema gefunden, es gab aber auch keine eindeutige Lösung.

------------------
Gruß Roland

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

---

Hallo RolanD,

Danke für den Tipp mit dem Model-Inspector!
Gruß

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