---

Hallo,

und direkt das nächste Riesenproblem.
Dieses Mal gehts um die Formatierung von Drawing Texten.
In folgendem Code funktioniert so gut wie nichts, ausser die Font Grösse...Alles was Formatierung angeht läuft entweder ohne Fehlermeldung durch (ohne etwas zu bewirken) oder ich bekomme Fehlermeldungen... der untenstehende Code läuft übrigens in einer Schleife ab; könnte das etwas damit zu tun haben?

Set oText = ocText.Add("-", -159, 9.3)  => OK
oText.Name = ("PART" + i)  => OK
oText.Justification = catRight => funktioniert nicht (steht aber so in der automation!)
oText.AnchorPoint = catMiddleLeft => funktioniert nicht (steht aber so in der automation!)
oText.SetFontSize 0, 0, 5  => OK
oText.catCharSpacing,0,0,50  => funktioniert nicht
oText.catRatio,0,0,80  => funktioniert nicht
oText.SetParameterOnsubString catCharSpacing,0,0,20  => funktioniert nicht (hab ich aus anderen Threads wo es anscheinend funktioniert hat!)
oText.SetParameterOnsubString catRatio,0,0,60 => funktioniert nicht (hab ich aus anderen Threads wo es anscheinend funktioniert hat!)

Kann mir einer weiterhelfen? Ich weiss nicht was da los ist... habe mit Tabellen schon ähnliche Probleme, jetzt gehts grad weiter bei den normalen Zeichnungstexten... 

Danke und Gruß
Sven

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

---

Hallo Sven,

hier mal zwei Eigenschaften, die bei mir so funktionieren:

MyText.SetParameterOnsubString catCharRatio,0,0,100
MyText.AnchorPosition = catBottomRight

Gruß
Bertel

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

---

Hallo bertel,

dies ist eben das Misteriöse!
Bei mir funktionieren diese Befehle eben nicht!

Stattdessen sorgen die beiden Befehle dafür, dass mein Text in "Bold" dargestellt wird, obwohl es dafür einen eigenen Befehl gibt welchen ich überhaupt nicht verwende!
Irgendwas geht da mächtig schief in R19 und ich habe keine Ahnung was... wenn man sich nicht mal auf die Befehle aus der automation.chm verlassen kann auf was denn dann bitte? Nervt mich tierisch...

Gruß
Sven

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

---

Servus
Kopiere mal deinen Code in ein VBA-Projekt, und schau mal welche Befehle dir mit IntelliSense (Befehlvervollständigung) angeboten werden. Vielleicht ist die Doku nicht aktuell.

Gruß
Bernd

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

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

---

Hallo Bernd,

sorry, ich arbeite bisher nur mit CATScript und hab keinen Plan vom VBA Editor... 

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

---

Hallo Sven2010,

mit welchem HotFix arbeitest Du?
Falls Du nur mit SP3 ohne HotFix arbeitest, solltest Du mal einen HotFix einspielen! Die großen OEM's arbeiten mittlerweile mit HotFix 48 (, 49, 50).

Nur zur Info: R19 ist aus meiner Sicht das instabilste CATIA seit R10! Hier ohne (hohen) HotFix zu arbeiten ist wie fahren mit 300 km/h bei Sicht von 20m!

mfg,
Lusilnie

------------------
Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!

frei nach größeren Geistern

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

---

Hallo zusammen,

ich bin es mal wieder...
Hab den Tip mit dem R19 Hotfix wahrgenommen und meine lokale Installation auf HotFix 50 upgedatet...

Leider läuft der ganze Kram immer noch nicht  

oText.AnchorPosition = MiddleLeft
Da passiert gar nix!

oText.AnchorPoint = catMiddleLeft
Da passiert auch nix!

oText.Justification = catCenter
Auch hier passiert nix!

An die wichtigen Dinge Ratio und Spacing komm ich überhaupt nicht ran.

Man muss wohl über SetParameterOnsubString gehen, also bspw.

oText.SetParameterOnsubString catCharSpacing, 0, 0, 20

Sobald ich jedoch SetParameterOnsubString benutze passiert nichts ausser dass bei sämtlichen Befehlen der Text auf Bold gesetzt wird.     

Hat irgendjemand noch eine Ahnung was ich machen könnte???
So wie es aussieht war die ganze Arbeit für die Katz und ich kann die Scripts in die Tonne schmeissen, und das wegen der Formatierung von Texten die nicht funktioniert. Ich könnte durchdrehen!

Gruß
Sven

[Diese Nachricht wurde von Sven2010 am 01. Jun. 2010 editiert.]

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

---

du brauchst oText.TextProperties, suche einfach mal nach TextProperties in der V5Automation.chm

------------------
- Robert

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

---

Hi,

klar handelt es sich um Text Properties, aber laut automation sehen die Befehle aus wie von mir verwendet.
oder wie meinst das "ich brauche text properties"?

Gruß
Sven

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

---

Property TextProperties( ) As CATIADrawingTextProperties (Read Only)

Returns the text properties of the drawing text. Allows to modify the whole text properties. To manage a sub part of the text use GetParameterOnSubString
Example:
This example retrieves in TextProperties the text properties of the MyText drawing text.
Dim TextProperties As DrawingTextProperties
Set TextProperties = MyText.TextProperties

------------------
- Robert

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

---

Hallo Robert,

diesen Abschnitt der automation kenne ich, aber was bedeutet es für meine Commands???

Sorry für die dummen Fragen aber ich bin noch immer blutiger Anfänger in der Macrprogrammierung.
Wäre super wenn mir helfen könntest!

Danke und Gruß
Sven

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

---

Dim oTextProps As DrawingTextProperties

Set oTextProps = oText.TextProperties
oTextProps.Justification = catRight
u.s.w.

------------------
- Robert

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

---

Hi,

funktioniert leider auch nicht!

oTextProps.AnchorPosition = MiddleLeft
=> nicht unterstützt

oTextProps.AnchorPoint = catMiddleLeft
=> method anchorpoint failed

oTextProps.Justification = catCenter
=> keine Fehlermeldung, aber Ausrichtung bleibt auf links!

Der Zeichnungsstandard sollte ja keinen Einfluss haben oder? Ich benutze CEG1

Gruß
Sven

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

---

Anchorposition ist ein Eigenschaft von DrawingText:
oText.Anchorposition

Anchorpoint und Justification sind beide Eigenschaften von TextProperties, ich habe auch keine Ahnung wieso es nicht funktioniert.
Ich habe aber gerade bemerkt das es TextProperties in V17 noch gar nicht gab im Automation.chm. Es kann sein das es einfach noch zu 'neu' ist, und deswegen nicht richtig funktioniert.

------------------
- Robert

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

---

Hallo Sven2010,

wollen wir doch mal dem Problem der Reihe nach auf den Grund gehen!

1.) Du hast den HotFix50 eingespielt.
2.) Du hast Deine (lokalen) Settings gelöscht bzw. die (globalen) Settings neu erstellt.
3.) Du hast immer noch die beschriebenen Probleme?

Damit wir hier das Ganze nachvollziehen können, brauchen wir natürlich Deine Bestätigung für die erfolgreiche Abarbeitung der oben aufgelisteten Punkte und ebenfalls Deinen verwendeten Code. Reine Code-Schnipsel sind zwar gut für Testzwecke, doch liegt das Problem sehr oft in speziellen Deklarationen oder falschen Verwendungen von vordefinierten Funktionen.
Daher wäre es interessant, den vollständigen (relevanten) Code zu sehen und nicht nur 1 Code--Zeile.

Summa summarum: Zeige uns doch mal den relevanten Code-Abschnitt, der Deine Probleme verursacht. (Natürlich auch mit den zugehörigen Deklarationen!)
Vielleicht finden wir gemeinsam Dein Problem. Normalerweise funktioniert der Code!  

[Edit] Was ich vergaß: Du hast die Aktualisierung der Ansicht im Script nicht deaktiviert?! [/Edit]

mfg,
Lusilnie

------------------
Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!

frei nach größeren Geistern

[Diese Nachricht wurde von Lusilnie am 02. Jun. 2010 editiert.]

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

---

Ich hab's gerade noch mal auf R19 ausprobiert, bei mir funktionieren Justification und AnchorPoint; man muss aber zum schluss noch mal ein Update machen:
oTextProps.Update

------------------
- Robert

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

---

Hallo  ,

also ich habe das Ganze jetzt mal durchprobiert und bei mir (HF 34) funktioniert es wunderbar. Im CATScript bekomme ich Laufzeitfehler wenn ich versuche den Eigenschaften Justification, AnchorPoint, sowie der Routine SetParameterOnSubString die Konstanten aus der DRAFTINGITF Library zuweise. Jede Konstante erhält aber über die Enum auch einen Long Wert. Diesen weiße ich mit einer Hilfsfunktion den Eigenschaften bzw. der Routine zu und alles klappt wunderbar. D.h. es MUSS bei dir auch klappen.

Hier mal ein Beispielscript (Textfeld befindet sich in der "MainView" im ActiveSheet und wird über das .Item(1) angesprochen (d.h. erstes Textfelder der MainView)

Code:

---

Option Explicit

Sub CATMain()

    '***DEKLARATIONEN
    Dim intDRWDocObj As DrawingDocument
    Dim intDRWSheetsObj As DrawingSheets
    Dim intDRWSheetObj As DrawingSheet
    Dim intDRWViewsObj As DrawingViews
    Dim intDRWSViewObj As DrawingView
    Dim intDRWTextsObj As DrawingTexts
    Dim intDRWTextObj As DrawingText
    Dim intDRWTextProObj As DrawingTextProperties

    '***ALLGEMEINE OBJEKTE HOLEN
    Set intDRWDocObj = CATIA.ActiveDocument
    Set intDRWSheetsObj = intDRWDocObj.Sheets
    Set intDRWSheetObj = intDRWSheetsObj.ActiveSheet
    Set intDRWViewsObj = intDRWSheetObj.Views
    Set intDRWSViewObj = intDRWViewsObj.Item(1)
    Set intDRWTextsObj = intDRWSViewObj.Texts
   
    '***TEXT OBJEKT UND TEXTPROPERTIES HOLEN
    Set intDRWTextObj = intDRWTextsObj.Item(1)
    Set intDRWTextProObj = intDRWTextObj.TextProperties
   
    '***TEXTFORMATIERUNG
    intDRWTextProObj.Justification = EnumCatTextProp("catRight")
    intDRWTextProObj.AnchorPoint = EnumCatTextProp("catMiddleLeft")
    intDRWTextObj.SetFontSize 0, 0, 10
    intDRWTextObj.SetParameterOnSubString EnumCatTextProp("catCharSpacing"), 0, 0, 50
    intDRWTextObj.SetParameterOnSubString EnumCatTextProp("catCharRatio"), 0, 0, 80
   
    '***PROPERTIES UPDATEN
    intDRWTextProObj.Update

End Sub

'***FUNKTION DIE AUS DER CATENUM EINEN LONG WERT GENERIERT
Private Function EnumCatTextProp(ByVal uebConstNameStr As String) As Long
   
    Select Case uebConstNameStr
        Case "catRight"
            EnumCatTextProp = 2
        Case "catMiddleLeft"
            EnumCatTextProp = 2
        Case "catCharSpacing"
            EnumCatTextProp = 15
        Case "catCharRatio"
            EnumCatTextProp = 14
    End Select
       
End Function

---

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

title_block_neu.zip

Hallo Leute,

vielen vielen Dank für eure zahlreiche Hilfe!

Der Reihe nach:
Ich habe auf Hotfix 50 upgedatet
Ich habe meine CAT Settings gelöscht
Ich hatte die Probleme noch immer

ABER
Nun sind diese teilweise gelöst.
Mein erstes Problem war dass ich die Text Properties nach der Definition nicht aktualisiert habe. Dies habe ich nun hinzugefügt. Allerdings hatte ich die gleichen Probleme wie Daniel.
Bei direkter Zuweisung, bspw. von catMiddleCenter beim AnchorPoint, bekomme ich Laufzeitfehler. Auch bei mir funktioniert nur der direkte Wert aus der Enumeration (warum auch immer, ist aus der automation so für mich nicht erkenntlich!).

Anbei mal mein komplettes Script (Title Block Macro).
Ab Zeile 535 beginnt die Texterzeugung und Formatierung!

Anchor Point & Justification funktionieren jetzt einwandfrei, allerdings passiert bei catCharRatio und catCharSpacing noch immer nichts 

@Daniel,
laufen diese beiden Befehle bei dir auch???

Würd mich freuen wenn ihr in meinem Script evtl. den Fehler finden würdet warum die beiden Commands nicht laufen wollen!
Script ist ziemlich chaotisch bin eben noch Anfänger 

Danke euch und Gruß
Sven

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

---

catCharRatio und catCharSpacing funktionieren deswegen nicht weil SetParameterOnSubString auf oText angewendet werden muss, und nicht auf oTextProps

------------------
- Robert

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

---

Hi Robert,

super, jetzt läuft es, danke für den Tip!

Muss direkt auch mal an mein anderes Problem ran jetzt (Drawing Table), ich denke meine dortigen Probleme könnten ebenfalls an dem liegen, dass ich dort die Werte der Enumeration für AnchorPoint, Allignment verwenden muss anstatt des direkten String Wertes.

10 Unities gehen an alle die mir hier so geholfen haben, danke noch einmal dafür!!!

Gruß
Sven

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

---

Hallo zusammen,

ich muss das ganze hier noch mal aufgreifen: Kann es sein, dass das Problem mit den CatTextAnchorPosition Makros ein 64bit V5 Problem ist?

Wir sind gerade dabei 64bit V5 auf Vista einzufuehren und mussten dabei feststellen, dass unsere auf den Dassault Samples basierenden Titleblockscripte an der Stelle aussteigen, an der mittels Text.AnchorPosition die Position des Texts gesetzt werden soll.

Die Routine sieht folgendermassen aus (im Prinzip wie z.B. "CreateTextAF" aus dem Sample Titleblock script):

Code:

---

Sub CATFormatTBText(textName As String, anchorPosition As String, fontSize)
  '-------------------------------------------------------------------------------
  'How to format the texts belonging to the titleblock
  '-------------------------------------------------------------------------------
  Text.Name           = textName
  'Text.SetFontName      0, 0, "Courier10 BT"
MsgBox anchorPosition
  Text.AnchorPosition = anchorPosition
  Text.SetFontSize      0, 0, fontSize

End Sub

---

Sie wird folgendermassen aufgerufen:

Code:

---

CATFormatTBText "TitleBlock_Text_PartNumber", CATMiddleCenter, FontSize1

---

Auf unseren 32bit Windows XP Maschinen zeigt ein MsgBox catMiddleCenter, dass catMiddleCenter = 5 waehrend es auf 64bit - unabhaengig von der V5 Release - leer ist.

Nun koennte man sicher ueberall die Makros ersetzen, aber der feine Weg ist das sicher nicht.

Kennt jemand das Problem?

Gruss

Jens

[Diese Nachricht wurde von jel am 19. Aug. 2010 editiert.]

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

---

Zitat:

---

Original erstellt von jel:

   

Code:

---

Sub CATFormatTBText(textName As String, anchorPosition As String, fontSize)
      '-------------------------------------------------------------------------------
      'How to format the texts belonging to the titleblock
      '-------------------------------------------------------------------------------
      Text.Name          = textName
      'Text.SetFontName      0, 0, "Courier10 BT"
    MsgBox anchorPosition
      Text.AnchorPosition = anchorPosition
      Text.SetFontSize      0, 0, fontSize

    End Sub

---

Sie wird folgendermassen aufgerufen:

   

Code:

---

CATFormatTBText "TitleBlock_Text_PartNumber", CATMiddleCenter, FontSize1

---

[/B]

---

Hallo,

ich weiß nicht obŽs an der 64bit Version liegt (hier gibt es in der Regel schon andere Libraries) aber das ist auch nicht sauber programmiert. Die Sub CATFormatTBText erwartet an zweiter Stelle einen String. Im Aufruf sieht mir das aber nicht nach einem String aus den dieser müsste in "" stehen. Ich würde die Sub CATFormatTBText ändern und die Variable anchorPosition gleich als CatTextAnchorPosition deklarieren. Damit ist der Aufruf auf jeden Fall sauber. Ein Test zweigt dann die Ergebnisse auf 64bit 

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Zitat:

---

Original erstellt von DanielFr.:
Hallo,

ich weiß nicht obŽs an der 64bit Version liegt (hier gibt es in der Regel schon andere Libraries) aber das ist auch nicht sauber programmiert. Die Sub CATFormatTBText erwartet an zweiter Stelle einen String. Im Aufruf sieht mir das aber nicht nach einem String aus den dieser müsste in "" stehen. Ich würde die Sub CATFormatTBText ändern und die Variable [i]anchorPosition gleich als CatTextAnchorPosition deklarieren. Damit ist der Aufruf auf jeden Fall sauber. Ein Test zweigt dann die Ergebnisse auf 64bit  

[/i]

---

Hallo Daniel,

die Sub funktioniert so unter XP 32bit, HP-UX und Solaris.

CATMiddleLeft sollte lt. der Doku in enum_CatTextAnchorPosition.htm in der enum CatTextAnchorPosition definiert sein, ist's aber wohl unter Vista64 nicht:

Code:

---

enum CatTextAnchorPosition {
  catUnsusedValue1,
  catTopLeft,
  catMiddleLeft,
  catBottomLeft,
  catTopCenter,
  catMiddleCenter,
  catBottomCenter,
  catTopRight,
  catMiddleRight,
  catBottomRight,
  catUnsusedValue2,
  catCapLeft,
  catHalfLeft,
  catBaseLeft,
  catCapCenter,
  catHalfCenter,
  catBaseCenter,
  catCapRight,
  catHalfRight,
  catBaseRight
}

---

Ich hab's jetzt mal anders gemacht und so funktioniert's auch auf Vista64:
Im Header des Scripts:

Code:

---

Public Const CATMiddleCenter = "catMiddleCenter"
Public Const CATMiddleLeft  = "catMiddleLeft"
Public Const CATMiddleRight  = "catMiddleRight"
Public Const CATBottomLeft  = "catBottomLeft"

---

Dann noch eine Function:

Code:

---

Private Function EnumCatTextProp(ByVal uebConstNameStr As String) As Long
 
    Select Case uebConstNameStr
        Case "catRight"
            EnumCatTextProp = 2
        Case "catMiddleLeft"
            EnumCatTextProp = 2
      Case "catMiddleCenter"
            EnumCatTextProp = 5
      Case "catMiddleRight"
            EnumCatTextProp = 8
      Case "catBottomLeft"
            EnumCatTextProp = 3
        Case "catCharSpacing"
            EnumCatTextProp = 15
        Case "catCharRatio"
            EnumCatTextProp = 14
    End Select
     
End Function

---

Und die Sub

Code:

---

Sub CATFormatTBText(textName As String, anchorPosition As String, fontSize)
  '-------------------------------------------------------------------------------
  'How to format the texts belonging to the titleblock
  '-------------------------------------------------------------------------------
  Text.Name          = textName
  'Text.SetFontName      0, 0, "Courier10 BT"
  Text.AnchorPosition = EnumCatTextProp(anchorPosition)
  Text.SetFontSize      0, 0, fontSize

End Sub

---

Und der gleiche Aufruf von CATFormatTBText wie vorher.

Gruss

Jens

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