Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de
  CATIA V5 Drafting
  Textrahmen nicht möglich

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für CATIA & Co.
  
Dassault PLM Integrationen mit der 3DViewStation, eine Pressemitteilung
Autor Thema:  Textrahmen nicht möglich (1754 mal gelesen)
Pietzonka
Mitglied
Maschinening.


Sehen Sie sich das Profil von Pietzonka an!   Senden Sie eine Private Message an Pietzonka  Schreiben Sie einen Gästebucheintrag für Pietzonka

Beiträge: 114
Registriert: 14.03.2006

erstellt am: 07. Jun. 2013 10:45    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

bgrittmann
Moderator
Konstrukteur


Sehen Sie sich das Profil von bgrittmann an!   Senden Sie eine Private Message an bgrittmann  Schreiben Sie einen Gästebucheintrag für bgrittmann

Beiträge: 12054
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 07. Jun. 2013 11:46    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Pietzonka 10 Unities + Antwort hilfreich

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

Pietzonka
Mitglied
Maschinening.


Sehen Sie sich das Profil von Pietzonka an!   Senden Sie eine Private Message an Pietzonka  Schreiben Sie einen Gästebucheintrag für Pietzonka

Beiträge: 114
Registriert: 14.03.2006

erstellt am: 07. Jun. 2013 14:05    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

@ 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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2025 CAD.de | Impressum | Datenschutz