Servus
Über den Standard:
- neuen Standard für den Kunden anlegen (Kopie des ursprünglichen) (mit deinem CAD-Admin absprechen)
- CATIA im Adminmodus starten
- unter Tools -> Optionen -> Standards -> "dein DrwStandard" den Leader ändern
- unter "Datei -> Seite einrichten" den Standard zuweisen
Oder manuell:
- alle Texte über Suche selektieren
- einen Leader über RMT -> Symbolform ändern (alle Leader der selektierten Texte ändert sich mit)
oder über ein Makro (was sich sicher nicht innerhalb von einem halben Tag realisieren lässt (wenn man keine Erfahrung hat)
Gruß
Bernd
PS: Weiter Lösung: du wartest bis jemand hier zu viel Zeit hat und dir das Makro schreibt (nicht ausgiebig getestet):
Code:
Sub CATMain()Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument
Dim selection1 As Object
Set selection1 = drawingDocument1.Selection
selection1.Search "(CATTPSSearch.CATTPSText + CATDrwSearch.DrwText),all"
Dim oText As DrawingText
Dim oLeader As DrawingLeader
For i = 1 To selection1.Count2
Set oText = selection1.Item2(i).Value
If oText.Leaders.Count > 0 Then
For Each oLeader In oText.Leaders
oLeader.HeadSymbol = catFilledCircle
Next
End If
Next
End Sub
------------------
Warum einfach, wenn es auch kompliziert geht.
[Diese Nachricht wurde von bgrittmann am 27. Nov. 2013 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP