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