---

Hallo zusammen,
hab eine Frage:
wie kann ich eine Flächenverjüngung in VBA
unterdücken? (Klassenname od. Beispielprogramm wäre hilfreich!)

Wenn es jemand weiß, bitte melden!

Danke

Gruß Georg

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

---

Hallo,
hier mal ein Text, um eine Extrusion anhand seines Namens im Modellbrowser löschen kann. Das könntest du sicherlich recht einfach umschreiben. Also das "Inventor.ExtrudeFeature" in die Flächenverjüngung ändern (ich weiß jetzt nicht was das auf Englisch heißt, aber es gibt ja ne Autovervollständigung ;-)) Anschließend noch "EXTRUSION.Delete" in sowas wie "Flächenverjüngung.Hide" oder so umschreiben. Das sollte mit ein wenig Glück (bei VBA braucht man das immer ;-)) funktionieren.

Versuchs mal!

MfG, Heiner

Dim oDoc As Inventor.PartDocument
    Set oDoc = ThisApplication.ActiveDocument

Dim EXTRUSION As Inventor.ExtrudeFeature
    For Each EXTRUSION In oDoc.ComponentDefinition.Features.ExtrudeFeatures
        If TypeOf EXTRUSION Is Inventor.ExtrudeFeature Then
                EXTRUSION.Delete
        End If
    Next

------------------
The engineer constructs weapons, the civil engineer constructs targets!