---

2025-02-1715_47_27-AutodeskInventorProfessional2023.png

Hallo zusammen.
Ich muss in einigen Zeichnungsableitungen bei zahlreichen Linien die Eigenschaften wie z.B. Linientyp, Linienstärke und Farbe von "Von Layer" zu Gestrichelt, Kette usw. ändern. (siehe hier)

Hat es schon mal jemand mit VBA hinbekommen es beliebig zu ändern?
Kriege es hin, markierte Linien aufzulisten aber nicht die gewünschten Eigenschaften zu manipulieren. Würde mir gerne ein Makro auf ne Schaltefläche legen um mich nicht jedes Mal bis zum abgebildetem Eigenschaftendialog klicken zu müssen.

Danke  

[Diese Nachricht wurde von insidERR am 17. Feb. 2025 editiert.]

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

---

Moin

Zitat:

---

Hat es schon mal jemand mit VBA hinbekommen es beliebig zu ändern?

---

Ja, neben unzähligen anderen auch ich.  

Sicher das du DrawingCurves in deinem SelectSet hast und nicht DrawingCurveSegments? Wenn man in der GUI eine Fensterauswahl durchführt oder mit gedrückter Shift-Taste mehrere auswählt, sind das alles DrawingCurveSegments. Die kennen nur die Layer Eigenschaft.
Für den Fall könnte man auch eine Interaction starten, die in einer Schleife wartet und nach jeder angeklickten Linie die Änderungen durchführt. Aber erstmal die einfache Variante mit vorher selektieren, dann Makro anwerfen.

Code:

---

Public Sub ModDrawCurve()

Dim oApp As Inventor.Application
Set oApp = ThisApplication

Dim oDoc As DrawingDocument
Set oDoc = oApp.ActiveDocument

Dim oDrawCurve As DrawingCurve
Dim oObj As Variant
For Each oObj In oDoc.SelectSet
    If TypeOf oObj Is DrawingCurveSegment Then
        Set oDrawCurve = oObj.Parent
        oDrawCurve.Color = oApp.TransientObjects.CreateColor(255, 0, 0)
        oDrawCurve.LineType = kDashedLineType
        oDrawCurve.LineWeight = 0.018 ' Angabe in cm!!!!
    End If
Next
End Sub

---

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

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

---

Perfekt. Danke 

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