---

Hallo Forum,
ist es möglich eine Extrusion mit VBA zu kopieren?
Der Befehl Anordnung bringt mir nichts...
Könnt ihr mir helfen!!!

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

---

etwas mehr Details helfen vermutlich

von wo nach wo soll kopiert werden?
a) innerhalb eines Bauteils? dann taucht die Frage auf, was bei der Kopie anders sein soll (identisch bringt ja nix, weil schon vorhanden)
b) von einem Bauteil in ein anderes? ist die Skizze schon vorhanden? soll die auch mitkopiert werden?

zu a) ein Code-Beispiel, das bei mir im wohl einfachsten Test funktioniert hat
(erzeugt ein neues Feature, aber mit der Warnung "keine Auswirkungen?")

Code:

---

Private Sub Copy_ExtrudeFeature()
' neues Feature Extrusion, basierend auf einem vorhandenem
' KraBBy 25.09.2018
'
    Dim oPartDoc As PartDocument
    Set oPartDoc = ThisApplication.ActiveDocument
   
    Dim oCompDef As PartComponentDefinition
    Set oCompDef = oPartDoc.ComponentDefinition
   
    'Quell-Extrusion
    Dim oExtrude As ExtrudeFeature
    Dim oExtrDef As ExtrudeDefinition
    Set oExtrude = oCompDef.Features.ExtrudeFeatures.Item(2)    'hier muss (irgendwie) festgelegt werden, wie man zum Feature gelangt, dass kopiert werden soll!
    Set oExtrDef = oExtrude.Definition
   
    'neue Extrusion, basierend auf der vorhandenen (gleiches Profil, gleiche Operation (z.B. Differenz))
    Dim oExtrDefNew As ExtrudeDefinition
    Dim oExtrudeNew As ExtrudeFeature
    Set oExtrDefNew = oExtrDef.Copy    'die ExtrudeDefinition lässt sich kopieren
    'oExtrDefNew.Operation = kNewBodyOperation 'ggf. auch anpassen, siehe Hilfe
    Set oExtrudeNew = oCompDef.Features.ExtrudeFeatures.Add(oExtrDefNew)
   
End Sub

---

[Edit 16:06 Code korrigiert]

------------------
Gruß KraBBy

[Diese Nachricht wurde von KraBBy am 25. Sep. 2018 editiert.]

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

---

Hallo,
in einem Blechteil ist eine Extrusion als (Abzugskörper),diese Extrusion ist mit Parameter platziert z.B. X = 100/Y = 50/D = 15.
Ich möchte diese Extrusion öfter platzieren, z.B. 4x mit unterschiedlichen Parametern, die ich wiederum in einer "DataGridView" Definiere.

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

---

Schon mal Danke für die schnelle Hilfe

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

---

vmtl. basiert die Extrusion auf einer Skizze, oder? Dann muss man sich überlegen, ob es für jede weitere Extrusion eine neue, eigene Skizze geben soll. Alternativ wäre auch denkbar, die vorhandene Skizze zu nehmen und darin die neue Geometrie zu erzeugen.

Hier ein Beitrag, der einen ganz anderen Weg geht. Das Ergebnis ist nicht parametrisch, klingt aber ein wenig nach Deiner Anwendung (gleiche Geometrie an mehreren Stellen abziehen)
http://modthemachine.typepad.com/my_weblog/2014/09/fast-booleans-using-the-api.html

------------------
Gruß KraBBy

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

---

evtl. auch hilfreich, Copy a sketch API Sample:
https://help.autodesk.com/view/INVNTOR/2018/ENU/?guid=GUID-5545F8F7-B04A-464D-BB51-BA986F0B04F1

------------------
Gruß KraBBy

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