---

Hallo,
ich bin auf der Suche nach einer Möglichkeit in instanzierten 2D Components einen modifiable gesetzten Text zu ändern.
Hintergrund: 2D Zeichnung mit vielen Einzelteilschriftköpfen (instanziertes Detail), für Variante ändert sich nun eine Stelle in der Teilenummer (modifiable gesetzt).
Leider bekomme ich keinen Zugriff auf den Inhalt des Textfeldes, ist GetModifiableObject der richtige Befehl? Wie verwendet man den?

Dieses Bsp. geht auf jeden Fall nicht ...
For U = 1 To DrwView.Components.Item(k).GetModifiableObjectsCount
  If DrwView.Components.Item(k).GetModifiableObject(U) = "Blau" Then
      DrwView.Components.Item(k).GetModifiableObject(U) = "rot"
  End If
Next U

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

---

Hallo,

am Anfang habe ich auch so versucht, bin aber versehentlich auf die richtige Lösung gestoßen.
Du musst ein Objekt deklarieren und den ModifiableObject diesen zuordnen. Dann kannst Du machen, was Du willst.

Siehe folgeder Beispiel:

Code:

---

    Dim drawingComponent1 As DrawingComponent
    Dim abc
    Dim iModifiableObjectsCount As Integer
    Dim iCurrModObj As Integer

    iModifiableObjectsCount = drawingComponent1.GetModifiableObjectsCount
    For iCurrModObj = 1 To iModifiableObjectsCount
        Set abc = drawingComponent1.GetModifiableObject(iCurrModObj)
        abc.Text = "ModObj_" + CStr(iCurrModObj)
    Next

---

Zwar nicht so schön mit den Variablennamen, funktioniert aber unter VBA einwandfrei. Müsste auch mit CATScript gehen.

Gruß,
Zoltan

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

---

Hallo Zoltan,
es läuft - super.
Der Name "GetModifiableObject" deutet ja auch an, dass es sich um ein Objekt handelt.

Vielen Dank, Gruß Matthias. 

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