---

Hallo zusammen!
Me10_11.0b peelock 2 + WIN2000
Gibt es ein Makro zum Löschen von gleichen Teilen einer Zeichnung?
Bisher editiere ich das zu löschende Teil (jeweils in unterster Hirarchie im Teilebaum) , übernehme den Namen durch Umbenennen und setze im alten Teileeditor das Muster.
Nun editiere ich jeweils die hervorgehobene Zeile, editiere Oberbaugruppe und lösche die Zeile.

Gruß  Manfred

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

---

hi wenk

define a
edit_part top

read string 'bitte muster in in teilebrowser antippen' Teil_ID
let LtabCounter 1

while (LtabCounter<=(ltab_rows 'PBT_LTAB'))
  let LtabZeile (read_ltab 'PBT_LTAB' LtabCounter 2)
  if ((trim LtabZeile)=Teil_ID)
  let musterString (read_ltab 'PBT_LTAB' LtabCounter 1)
  let LtabCounter ((ltab_rows 'PBT_LTAB')+1)
  end_if
  let LtabCounter (LtabCounter+1)
end_while

let LtabCounter 1

while (LtabCounter<=(ltab_rows 'PBT_LTAB'))
let LtabZeile (read_ltab 'PBT_LTAB' LtabCounter 1)
display_no_wait (read_ltab 'PBT_LTAB' LtabCounter 2)

if (LtabZeile=musterString)
  read string 'teil löschen ?' default 'ja' DelString
 
  if (delString='ja')
    delete parts global (read_ltab 'PBT_LTAB' LtabCounter 2) end { absoluter teilename}
  end_if
  end_if
  let LtabCounter (LtabCounter+1)
end_while
end_define

gruss aus finsterhennen

------------------
awi
André Weidmann

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

---

nachtrag

du kannst ja auch nachsehen wie cc es gelösst hat. dazu musst du den tabellenschutz entfernen mit unsecure_table tabellenname (PRT_EDITOR = teileeditor)

------------------
awi
André Weidmann

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

---

Vielen Dank André!
Das Makro funktioniert. Wenn  man jetzt noch die Teilebezeichnung mit Platzhalter (zB. Flanschdichtung*) direkt eingeben könnte, wäre es perfekt.
Bei meiner alten Vorgehensweise habe ich diesen Platzhalter im Teileeditor eingegeben. Danach waren alle Flanschdichtungen unterschiedlicher Abmessungen zu erkennen.

Was meinst Du mit dem Nachtrag? Ich traue mich nicht den Befehl auszuführen.

Nochmals vielen Dank.

Gruß  Manfred 

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

---

hi manfred

define a
edit_part top

read string 'bitte muster in in teilebrowser antippen' Teil_ID
let LtabCounter 1

while (LtabCounter<=(ltab_rows 'PBT_LTAB'))
  let LtabZeile (read_ltab 'PBT_LTAB' LtabCounter 2)
  if ((trim LtabZeile)=Teil_ID)
  let musterString (trim(read_ltab 'PBT_LTAB' LtabCounter 1))
  let LtabCounter ((ltab_rows 'PBT_LTAB')+1)
  end_if
  let LtabCounter (LtabCounter+1)
end_while

read string 'Muster bearbeiten' default musterString musterString

let LtabCounter 1

create_ltab 'x'
while (LtabCounter<=(ltab_rows 'PBT_LTAB'))
  write_ltab 'x' LtabCounter 1 (trim (read_ltab 'PBT_LTAB' LtabCounter 1))
  write_ltab 'x' LtabCounter 2 (trim (read_ltab 'PBT_LTAB' LtabCounter 2))
  let LtabCounter (LtabCounter+1)
end_while

select_from_ltab 'x' 1 = musterString end

if ((ltab_rows 'sys_select')<=0)
  display 'Keine übereinstimmung gefunden.' wait 2
  a
end_if

let LtabCounter 1

while (LtabCounter<=(ltab_rows 'sys_select'))
display (read_ltab 'x' (read_ltab 'sys_select' LtabCounter 1) 1)
read string 'teil löschen ?' default 'ja' DelString
 
if (delString='ja')
  delete parts global (trim(read_ltab 'x' (read_ltab 'sys_select' LtabCounter 1) 2)) end { absoluter teilename}
end_if
let LtabCounter (LtabCounter+1)
end_while
end_define

gruss aus finsterhennen

------------------
awi
André Weidmann

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

---

Super André !
vielen Dank für die Erweiterung. Damit kann ich entspannter arbeiten.

Gruß  Manfred

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