---

Hallo Catia-Gemeinde!

Im Schriftkopf-Makro soll der Schriftzug "Fehlende Masse nach 3D!" u.a. umrahmt werden.
Während die anderen Formatierungen funktionieren, wird der Rahmen nicht erzeugt.

Da ich mit der Doku und den Forumsbeiträgen nicht weiter kam, bitte ich Euch um Hilfe.
Meine Bitte möchte ich noch erweitern: Ist meine Programmierweise allgemein so korrekt bzw. optimal?

' Zeichnungsrahmen.CATScript
Public DrwDocument                As DrawingDocument
Public DrwSheets                    As DrawingSheets
Public DrwSheet                      As DrawingSheet
Public DrwView                        As DrawingView
Public DrwTexts                      As DrawingTexts
Public Text                              As DrawingText
'Fehlende Maße

Sub CATMain()

  Set DrwDocument = CATIA.ActiveDocument
  Set DrwSheets  = DrwDocument.Sheets
  Set Selection  = DrwDocument.Selection
  Set selection1  = DrwDocument.Selection
  Set DrwSheet    = DrwSheets.ActiveSheet
  Set DrwView    = DrwSheet.Views.ActiveView
  Set DrwTexts    = DrwView.Texts
  Set Fact        = DrwView.Factory2D
  Set GeomElems  = DrwView.GeometricElements

Text_115="Fehlende Maße nach 3D!"
Set Text    = DrwTexts.Add(Text_115, 50.0, 20.5 )
CATFormatFM "FehlendeMasse", catMiddleCenter, 4.5
End Sub

Sub CATFormatFM(textName As String, anchorPosition As String, fontSize)
  Text.Name          = textName
  Text.SetFontName      0, 0, "Arial Black (TrueType)"
  Text.AnchorPosition = anchorPosition
Text.SetFontSize      0, 0, 8 Text.FrameType = catEllipse
End Sub

Mit freundlichem Gruß
Stephan

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

---

Servus
Wenn du den frameType über die textproperties setz und diese danach updatest sollte es gehen.
Zusätzlich solltest du den DrawingText auch an die Subrutine übergeben zB:

Code:

---

' Zeichnungsrahmen.CATScript
Public DrwDocument                As DrawingDocument
Public DrwSheets                    As DrawingSheets
Public DrwSheet                      As DrawingSheet
Public DrwView                        As DrawingView
Public DrwTexts                      As DrawingTexts
Public Text                              As DrawingText
Dim text_115 As String
'Fehlende Maße

Sub CATMain()

  Set DrwDocument = CATIA.ActiveDocument
  Set DrwSheets = DrwDocument.Sheets
  Set Selection = DrwDocument.Selection
  Set selection1 = DrwDocument.Selection
  Set DrwSheet = DrwSheets.ActiveSheet
  Set DrwView = DrwSheet.Views.ActiveView
  Set DrwTexts = DrwView.Texts
  Set Fact = DrwView.Factory2D
  Set GeomElems = DrwView.GeometricElements

text_115 = "Fehlende Maße nach 3D!"
Set Text = DrwTexts.Add(text_115, 50#, 20.5)
CATFormatFM Text, "Fehlende Maße", catMiddleCenter, 4.5
End Sub

Sub CATFormatFM(TextFeld As DrawingText, Textname As String, anchorPosition As String, fontSize As Double)
  TextFeld.Name = Textname
  TextFeld.SetFontName 0, 0, "Arial Black (TrueType)"
  TextFeld.anchorPosition = anchorPosition
  TextFeld.SetFontSize 0, 0, fontSize
  TextFeld.TextProperties.FrameType = catRectangle
  TextFeld.TextProperties.Update
End Sub

---

Gruß
Bernd

PS: Diese Thema hätte besser ins Unterforum "CATIA V5 Programmierung" gepasst.

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

@ Bernd:

Vielen Dank für Deine rasche Hilfe in mehrfacher Hinsicht!

Ja, der Hinweis, die Rubrik Automatisierung zu nutzen, ist berechtigt.

Mit frohem Gruß
Stephan

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