---

Ebenen.jpg

Hallo,
ich habe in einer Zeichnung mehrere Ebenen.
Diese Ebenen haben wiederum weitere Unterebenen usw.
Also eine klassisch aufgebaute Zeichnung.

Nun möchte ich mit dem Befehl GATHER jede einzelne Ebene+Unterebene direkt unter die TOP-Ebene binden.
Also der hierarchische Ebenen-Aufbau wird zerstört, jede Ebene bleibt dabei erhalten und steht nun direkt unter der TOP-Ebene.

Kann man das auch mit einem Makro automatisiseren?
Siehe Anhang...

[Diese Nachricht wurde von me10nutzer am 13. Jun. 2019 editiert.]

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

---

Hallo,

so sollte es funktionieren.

DEFINE OS_gather
  LOCAL Zaehler
  LOCAL Z_max
  LOCAL Teil
 
  EDIT_PART TOP
 
  CREATE_LTAB "Teileltab"
  PARTS_LIST TREE LTAB "Teileltab"
 
  LET Zaehler 0
  LET Z_max (LTAB_ROWS "Teileltab")
 
  LOOP
    LET Zaehler (Zaehler+1)
    EXIT_IF (Zaehler>Z_max)
    LET Teil (READ_LTAB "Teileltab" Zaehler 1)
    TRAP_ERROR
    GATHER Teil
    IF (CHECK_ERROR)
    DISPLAY_NO_WAIT "schon im aktiven Teil"
    END_IF
  END_LOOP
 
  EDIT_PART TOP
  WINDOW FIT
END_DEFINE

------------------
Gruß,
Peter

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

---

Tiptop, funktioniert wunderbar.
Vielen Dank für die schnelle Hilfe 

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