Jedes 3d Objekt auf extra ebene

[gsedlmeier]

Hallo ich habe einen Ausbau von einem Weltreisemobile.

Die ca 600 3d teile müssen an die CNC übergeben werden. 

Dazu möchte ich gerne jedes 3d Objekt auf eine extra ebene legen und diese am besten mit dem Namen des Objektes ( Infopalette unten) benennen.

Von dort aus hätte ich dann jede Ebene in die cnc exportiert. ( Je Teil eine DXF Datei)

Gibt es da ein Tool dafür, oder gibt es einen einfacheren Weg. 

Gruß Günther hat

[inderfab]

#Bei L='Ausgangsebene eingeben' 
c = "NOTINDLVP & NOTINREFDLVP & (L='Ausgangsebene')"

LName = vs.GetLName(vs.ActLayer())

def proz(h):
	vs.DSelectAll()
	name = vs.GetName(h)
	vs.SetSelect(h)
	vs.DoMenuTextByName('Cut', 0)
	vs.Layer(name)
	vs.DoMenuTextByName('Paste In Place', 0)
	vs.Layer(LName)

vs.ForEachObject(proz, c)

Dieses Skript fügt jedes Objekt auf eine eigene Ebene ein und benennt die Ebene nach dem Namen des Objekts. Bei starten des Skripts musst du auf der Ausgangsebene mit den Objekten sein. 

Gruss Fabio

 

 

Bearbeitet 22. September 2020 von inderfab

[inderfab]

Kann den Beitrag irgendwie nicht bearbeiten. Hatte noch einen Überlegungsfehler, hier noch simpler:

LName = vs.GetLName(vs.ActLayer())
c = "NOTINDLVP & NOTINREFDLVP & (L='" + LName +"')"


def proz(h):
	vs.DSelectAll()
	name = vs.GetName(h)
	vs.SetSelect(h)
	vs.DoMenuTextByName('Cut', 0)
	vs.Layer(name)
	vs.DoMenuTextByName('Paste In Place', 0)
	vs.Layer(LName)

vs.ForEachObject(proz, c)

 

[gsedlmeier]

Danke für die schnelle Antwort Fabio,

aber ich bekomme immer eine Fehlermeldung:

[gsedlmeier]

[herbieherb]

Du musst beim Script-Editor noch auf Python umschalten:

[gsedlmeier]

Cooler Sch.....

Vielen Dank für Eure schnelle Hilfe das geht super.

Danke

[gsedlmeier]

Hallo zusammen, das Tool funktioniert super, aber ich habe jetzt im Finalen Projekt ein Problem:

Bitte könnt ihr mir nochmal helfen:

Ich habe ca. 600 Bauteile die je eine Gruppe sind und diese Gruppe hat einen Namen.

Ziel ist es das jede Gruppe eine extra Ebene wird. Ebenenname = Gruppenname(aus Infoalette unten)

 

Das geht eigentlich gut aber:

In der Gruppe liegen bis zu 200 Objekte (Bohrungen, Ausschnitte......) die keinen Namen haben.

Diese sollten in die Ebene wie oben erzeugt von der Gruppe. 

Das Script macht aber für jedes Objekt (auch das in der Gruppe) jetzt eine einzelne Ebene (Konstruktionsebene 1 bis Konstruktionsebehe 999999...)

Das rechnet mein Rechner schon gar nicht mehr.

 

Ist es möglich nur jede Gruppe in eine extra Ebene zu schieben und der Inhalt der Gruppe ist auch Inhalt der Ebene.

Bitte um Hilfe der Script_Gurus

Günther Sedlmeier

 

[Manuel Roth]

In den ersten zwei Zeilen wird das Kriterium definiert, welche Objekte später bearbeitet werden sollen.

 

Anschlissend wird jedes Objekt, dass den Kriterien entspricht an die Funktion proz übergeben. Die erstellt die Ebenen und verschiebt die Objekte dorthin.

 

Du kannst nun ein Kriterium hinzufügen, dass nur Gruppen berabeitet werden sollen. Der Aufbau der Kriterien ist praktischerweise genau gleich wie bei den Filterzeilen in den Tabellen.

 

Bei dir könnte es in etwa so aussehen.

LName = vs.GetLName(vs.ActLayer())
c = "NOTINREFDLVP & NOTINDLVP & (T=GROUP) & (L='" + LName +"')"

...

Bearbeitet 7. Oktober 2020 von Manuel Roth

[gsedlmeier]

Danke Manuel,

es funktioniert einwandfrei. 

Ihr seid die Besten.

Vielen Dank für die schnelle Hilfe.

Günther Sedlmeier

 

[gsedlmeier]

Also nochmals vielen Dank das hat mir Irrsinnig viel Arbeit gespart und hat super geklappt.

 

[holzronny]

Hallo zusammen,

auch von mir vielen Dank für das tolle Script. Ich hätte noch eine Frage dazu. Ist es möglich, dass nur die Gruppen auf eine extra Ebene gelegt werden, denen ein Name ( Gruppenname(aus Infoalette unten)) zugewiesen wurde? Ich frage deshalb, da in meinen Zeichnungen auch noch viele andere Gruppen vorhanden sind, welche nicht auf einer extra Ebene liegen sollen.

Über Hilfe würde ich mich sehr freuen.

 

Viele Grüße

Ronny Geißler

[Manuel Roth]

Hallo Ronny

 

Herzlich willkommen im Forum und Gratulation zu deiner Signatur.

 

Du kannst wie oben beschrieben das Kriterium ändern. Du musst deine Frage allerdings ein wenig anders stellen, dann kommst du auch selbst darauf.

 

Ist es möglich, dass alle Gruppen auf eine extra Ebene gelegt werden, die nicht keinen Namen haben?

LName = vs.GetLName(vs.ActLayer())
c = "NOTINREFDLVP & NOTINDLVP & (T=GROUP) & (L='" + LName +"') & (N<>'')"

...

 

[holzronny]

Hallo Manuel,

ich habe es gleich ausprobiert, das funktioniert super, vielen vielen Dank dafür.

 

Ich wünsche Dir noch ein schönes Wochenende.

 

Viele Grüße

Ronny Geißler

[holzronny]

Hallo zusammen,

 

ich bin noch immer begeisterter Nutzer dieses Scripts und habe versucht es etwas anzupassen. Leider bekomme ich es nicht hin,  dass auch die gruppierten  Bauteile (Vollkörper mit Namen in Info-Palette unten) auf die entsprechende Ebene gelegt werden sondern nur die nicht gruppierten Bauteile (Vollkörper mit Namen in Info-Palette unten). Die Ebenen werden aber  für alle Bauteile (auch die gruppierten) mit dem entsprechenden Namen angelegt.

Ich habe erfolglos versucht, die Kriterien in verschiedensten Varianten zu ändern und möchte Euch deshalb um Hilfe bitten.

 

Viele Grüße,

Ronny Geißler

 

 

Die Gruppen mit den darin befindlichen Bauteilen bleiben auf der Ausgangsebene.