---

Hallo zusammen,
leider bringe ich meinen kleinen Makro (s.u.) noch nicht ganz zufriedenstellend zum Laufen.

Hintergrund: Ich arbeite mit Parts/Products, die häufig sehr lange Namen haben. Daher habe ich normalerweise die Textbreite im Strukturbaum fix auf 48 Zeichen eingestellt. Manchmal ist es jedoch besser, den gesamten Namen zu sehen. Daher habe ich einen kleinen Makro zusammengebastelt, der die beiden Einstellungen in TOOLS - OPTIONS einfach umschaltet (ich möchte mir das Klicken auf TOOLS - OPTIONS sparen).

Der Makro funktioniert auch, habe ich geprüft, indem ich nach jedem Durchlauf unter TOOLS - OPTIONS - GENERAL - DISPLAY - TREE APPEARANCE gecheckt habe, ob bei TREE ITEM SIZE die Einstellung entsprechend geändert wurde (wurde sie).

Was nicht funktioniert ist, dass die Textbreite des Strukturbaumes nach dem Makrodurchlauf nicht aktualisiert wird. Das mit dem VIEW UPDATE im Makro hilft leider nicht. Wie kann ich erreichen, dass meine Strukturbaum-Darstellung die neue Textbreite anzeigt? Habe leider weder in der V5Automation.chm, hier im Forum und über Dr. Google einen passenden Trick gefunden.

==========================================================================
Language="VBSCRIPT"

Sub CATMain()

' Dim Doc1 As Documents
' Dim currentProduct As Product
' Dim rootName As String

Set Doc1 = CATIA.ActiveDocument
MsgBox Doc1.FullName

Set settingControllers1 = CATIA.SettingControllers

Set treeVizManipSettingAtt1 = settingControllers1.Item("CATCafTreeVizManipSettingCtrl")

If treeVizManipSettingAtt1.SizeType = catTreeSizeTypeTextDependentSize then

treeVizManipSettingAtt1.Size = 48
treeVizManipSettingAtt1.SizeType = catTreeSizeTypeFixedSize
treeVizManipSettingAtt1.SaveRepository
msgbox "Text auf 48 Zeichen eingestellt"

else

treeVizManipSettingAtt1.SizeType = catTreeSizeTypeTextDependentSize
treeVizManipSettingAtt1.SaveRepository
msgbox "Text komplett sichtbar"

end if

' Dim oView As Viewer
' Dim oWindow As SpecsAndGeomWindow
Set oWindow = CATIA.ActiveWindow
Set oView = oWindow.ActiveViewer
oView.update

End Sub
==========================================================================
P.S.: die MSGBOXen sind nur als Kontrolle drin, wenn alles läuft, können sie 'raus.

------------------
Bei einer Katze, die ihr Frühstück will, gibt es keine "Schlummer"-Taste! Michael, Trixi und Mark.

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