---

Hallo liebe Kollegen ...
leider fehlt mir noch etwas der Umgang mit der Inventor API. Bin noch nicht so lange dabei.

Ich möchte zahlreiche Gewinde- und Bohrungsinfos aus Inventor Bauteilen / Baugruppen auslesen mit einer selbst programmierten Funktion.

Habe mich hier schon etwas eingelesen und auch in der API in den letzte Tagen.

Bin schon wie folgt voran gekommen, hänge aber jetzt etwas fest.

Code:

---

Dim oCompDef As PartComponentDefinition
oCompDef = PartDoc.ComponentDefinition

Debug.Print("Anzahl ThreadFeatures:" & CompDef.Features.ThreadFeatures.Count)
Debug.Print("Anzahl HoleFeatures:" & oCompDef.Features.HoleFeatures.Count)

---

Wenn ich das richtig sehe bekomme ich so die Anzahl der Gewinde (ThreadFeatures.Count) und die Anzahl der Bohrungen (HoleFeatures.Count) heraus, oder nicht ?

Jedes Gewinde / Bohrung kann ich ja über die Item-Eigenschaft dann ansprechen, nur fehlt mir irgendwie der Bezug dazu wie ich z.B. dann die X/Y/Z Koordinate herausbekommen kann, die Größe (z.B. 8 tief, 3 breit bei einer Bohrung) und auch die Gewinde-Infos aus dem Item heraus bekomme. Bei der Flut von Eigenschaften fehlt mri wohl etwas der Ansatz bzw. Durchblick denke ich mal. Hoffe ihr könnt mir etwas auf die Sprünge helfen hier als Einsteiger.

------------------
Bei einem sinnvollen Posting würde man sich über entsprechende Honorierung in Form von einer kleinen Ü-Spende sehr freuen...

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

---

Hallo,

ich bastle gerade an einem automatisch erstelltem Prüfprotokoll und kann die damalige Frage einen Schritt weiter beantworten...

Code:

---

Sub CustomThreadDesignationAuslesen()
    Dim oDoc As Document
    Set oDoc = ThisApplication.ActiveDocument
    Dim i As Long
    Dim oTapInfo As HoleTapInfo
       
    If oDoc.DocumentType = kPartDocumentObject Then
        Dim oPartCompDef As PartComponentDefinition
        Set oPartCompDef = oDoc.ComponentDefinition
       
        Debug.Print ("In Part: Anzahl ThreadFeatures:" & oPartCompDef.Features.ThreadFeatures.count)
        For i = 1 To oPartCompDef.Features.ThreadFeatures.count
            Debug.Print i & ".) " & oPartCompDef.Features.ThreadFeatures.Item(i).ThreadInfo.CustomThreadDesignation
        Next
       
        Debug.Print
        Debug.Print ("In Part: Anzahl HoleFeatures:" & oPartCompDef.Features.HoleFeatures.count)
        For i = 1 To oPartCompDef.Features.HoleFeatures.count
            Set oTapInfo = oPartCompDef.Features.HoleFeatures.Item(i).TapInfo
            Debug.Print i & ".) " & oTapInfo.CustomThreadDesignation
        Next
    ElseIf oDoc.DocumentType = kAssemblyDocumentObject Then
        Dim oAssCompDef As AssemblyComponentDefinition
        Set oAssCompDef = oDoc.ComponentDefinition
       
        Debug.Print ("In Assembly: Anzahl HoleFeatures:" & oAssCompDef.Features.HoleFeatures.count)
        For i = 1 To oAssCompDef.Features.HoleFeatures.count
            Set oTapInfo = oAssCompDef.Features.HoleFeatures.Item(i).TapInfo
            Debug.Print i & ".) " & oTapInfo.CustomThreadDesignation
        Next
    End If
End Sub

---

So long,
Stefan

------------------
IV2008

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