---

Servus,

ich programmiere gerade ein VBA-Makro um Maße / Textfelder usw. nach
bestimmten Richtlinien einzustellen.

Nun möchte ich selektierte Textfelder rot einfärben und den Rahmen (Frame)
Diamond aktivieren. Die Textfelder werden richtig vom VBA eingelesen
und es werden auch alle Werte Einstellungen usw richtig erkannt.
Allerdings stimmt irgendetwas nicht an der Zeile in der ich den
CatTextFrameType ändern möchte. Weiß jemand wie das geht?!

        Set oDoc = CATIA.ActiveDocument

'        On Error Resume Next
'        CATIA.HSOSynchronized = False
            Set oSel = oDoc.Selection

                Dim sFilter(0)
                sFilter(0) = "AnyObject"
                    sStatus = oSel.SelectElement2(sFilter, "", True)

                If sStatus = "Normal" Then
                    For i = 1 To oSel.Count
                        Set oText = oSel.Item(i).Value
                            oText.CatTextFrameType = catDiamond
                        Set VisPropertySet = oSel.VisProperties
                            VisPropertySet.SetRealColor 255, 0, 0, 0
                    Next
                Else
                    Exit Sub
                End If

'        CATIA.HSOSynchronized = True
'        On Error GoTo 0

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

---

Ach echt ey das war doch wieder klar. Stunden lang mach ich an dem
****** rum und Sekunden nach dem ich hier mal nachfrage komme ich
spontan auf die Lösung 

        Set oDoc = CATIA.ActiveDocument

        On Error Resume Next
        CATIA.HSOSynchronized = False
            Set oSel = oDoc.Selection

                Dim sFilter(0)
                sFilter(0) = "AnyObject"
                    sStatus = oSel.SelectElement2(sFilter, "", True)

                If sStatus = "Normal" Then
                    For i = 1 To oSel.Count
                        Set oText = oSel.Item(i).Value
                            oText.FrameType = CatTextFrameType.catDiamond
                        Set VisPropertySet = oSel.VisProperties
                            VisPropertySet.SetRealColor 255, 0, 0, 0
                    Next
                Else
                    Exit Sub
                End If

        CATIA.HSOSynchronized = True
        On Error GoTo 0

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

---

Hi InFlames,

anstatt

Code:

---

  For i = 1 To oSel.Count
      Set oText = oSel.Item(i).Value
      oText.FrameType = CatTextFrameType.catDiamond
      Set VisPropertySet = oSel.VisProperties
      VisPropertySet.SetRealColor 255, 0, 0, 0
  Next

---

probier bitte

Code:

---

  For i = 1 To oSel.Count
      Set oText = oSel.Item(i).Value
      oText.FrameType = CatTextFrameType.catDiamond
  Next

  Set VisPropertySet = oSel.VisProperties
  VisPropertySet.SetRealColor 255, 0, 0, 0

---

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Stimmt natürlich 

Danke

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

---

Zu früh gefreut.

Unter R24 läufts genau so wie es soll. Unter R19 allerdings nicht.
Das Textfeld wird rot eingefärbt, der Frame aber nicht erstellt?!
Die Typen, Benennungen usw sind aber alle zu R24 identisch und das
Script läuft ohne Fehler durch. Es wir aber eben nicht das Frame
Diamond erstellt.

Weiß jemand woran das liegen kann? Da kein Fehler kommt denke ich mal
das R19 die Befehle versteht... Bug?!

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

---

Servus
In R19 scheint noch dieser Bug vorhanden zu sein.
Das heißt das es nur Funktioniert wenn der Text schon einen Rahmen hat oder mal einen gehabt hat.

Gruß
Bernd

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

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

---

Hi InFlames,

schau mal hier nach:

http://catia2.cad.de/index.php/de/downloads/skripts-applikationen/244-dressdim-ein-bemassungsmakro

oder hier:
http://catia2.cad.de/index.php/de/downloads/skripts-applikationen/211-rahmen-um-mass

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Servus,

vielen Dank.
Die Makros mit den Maßen funktionieren wunderbar und habe ich auch im
Einsatz. Bei Textfeldern bringen die aber nichts.

Es ist tatsächlich so. Wenn vorher ein Frame definiert war funktioniert
es. Dann kann man da wohl nichts machen...

Trotzdem vielen Dank :-)

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

---

D'oh!

Hab ich wohl nur halb hingeschaut!

Ich probier mal was.

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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