Hallo zusammen,
nach einigen Recherchen hier im Forum, muss ich nun doch mein Anliegen formulieren, da ich als absoluter Anfänger nicht in der Lage bin, ein passendes Makro zusammenzuschustern.
Hier mein Anliegen:
Ich möchte mit einem Makro alle erstellten Annotations modifizieren, d.h. das Makro soll die Schriftgröße verändern, die Annotations schwarz färben und zu guter letzt sollen alle Dimensions als Dual Value, einmal in mm mit der Abstufung 0,1 und in Inch mit der Abstufung 0,1, angezeigt werden.
Ich hab mich auch schon befleissigt, aber es funktionieren lediglich Suche und Selektion der Annos:
Language="VBSCRIPT"
Sub CATMain()
Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument
Dim selection1 As Selection
Set selection1 = productDocument1.Selection
selection1.Search "CATTPSSearch.TPSDimensionAnnot,all"
Dim mytext
Set mytext = selection1.Text.Get2dAnnot
mytext.SetFontSize 0,0,85
MyAnno.ModifyVisu
End Sub
Vielen Dank in Voraus für Eure Unterstützung!!!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP