---

Hallo zusammen,
ich muss immer wieder für einen Mastercam Programierplatz die Dxf's
in veschiedenen Farben senden.
Die Umrissfarbe sollte violett sein, Unsichtbare grün und die Masse sollten gelb sein.
Nun hab ich versucht ein Makro zu erstellen, das dies tut.
Funktionieren tut erst die Auswahl der Umrisslinien, aber die Wahl der Farbe krieg ich nicht hin.
Hat jemand die rettende idee?
Hier der "Anfang":

Language="VBSCRIPT"

Sub CATMain()

Dim drawingDocument1 As Document
Set drawingDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = drawingDocument1.Selection

selection1.Search "(CATDrwSearch.CATEarlyGenItem & (Dashed=1 & Weight=0,2500 mm)),all"

End Sub

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

---

Hi,

ich hab's nicht an Deinem Beispiel getestet, sondern nur im 3D, aber das hier sollte funktionieren:

Set visPropertySet1 = selection1.VisProperties   
visPropertySet1.SetRealColor 255,204,153,0

Die ersten drei Zahlen stellen die RGB-Werte ein. Wenn das nicht klappt, ein anderes Servicepack oder Release testen. Dassault hat zahlreiche Bugs, die einen Programmierer von Skripten manchmal verzweifeln lassen.

------------------
Tschüß, Dieter

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

---

Hallo Dieter,
erst mal Danke für deinen Beitrag.
leider klappts noch nicht.
andere relase kann ich nicht probieren da Unternemensweit mit R10sp3 gearbeitet wird.

Den Set befehl habe ich erst zussammen nach selection.search1 ..... eingesetzt.
Brachte nichts. danach hab ichs so probiert, kein erfolg!

Language="VBSCRIPT"

Sub CATMain()

Set drawingDocument1 = CATIA.ActiveDocument

Set selection1 = drawingDocument1.Selection

Set visPropertySet1 = selection1.VisProperties

selection1.Search "(CATDrwSearch.CATEarlyGenItem & (Dashed=1 & Weight=0,3500 mm)),all"
   
visPropertySet1.SetRealColor 255,204,153,0

End Sub

Hast du eine idee warum die Variable nicht in visPropertySet1 übernommen wird?
Hab mal visPropertySet1 durch selection1 ersetzt, folge:
Das Objekt unterstüzt diese Eigensch. oder Metode nicht.
?????????

Gibts noch Vorschläge?

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

---

Hi,

das Skript ist zu 100% in Ordnung und funktioniert unter V5R11GA einwandfrei.

V5R10S3 und V5R10S4 haben zahlreiche Bugs. Du hast soeben wieder einmal einen gefunden. Das Tragische ist: Als Programmierer weiß man nie, ob man einen "Hänger" hat, oder ob CATIA mal wieder unsauber programmiert ist. Daher: Immer mit einem zweiten Release gegentesten, wenn etwas nicht funktioniert.

------------------
Tschüß, Dieter

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

---

Danke Dieter,
so bleibt mir wiedermal nichts anderes übrig als das neue release abzuwarten. Laut Systemadmin. soll das dann R12 sein.
Trozdem vielen Dank!

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