---

Hallo zusammen,

wir kann ich in einer Baugruppe abfragen, welche Bauteile keine voll bestimmte Skizze haben?
Unter Inventor 2011 erhalte ich trotz voll bestimmter Skizze die Meldung, dass diese nicht voll bestimmt wäre.

Public Sub CheckSkecthes()

Dim Style, Title, Response, MyString
Style = vbYesNoCancel + vbQuestion + vbDefaultButton2 ' Define buttons.
Title = "Please confirm...." ' Define title.

Dim oSketches As PlanarSketches
Set oSketches = ThisApplication.ActiveDocument.ComponentDefinition.Sketches

Dim i As Integer
For i = 1 To oSketches.Count

MsgBox oSketches.Item(i).Name

If oSketches.Item(i).ConstraintStatus <> kFullyConstrainedConstraintStatus Then
Response = MsgBox("Skizze" & i & " is not fully constrained. Do you want to Edit?", Style, Title)
If Response = vbYes Then
oPCompDef.Sketches.Item(i).Edit
Exit For
ElseIf Response = vbCancel Then
Exit For
ElseIf Response = vbNo Then
End If
End If

Next

End Sub

Vielen Dank
Georg

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

---

Hallo

Das ActiveDocument ist, wenn du eine Baugruppe geöffnet hast, die Baugruppendatei. Du kontrollierst also nicht die Skizzen der Bauteile. Dazu solltest du in einer Schleife durch alle referenzierten Dokumente gehen und wenn der Dokumenttyp=Part ist, dann in der ComponentDefinition.Sketches nach unbestimmten Skizzen suchen.

------------------
MfG
Ralf

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

---

Hallo Ralf,

das Beispiel war für ein Part. Leider funktioniert der Code hier auch nicht. Es kommt immer die Meldung, dass die Skizze nicht voll bestimmt ist. Könntest Du das bitte mal bei Dir prüfen? Vielen Dank.

Georg

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

---

Aus einem Forum habe ich folgenden Code:

Sub CheckSketches()
    Dim oDoEc As Document
    Set oDoc = ThisApplication.ActiveDocument
    Dim Good As Boolean
    Good = FullyConstrained(oDoc)
    If Good Then
    'Debug.Print "All sketches are constrained"
    MsgBox ("All sketches are constrained")
    Else
    'Debug.Print "Under constrained sketches found"
    MsgBox ("Under constrained sketches found")
    End If
End Sub

Function FullyConstrained(ByVal Refdoc As Document) As Boolean
    FullyConstrained = True
    Dim TempBoolean As Boolean
    TempBoolean = True
    Debug.Print Refdoc.AllReferencedDocuments.Count & " Referenced Documents"
   
    If Refdoc.DocumentType = kPartDocumentObject Then
    FullyConstrained = PartSketchesConstrained(Refdoc)
    ElseIf Refdoc.DocumentType = kAssemblyDocumentObject Then
    Dim oDoc As Document
    For Each oDoc In Refdoc.ReferencedDocuments
    If oDoc.DocumentType = kPartDocumentObject Then
    TempBoolean = PartSketchesConstrained(oDoc)
    End If
    If Not TempBoolean Then FullyConstrained = False
    Next
    End If

End Function

Function PartSketchesConstrained(ByVal Refdoc As PartDocument) As Boolean
    'Assume the part is fully constrained
    PartSketchesConstrained = True
   
    Dim oSketch As Sketch
   
    'Loop thru the sketches in the part and look for unconstrained sketches
    For Each oSketch In Refdoc.ComponentDefinition.Sketches
   
    Select Case oSketch.ConstraintStatus
    Case kFullyConstrainedConstraintStatus
    'do Nothing
    Case kOverConstrainedConstraintStatus
    'Debug.Print "kOverConstrainedConstraintStatus: " & Refdoc.DisplayName & " - " & oSketch.Name
    MsgBox ("kOverConstrainedConstraintStatus: " & Refdoc.DisplayName & " - " & oSketch.Name)
    Case kUnderConstrainedConstraintStatus
    oSketch.Visible = False
    PartSketchesConstrained = False
    'Debug.Print "kUnderConstrainedConstraintStatus: " & Refdoc.DisplayName & " - " & oSketch.Name
    MsgBox ("kUnderConstrainedConstraintStatus: " & Refdoc.DisplayName & " - " & oSketch.Name)
    Case kUnknownConstraintStatus
    'Debug.Print "kUnknownConstraintStatus: " & Refdoc.DisplayName & " - " & oSketch.Name
    MsgBox ("kUnknownConstraintStatus: " & Refdoc.DisplayName & " - " & oSketch.Name)
    Dim oEnt
    End Select
   
    Next oSketch

End Function

Auch dieser liefert den Fehler.

[Diese Nachricht wurde von GeorgK am 24. Apr. 2013 editiert.]

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

---

Hallo

Hab beide Codes kurz getestet und bekomme nur unbestimmte Skizzen gemeldet.

------------------
MfG
Ralf

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