---

Hallo, habe eine Frage zum Thema Layereinstellung.
Unser System ist wie folgt eingestellt: Arbeitslayer ist 1, die Skizzen sind auf Layer 11 und die Bezugselemente auf Layer 61.
Beim erstellen eines Objektes werden z. Zt. alle Elemente auf Layer 1 (Arbeitslayer) dargestellt, diese muss ich dann manuell auf die o. g. Layer umstellen. Um Fehler zu vermeiden möchte ich nun das die Layer automatisch zugeordnet werden, d. h. Körper auf 1, Skizzen auf 11 und Bezugselemente auf 61. Wie kann ich diese Einstellung vornehmen.
Danke vorab für die Hilfe.

------------------
Beste Grüße
Joachim Olek

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

---

Hallo Joachim,

Die Frage haben sich schon andere gestellt:
http://forum.cad.de/foren/ubb/Forum4/HTML/009284.shtml

Die Lösung durch Macros, besser Journal ist machbar.

Gruß
Simon

------------------
visit my website http://www.guitarts.de for further information about guitar building and CAD!

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

---

bei uns haben die immer einen Range.....

du kannst sie nachträglich verschieben... entweder manuel oder mit folgendem script....

Code:

---

Option Strict Off
Imports System
Imports NXOpen

Module Module1

Sub Main()

Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim lw As ListingWindow = theSession.ListingWindow
Dim layno as integer
layno = 11

For Each ts As Sketch In workPart.Sketches
ts.Activate(Sketch.ViewReorient.False)
ts.layer.set = layno
layno = layno+1
Next

End Sub
End Module

---

keine garantie fürs script.....

------------------
“Vision without action is a daydream. Action without vision is a nightmare.”

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