---

Hallo,

ich bin ein absoluter Neuling ind der Makroprogrammierung mit Catia V5. Ich möchte gerne ein Makro schreiben das ich verschiedene Elemente (z.B. alle Sweeps) auf Layer "None" Lege ist sowas möglich??

Soweit bin ich gekommen jetzt weiß ich nur nicht wie ich den Gesuchten elementen den Layer auf "None" setze vielleicht kann mir ja jemand behilflich sein....

  Dim selction2
Set selection2 = CATIA.ActiveDocument.Selection
selection2.Search "Name=Sweep.* ,all"
iaCount =selection2.Count

Set visProperties1 = selection2.VisProperties
visProperties1.SetLayer catVisLayerBasic , 100

Dim layer
layer = CLng(0)
Dim layertype As CatVisLayerType

Set visProperties1 = CATIA.ActiveDocument.Selection.VisProperties
visProperties1.GetLayer layertype, layer
If (layertype = catVisLayerNone) Then
MsgBox "Layer None"
End If
If (layertype = catVisLayerBasic) Then
MsgBox "layer =" & layer

selection2.Clear
       

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

---

Hallo akrenz,

willkommen im Forum!

Zur Frage:
Eigentlich steht die Antwort (zumindest in der Theorie - kann es gerade nicht prüfen!) schon in Deinem Code, wen ich ihn auch nicht wirklich verstehe! Du weist den Elementen der Selektion den Layer 100 zu und fragst danach ab, welchen Layer die Elemente der Selektion haben.

Du musst aus meiner Sicht doch nur anstelle von Layer 100 den Layer NONE zuweisen, also anstatt

Code:

---

visProperties1.SetLayer catVisLayerBasic , 100

---

einfach

Code:

---

visProperties1.SetLayer catVisLayerNone

---

ODER???

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

---

Fehlermeldung_V5.JPG

Hallo lusilnie,

erstmal vielen Damk für deine Antwort....

Ich habe den Code jetzt geändert und bekomme jetzt eine Fehlermeldung wie im Anhang beschrieben... Vielleicht kann mir hierbei jemand helfen...

Habe den Code auch nochmal geändert sieht jetzt so aus ..

Dim selction2

Set selection2 = CATIA.ActiveDocument.Selection

selection2.Search "Name=Fill.* ,all"
iaCount =selection2.Count

  Set visProperties1 = selection2.VisProperties
visProperties1.SetLayer catVisLayerNone

selection2.Clear

Danke mfg

Akrenz

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

---

Hallo Akrenz,

ich denke die Funktion benötigt 2 Parameter.
In deinem 1. Beispiel hast du ja schon den fast richtigen Aufruf drin.

visProperties1.SetLayer catVisLayerBasic , 100

Nur halt anstelle von basic -> none
Der 2. Parameter ist natürlich eigentlich überflüssig, aber er
möchten ihn wohl trotzdem.

Gruss Markus

------------------
Gruss Markus

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

---

Hallo MarkusK,

vielen Dank für deine Antwort jetzt funktioniert es......

 

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