---

example.png

Servus,

Ich möchte den Wert aus Screenshot in Makro gesetzt. Ist es möglich?
Etwas wie:

DrawText1.AnchorPosition = catBottomCenter
DrawText1.Display = catHideValue  - oder ????

Ich kann nicht etwas in der Dokumentation finden.
Vielen Dank im Voraus für die Hilfe.

------------------
Best regards
Fernando

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

---

Hallo Fernando,

das geht AFAIK mit vba nicht!

Du kannst wenn, dann nur den gesamten Text inkl. Linie ausblenden.

Code:

---

Sub CATMain()

Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = drawingDocument1.Selection

Dim visPropertySet1 As VisPropertySet
Set visPropertySet1 = selection1.VisProperties

Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets

Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.Item("Sheet.1")

Dim drawingViews1 As DrawingViews
Set drawingViews1 = drawingSheet1.Views

Dim drawingView1 As DrawingView
Set drawingView1 = drawingViews1.Item("Main View")

Dim drawingTexts1 As DrawingTexts
Set drawingTexts1 = drawingView1.Texts

Dim drawingText1 As DrawingText
Set drawingText1 = drawingTexts1.Item("Text.2")

selection1.Add drawingText1

Set visPropertySet1 = visPropertySet1.Parent

visPropertySet1.SetShow 0
selection1.Clear

End Sub

---

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

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

---

example2.png

Vielen Dank für Antwort.

Sorry, war ich nicht klar genug, siehe Screenshot. Ich möchte verstecken den Text der "Leader".

------------------
Best regards
Fernando

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