---

Hallo Kollegen,

ich versuche per makro eine Schriftart in den Dokumentoptionen zuzuweisen, kriege es aber nicht hin.

wir haben nun SWX2012(SP5, 64bit auf win7) im Einsatz.
In Dokumentoptionen Ansichtsetiketten landet immer Century Gothic,
die würd ich gerne durch "ISOCPEUR" ersetzen.

per Hand geht das natürlich, aber per Makro kriege ich es nicht hin.

laut Aufzeichnung und allem was ich hier gefunden habe sollte es gehen mit:

Code:

---

Set myTextFormat = MyDocExtension.GetUserPreferenceTextFormat(swUserPreferenceTextFormat_e.swDetailingViewTextFormat, 0)
myTextFormat.TypeFaceName = "ISOCPEUR"  ' "Arial" geht auch nicht
boolstatus = MyDocExtension.SetUserPreferenceTextFormat(swUserPreferenceTextFormat_e.swDetailingViewTextFormat, 0, myTextFormat)

---

boolstatus gibt aber immer false .... 

Textformat auslesen funktioniert, ändern und zuweisen nicht.
auch wenn ich das gewünschte Format aus einer anderen Schrift auslese und unverändert versuche zuzuweisen, komme ich noch nicht weiter.

Hat jemand eine Idee für den typischen Fehler an der Stelle?

welche Rolle spielt die 2. Integer-Option? es gibt die Funktion ja anscheinend auch nochmal mit nur 2 Parametern ...

Gruß, Christian

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

---

Hier mal ein komplettes kurzes Makro
Liest die Schriftart, versucht sie zu setzen, gibt eine Statusmeldung.
Kann mal jemand probieren, ob das bei ihm (ihr) läuft?
Bei mir geht es nicht, obwohl ich doch an dem Schriftobjekt nichts verändere.

und mit Benutzung des extra Datentyps ging es auch nicht anders
    Dim myTextFormat As SldWorks.TextFormat

Bin mal wieder mit meinem Latein am Ende ... 

Gruß, Christian

Code:

---

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim MsgText As String
Dim Res As Long

Sub main()

    Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc
    Dim myTextFormat As Object
    Set myTextFormat = Part.Extension.GetUserPreferenceTextFormat(swUserPreferenceTextFormat_e.swDetailingViewTextFormat, 0)
    'myTextFormat.TypeFaceName = "ISOCPEUR"
    MsgText = "Schriftart gefunden: " & myTextFormat.TypeFaceName & Chr(10)
    boolstatus = Part.Extension.SetUserPreferenceTextFormat(swUserPreferenceTextFormat_e.swDetailingViewTextFormat, 0, myTextFormat)
    If boolstatus Then
        MsgText = MsgText & "Textformat erfolgreich zugewiesen" & Chr(10)
    Else
        MsgText = MsgText & "Fehler beim zuweisen" & Chr(10)
    End If
    Res = swApp.SendMsgToUser2(MsgText, 1, 1)
           
   
End Sub

---

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

---

Hallo Christian.

Hilft Dir vermutlich nicht viel, aber bei mir funktioniert es.
Wenn ich die Zeile entkommentiere wird auch ISOCPEUR erfolgreich zugewiesen.
Sowohl in der MsgBox als auch 'Sichtkontrolle' bestätigt.

SWX2013 SP5.0

Gruß, Torsten

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

---

Ich habe nochmal gesucht, und offensichtlich ist dieses Problem, das scheinbar nur bei der Schriftart der Detailansichten auftritt, erst mit 2013 SP4 behoben worden.
Der SPR ist scheinbar 680465 (ich habe hier im Moment keinen 'richtigen' Zugriff auf's Customer-Portal, sorry)

Gruß, Torsten

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

---

Super, Dankeschön 

Bin beim Programmieren immer geneigt, den Fehler erst bei mir zu suchen ...

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

---

Das geht mir ähnlich...
Und meistens habe ich auch Recht. 

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

---

Hallo,

das hat auch den Vorteil, dass man auf jedenfall 50% Recht hat  
entweder vorher oder hinterher ...

und ich wird mir auch angewöhnen, den fraglichen Befehl in der Knowledgebase mit abzufragen ...

Schöne Woche noch,

So - einen kleinen Workaround hätt ich schon mal:

Code:

---

boolstatus = Part.Extension.LoadDraftingStandard("PfadundName.sldstd")

---

funzt auch mit Makro
muss ich mir den halt mal gepflegt ablegen,
dann vergisst man auch nichts mehr beim Ändern von Vorlgagedateien ... 

Gruß, Christian

[Diese Nachricht wurde von Christian_W am 04. Aug. 2014 editiert.]

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

---

Hallo Christian.

Ich habe das Gefühl, Du hast mich mit Deinem Workaround gerade auf eine ganz gute Idee gebracht...

Danke dafür, ich werd' mir meinen auch mal gepflegt ablegen!

Gruß, Torsten

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

---

Gern geschehen 

Mir scheint, auf manche gute Idee würde man ohne Fehler im System gar nicht unbedingt kommen ...
Dassault baut sie also nur zu unserem Besten ein ...

Gruß, Christian

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