---

Hallo,

ich bin Anfänger was Catia-Programmierung angbelangt
kenne mich aber mit Access-VBA einigermassen aus.
Habe ich eine Chance folgendes zu programmieren:

-Öffnen einer IGES-Datei
-Selektieren aller Texte
-Anpassen von Farbe und Schriftart der Texte

-Selektieren aller Geometrieelemente
-Umwandeln der Farben und Strickstärken

-Selektieren aller Bemassungen
-Umwandeln der Farbe der Bemassungen

-Selektieren aller Schraffueren
-Umwandeln der Farben der Schraffuren

Wo finde ich eigentlich die Methoden und
Objekte im Editor ?

mfG
L. Wahl

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

---

> ich bin Anfänger was Catia-Programmierung angbelangt
> kenne mich aber mit Access-VBA einigermassen aus.

Geht eigentlich einfach, Zeichne einfach die Arbeitsschritte auf  (Tools/Makro/Makroaufzeichnung starten), und Passe dann den Code an.

> Habe ich eine Chance folgendes zu programmieren:
>
> -Öffnen einer IGES-Datei

Müssen nur als *.ig2 geladen (Importiert) werden

> -Selektieren aller Texte
>
Geht mit der Select Funktion. (kannst Du aufzeichnen)
Makro Aufzeichen, auf Suchen gehen (Bearbeiten/Suchen) (STRG+F)
Umgebung = Drafting, Typ = Text
Suchen Lassen, Auswählen, und dann ändern.
> -Anpassen von Farbe und Schriftart der Texte

über visProperty vom Select Object.

> -Selektieren aller Geometrieelemente
> -Umwandeln der Farben und Strickstärken

Geht wie bei den Texten, musst sie nur unterscheiden können.

>-Selektieren aller Bemassungen
>-Umwandeln der Farbe der Bemassungen

Da wirds schwerer , die werden wohl nicht sauber Importiert. Aber wenn du Sie unterscheiden kannst geht es auch mit der suchfunktion von select.

> -Selektieren aller Schraffueren
> -Umwandeln der Farben der Schraffuren

s.o., wenn Sie als Catia Schraffuren vorliegen hast du ein Prob. denn die konnten bisher nicht geändert werden.

>Wo finde ich eigentlich die Methoden und
>Objekte im Editor ?

Schau mal im Object Browser (F2) unter VBA.

------------------
Mit freundlichem Gruß von Carl Tenschert

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

---

Hallo Tenschert,

vielen Dank für deine Antwort. Wie finde ich
am Besten den Einstieg ? Gibt es irgendwo
Beispiel Scripte im Netz ?

mfG
L. Wahl

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

---

Hallo,
Habe Aufgezeichnet, und dann wie oben beschrieben die Visproperty eingebaut. Im VBA Editor ist es möglich mit F1 Hilfe zu Methoden, Functionen zu bekommen.

Guter Einstieg ist natürlich auch die Inofficielle Hilfeseite catia.cad.de, dort liegen ein paar Makros, ansonsten COE auf Englich  .

############# VBA Beispiel ################

' ###################################################################
' # Programmiert von: Carl Tenschert <carl.tenschert(at)fh-koeln.de>#
' # Programmiert für: Forum CAD.DE                                  #
' # Datum: 2005.03.10                                              #
' # Catia Ver.: V5 R12 SP4                                          #
' # Beschreibung:                                                  #
' # Beispiel für Laden eines Iges Files, Ändern der Schrift auf Rot #
' # Linien (schwarz und Stärke =0,35 in Grün, Unsichtbar, 0,13mm    #
' ###################################################################

' ###################################################################
' # Beginn Programm                                                #
' ###################################################################

Sub CATMain()

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim document1 As Document
Set document1 = documents1.Open("C:\Temp\Drawing1.ig2")        'Datei Laden

Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = drawingDocument1.Selection
Dim VisProperties1 As VisPropertySet
selection1.Search "CATSketchSearch.2DPolyline,all"              ' Nach Text suchen
    Set VisProperties1 = selection1.VisProperties
    VisProperties1.SetRealColor 255, 0, 0, 0    ' Rot einfärben

selection1.Clear

selection1.Search "(Color='(0,0,0)' & Weight=0,35mm),all"      ' Nach bestimmten Linien suchen
    Set VisProperties1 = selection1.VisProperties
    VisProperties1.SetRealColor 0, 255, 0, 0 ' Grün einfärben
    VisProperties1.SetRealLineType 3, 0      ' Linientyp 3 Unsichtbare
    VisProperties1.SetRealWidth 1, 0        ' Linienstärke 1 0.13mm
selection1.Clear
End Sub
######################################

------------------
Mit freundlichem Gruß von Carl Tenschert

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