---

Hallo, ich benutze das Programm Autodesk Inventor 2023. Ich suche ein Makro, um ein Bauteil (ipt) komplett einzufärben. Zum Beispiel in ROT.
Kann mir jdm behilflich sein?

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

---

Moin

Willkommen im Forum 

Warum nicht dem Bauteil die Darstellung Rot aus dem Flyout im Expressmenü zuweisen? Sind 2 Mausklicks. Oder soll das Makro Teil einer größeren Programmierung werden?

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

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

---

Moin,

ich erstelle mit Hilfe eines Makros eine STEP Datei von dem Bauteil. Es handelt sich hierbei um ein Laserteil, welches ich bestelle. Damit ich bzw. meine Kollegen aus der Fertigung wissen, dass es sich um ein Laserteil handelt, möchte es dieses Bauteil ROT einfärben. Es erscheint auch in ROT auf der Fertigungszeichnung.

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

---

Moin

Für ein einzeln geöffnetes Bauteil könnte man es so machen. Der Code erstellt entweder lokal eine neue Darstellung "ROT" oder verwendet die bereits vorhandene und weist sie dem Bauteil zu.

Code:

---

Option Explicit

Private Sub AssignAsset()

Dim oPartDoc As PartDocument
Set oPartDoc = ThisApplication.ActiveDocument

Dim oAssets As Assets
Set oAssets = oPartDoc.Assets
   
Dim oAppearance As Asset
For Each oAppearance In oPartDoc.AppearanceAssets
    If oAppearance.DisplayName = "ROT" Then Exit For
Next

If oAppearance Is Nothing Then
    Set oAppearance = oAssets.Add(kAssetTypeAppearance, "Generic", , "ROT")
   
    Dim oColor As ColorAssetValue
    Set oColor = oAppearance.Item("generic_diffuse")

    oColor.Value = ThisApplication.TransientObjects.CreateColor(255, 0, 0)
End If
   
oPartDoc.ActiveAppearance = oAppearance

End Sub

---

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

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

---

Moin, das funktioniert wirklich hervoragend. Super Arbeit 
Im nächsten Schritt möchte ich gerne die Artikelnummer per Makro auf eine ausgewählte Fläche des Bauteils erstellen.
Dafür wird die Artikelnummer aus den I-Props ausgelesen und mittels Markieren in das Bauteil eingefügt. Die größe kann mittels Eingabefeld bestimmt werden

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