---

Hallo zusammen

ich möchte per Makro die Textstile anpassen weis aber nicht wie ich an die Namen der Textstile kommen. Es geht um die Textstile: Bezeichnungstext(DIN), Notiztext(DIN), Oberflächentext, Revisionstext, Stücklistentext. Hier möchte ich die Dehnung von 100 auf 70 ändern.
Warum will ich das tun : weil ich sehr viele Zeichnungen habe (ca. 1000) die nicht unseren Stil Vorgaben entsprechen. Die Zeichnungen sollen alle angepasst werden.
Kann mir jemand von euch einen Tipp oder Code Auszug geben?
Bin für jede Hilfe dankbar.

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

---

Dok1.pdf

Hallo zusammen

bin jetzt einen Schritt weiter kann die Texte verändern funktioniert soweit ganz gut. Hier mein Ansatz

drawdoc.StylesManager.TextStyles.Item(9).WidthScale = 0.7
drawdoc.StylesManager.TextStyles.Item(57).WidthScale = 0.7
drawdoc.StylesManager.TextStyles.Item(60).WidthScale = 0.65
drawdoc.StylesManager.TextStyles.Item(61).WidthScale = 0.7
drawdoc.StylesManager.TextStyles.Item(86).WidthScale = 0.7

Ich will jetzt noch die Radius u. Durchmesserbemassung anpassen kann mir dabei jemand helfen? Im angehängten Bild habe ich die Stelle markiert die ich verändern will. So soll nachher die Einstellung sein

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