---

zugeordneter_Text.JPG Suffix.JPG

Hallo zusammen,

ich habe folgende Frage:

kann man per Script den Suffix (sofern vorhanden) einer Bemassung auslesen?
An den Wert kann man ja mit .GetValue kommen.

In meinem kleinen Script würde ich an der kommentierten Stelle gerne diesen Suffix abfragen.

Sub CATMain()

Dim drawingDocument1 As document
Set drawingDocument1 = CATIA.ActiveDocument

Dim selection1 As Object 'Selection for CATScript
Set selection1 = drawingDocument1.Selection

selection1.Search "CATDrwSearch.DrwDimension,all"

Dim DRWDimension As DrawingDimension
Dim GESAMTTEXT As String

GESAMTTEXT = ""

Dim I As Integer
Dim MyDimValue As Object

For I = 1 To selection1.COUNT
    Set DRWDimension = selection1.Item(I).Value
    Set MyDimValue = DRWDimension.GetValue        ' Gibt es hier etwas um einen Suffixeintrag einer Bemassung auszulesen?

    GESAMTTEXT = GESAMTTEXT + CStr(MyDimValue.Value) + Chr(10)

Next

MsgBox GESAMTTEXT

End Sub

EDIT: weiteres Bild eingefügt: es handelt sich um einen "zugefügten Text" hinter dem Hauptwert. wie kann dieser ausgelesen werden?

------------------
Grüße aus dem Thurgau
Thomas

+++++++++++++++++++++++++++++++++

CATIA - eine Laune der Natur ...

"Phase 2 in CATIA V5"  - www.tobeplus.de

                      tberger@tobeplus.de    

[Diese Nachricht wurde von tberger am 06. Aug. 2010 editiert.]

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

---

Hallo Thomas,

aber sich gibt es das  . Hier dein Script mit geänderten Codezeilen

Code:

---

Sub CATMain()

    '***DEKLARATIONEN FÜR DIE METHODE
    Dim intIndexLng As Long
    Dim intBeforeStr As String
    Dim intAfterStr As String
    Dim intUpperStr As String
    Dim intLowerStr As String
   
    '***INDEXWERT FESTLEGEN AUF DEN DIE METHODE ANGEWENDET WERDEN SOLL
    intIndexLng = 1 'MAIN VAULE
    'intIndexLng = 2 'DUAL VALUE
   
    Dim drawingDocument1 As Document
    Set drawingDocument1 = CATIA.ActiveDocument
   
    Dim selection1 As Object 'Selection for CATScript
    Set selection1 = drawingDocument1.Selection
   
    selection1.Search "CATDrwSearch.DrwDimension,all"
   
    Dim DRWDimension As DrawingDimension
    Dim GESAMTTEXT As String
   
    GESAMTTEXT = ""
   
    Dim I As Integer
    Dim MyDimValue As Object
   
    For I = 1 To selection1.Count
        Set DRWDimension = selection1.Item(I).Value
        Set MyDimValue = DRWDimension.GetValue        ' Gibt es hier etwas um einen Suffixeintrag einer Bemassung auszulesen?
       
        '***TEXTE AUSLESEN (DER TEXT HINTER DEM MAß IST SINNGEMÄß "intAfterStr")
        MyDimValue.GetBaultText intIndexLng, intBeforeStr, intAfterStr, intUpperStr, intLowerStr

        MsgBox intAfterStr
        GESAMTTEXT = GESAMTTEXT + CStr(MyDimValue.Value) + Chr(10)
   
    Next
   
    MsgBox GESAMTTEXT

End Sub

---

------------------
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

---

Hallo Daniel,

vielen Dank für die Lösung, Genau das war es.
Ich konnte jetzt auch mit .SetBaultText dann andere Strings zurückschreiben.

------------------
Grüße aus dem Thurgau
Thomas

+++++++++++++++++++++++++++++++++

CATIA - eine Laune der Natur ...

"Phase 2 in CATIA V5"  - www.tobeplus.de

         tberger@tobeplus.de

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