---

Hi

habe mir ein macro erstellt was einen wert in einem skezzierten symbol ausfüllt.

Code:

---

Dim odrawdoc As DrawingDocument
Set odrawdoc = ThisApplication.ActiveDocument
Dim Sym As SketchedSymbol
Set Sym = odrawdoc.ActiveSheet.SketchedSymbols.Item(1)
Dim otext As TextBox
Set otext = Sym.Definition.Sketch.TextBoxes.Item(4)
Call Sym.SetPromptResultText(otext, "xxx33x33")
End Sub

---

funktioniert soweit auch ganz gut das einzige problem was ich noch habe das er das symbol über .Item(1) auswählt, also das zuerst gesetzte. nun ist das auszufüllende symbol aber nicht immer das zuerst gesetzte und damit die 1 falsch.

kann ich es irgendwie auch über den namen "zusatzschriftfeld 2" anstelle der nummer ansprechen ?

Danke

Dero

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

---

Hallo

Probier doch einfach mal:

Code:

---

Set Sym = odrawdoc.ActiveSheet.SketchedSymbols.Item("zusatzschriftfeld 2")

---

Wenn das nicht klappt, mit einer For Each Schleife durch alle Symbole laufen und den Namen vergleichen.

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

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

---

hi

danke für die antwort habe es aber in diesem moment so gelöst bekommen.

Code:

---

  Dim myidw As DrawingDocument
    Set myidw = ThisApplication.ActiveDocument

    Dim oSS As SketchedSymbol

    For Each oSS In myidw.ActiveSheet.SketchedSymbols

        If oSS.Definition.Name = "Zusatzschriftfeld 2" Then
          Set otext = oSS.Definition.Sketch.TextBoxes.Item(4)
Call oSS.SetPromptResultText(otext, sMassstab1)
        End If
    Next
End Sub

---

jetzt wäre noch die frage wie ich das macro über alle blätter einer zeichnung aufeinmal laufen lassen kann.

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

---

Hallo

Code:

---

Dim oSheet As Sheet
For Each oSheet in myidw.Sheets
For Each oSS In oSheet.SketchedSymbols
...
Next
Next

---

Aber ändert sich nicht automatisch in allen skizzierten Symbolen der Text wenn man eines ändert?

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

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

---

hi

nein natürlich hat jedes blatt seinen eigenen eintrag da ja auf jedem baltt ein anderes bauteil ist und somit natürlich auch jedes baltt einen anderen maßstab hat.

habe hier mal den kompletten code gepostet

http://ww3.cad.de/foren/ubb/Forum258/HTML/001435.shtml

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