---

Hi,

ich habe mal wieder ein API-Problem.
Ich muss in mehreren Zeichnungen die Schriftgöße der Dokumentenschriftart verändern, dazu möchte ich mich natürlich eines Makros bedienen.
Ich habe mir die Vorgehensweise mit dem Makrorecorder aufgezeichnet, sieht richtig aus, läuft durch und ändert die Schriftgröße der Dokumentenschriftart- soweit so gut.

Das Problem: die vorhandenen Texte interessiert das überhaupt nicht. Obwohl die Option "Schriftart des Dokuments" aktiv ist, bleiben die, wie sie sind. In den Dokumentenoptionen (Systemoptionen-Dokumenteneigenschaften-Entwurfnorm-Beschriftungen-Schriftart)ist eindeutig zu sehen, dass die veränderte Einstellung drin steht.

Erst wenn ich die Einstellung in den Dokumentenoptionen händisch hin- und her-verändere, wird diese Veränderung auf der Zeichnung dargestellt.

Ich hoffe, ich habe mich klar ausgedrückt 

Hier ist Code, wie er im Prinzip vom Macrorecorder ausgespuckt wurde:

Code:

---

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc
Dim myTextFormat As Object

'Beschriftungen
Set myTextFormat = Part.Extension.GetUserPreferenceTextFormat(swUserPreferenceTextFormat_e.swDetailingAnnotationTextFormat, 0)
myTextFormat.CharHeight = 0.01
boolstatus = Part.Extension.SetUserPreferenceTextFormat(swUserPreferenceTextFormat_e.swDetailingAnnotationTextFormat, 0, myTextFormat)
End Sub

---

0.01 ist die Schrifthöhe 10mm, die ich hier testweise verwendet habe.
Das selbe Problem tritt auch bei der Bemaßungsschriftart auf.

Hat das vielleicht schon mal jemand gelöst?

------------------
Klaus

www.al-ko.com | mein Gästebuch

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

---

Hallo Klaus

blöde Frage, ist ev. ein Rebuild notwendig?

------------------
Grüße
Heinz

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

---

Hallo Klaus

Durch deinen Code, wird nur die oberste Ebene, also in "Beschriftungen", geändert.
Wenn du das von Hand machst ändert SolidWorks auch die unteren Ebenen (Stücklistensymbole, Bezüge, usw.)

Mein Vorschlag wäre eine Globale Zeichnungsnorm zu erstellen, und diese dann per Makro zuzuweisen.

Code:

---

bRet = swModel.Extension.LoadDraftingStandard("C:\SWX-DraftingStandards\MyNewStandards.sldstd")

---

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

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

---

Danke!
Das war mal wieder die rettende Idee 

Seit wann gibt's denn diese Möglichkeit, Zeichnungsstandards zu speichern und zu laden?
Anders ausgedrückt: Wie lange habe ich das schon wieder verschlafen? 

------------------
Klaus

www.al-ko.com | mein Gästebuch

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

---

Hallo Klaus,

nur kurz zu der ursprünglichen Frage: ich vermute, dass es mit dem Setzen in (Milli)Metern bei dem Font nicht geklappt hat, weil die Höhe als "in Pixel" definiert ist. Dafür gibt es bei den Textformaten noch die Eigenschaft IsHeightSpecifiedInPts und die dazu passenden Methode TextFormat.CharHeightInPts . Falls es für jemanden von Interesse ist in meinem uralten Makro SolidWorks MakroMania - Dokumentoptionen kopieren habe ich für Zeichnungen auch das kopieren von den Textstilen mit drin, da ist der Beispielcode drin.

Das Makro habe ich aber auch genau wegen der Entwurfsnormen schon geraume Zeit nicht mehr aktualisiert, das "rüberkopieren" der Dokumentoptionen (landläufig "Vorlage wechseln" genannt   ) geht damit mittlerweile erstaunlich gut. Ich glaube die Entwurfsnormen kamen in der 2010 dazu, waren aber in den ersten zwei Jahren noch nicht so wirklich brauchbar, vielleicht hast du die deswegen wieder aktiv vergessen  

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de

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