---

Hallo,

gibt es eine Möglichkeit im ME10 nur die 2. Ebene (also alle Ebenen direkt unterhalb des tops) zu editieren und den Namen auszugeben. Also alle Teile die direkt unter dem top stehen, aber NUR in der 2. Ebene.

Wäre cool wenn mir da jemand helfen könnte

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

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

---

hallo,
wenn ich dich richtig verstanden habe... -was genau willst Du denn machen?

- Also wenn "Top" aktiv ist, dann kann man ab V10.x mittels EDIT_PART "Name" das Teil aktivieren, unabhängig davon, ob dieser Name als Enkel von Top nochmals vorhanden wäre.

- Weiterhin kannst Du mit dem Befehlsfolge PARTS_LIST SCREEN die Anzahl, sowie die Teilenamen der Teilen unterhalb des aktuellen Teiles zeigt. Allerdings Teilenamen die mit "." beginnen werden unterdrückt. (Details, Zeichnunsrahmen, Oberfl.-symbole)

- Ausserdem baut der Teileeditor eine log. Tabelle auf. Aus dieser kannst Du auch die Teilenamen auslesen. Mit PB_LTAB_UPDATE wird diese Tabelle aktualisiert, dann lassen sich dort die Werte aus der Tabelle "PBT_LTAB" lesen.

------------------
Grüsse aus dem Schwarzwald 
www.Andreas-Baumgartner.de

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

---

Etwa so :

DEFINE Zweite_ebene
  LOCAL Tnk
  LOCAL Tn
  LOCAL Ed
  LOCAL Zeile
 
  CREATE_LTAB 'Teileliste.ltab'
  LET Zeile 1
 
  INQ_PART '/'  {* Das TOP-Teil fragen *}
  LET Tnk (INQ 902)
  LOOP
  EXIT_IF (Tnk = 'END-OF-LIST')
    LET Tn (SUBSTR Tnk 1 ((POS Tnk '~')-1))
    LET Ed (SUBSTR Tnl (POS Tnk '~') (LEN Tnk))
    WRITE_LTAB 'Teileliste.ltab' Zeile 1 Tn
    WRITE_LTAB 'Teileliste.ltab' Zeile 2 Ed
    LET Zeile (Zeile + 1)
    LET Tnk (INQ 903)
  END_LOOP

END_DEFINE

Hab's aber nicht getestet.

Gruß
Stefan

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

---

DAnke erstmal für die schnellen Antworten,

hab das jetzt noch nicht ausprobiert. Also was ich konkret machen will: Ich möchte aus einer Zeichnung alle teile die in der 2. ebene stehen als teil speichern. der name ist immer verschieden, kann ich also nicht über einen namen wählen.

das top heißt z.B. "4-114025-"

die teile in der 2. ebene z.B. "2001"
                              "2002"
                              "2003"

Das Teil "2002" und so weiter soll dann unter 4-114025-2002 gespeichert werden.
DAs ist mein Ziel. Wie gesagt der name des top und die namen der 2. ebenen sind immer verschieden.

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

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

---

storesubs.txt

Morgen!

ich hab (glaub ich) mal vor einiger Zeit ein Makro gepostet, mit dem man die Teilestruktur durchlaufen kann und in jedem Teil dann irgendeine Aktion ausführen kann - praktisch vor allem für Befehle, die nicht GLOBAL funktionieren (zB CHANGE_DIM_COLOR). Dieses Makro kann man auch für Dein Problem hernehmen - mit ein paar kleinen Änderungen.

Mit PARTS_LIST TREE krieg ich eine Liste aller Teile, jede Teileebene ist um 2 Stellen weiter eingerückt als die vorige. Wenn das 7.Zeichen jeder Zeile kein Leerzeichen ist, dann ist das ein Teil in der 2.Ebene  (das funktioniert nur dann nicht, wenn es Teilenamen gibt die mit einem Leerzeichen beginnen - was ja vermutlich eher unwahrscheinlich ist).

Ich habs KURZ durchgetestet - müßte so funktionieren.

Code:

---

DEFINE Storesubs

  EDIT_PART TOP
  INQ_PART "/"
  LET Topname (INQ 301)

  CREATE_LTAB 'TMPLTAB'
  PARTS_LIST TREE LTAB 'TMPLTAB'
 
  LET I 2
  WHILE (I <= (LTAB_ROWS 'TMPLTAB'))
    LET Z (READ_LTAB 'TMPLTAB' I 1)
    LET Kl1 (POS Z ' [~')
    LET Tmpstr (SUBSTR Z (Kl1+2) (LEN Z - Kl1 - 1))
    LET Kl2 (POS Tmpstr ']')
    LET Name (TRIM (SUBSTR Z 1 (Kl1 - 1))) { <--- Teilename }
    LET Nr (SUBSTR Tmpstr 1 (Kl2-1)) { <--- Teilenummer }

    Teil_aktion

    LET I (I+1)
  END_WHILE

END_DEFINE

DEFINE Teil_aktion

  LET Char (SUBSTR Z 7 1)
  IF (Char <> " ")
    STORE Nr DEL_OLD (Topname + "-" + Name)
  END_IF

END_DEFINE

---

Gruß aus Österreich,
Hannes

------------------
und i hob im kaulenda gschaut: heit geht da wind.

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