Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  PTC Creo Elements/Direct Drafting
  Teile löschen nach Muster

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: VERBINDUNGEN IN CREO PARAMETRIC MIT INTELLIGENT FASTENER EXTENTION
Autor Thema:   Teile löschen nach Muster (1128 mal gelesen)
wenk
Mitglied
Konstrukteur, selbständig


Sehen Sie sich das Profil von wenk an!   Senden Sie eine Private Message an wenk  Schreiben Sie einen Gästebucheintrag für wenk

Beiträge: 342
Registriert: 18.04.2002

erstellt am: 26. Okt. 2002 11:25    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

awi
Mitglied
Programmierer


Sehen Sie sich das Profil von awi an!   Senden Sie eine Private Message an awi  Schreiben Sie einen Gästebucheintrag für awi

Beiträge: 275
Registriert: 11.11.2001

awinformatik
- individuallösungen
rund um me10.
- pc-steuerungen.

erstellt am: 26. Okt. 2002 15:37    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für wenk 10 Unities + Antwort hilfreich

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

awi
Mitglied
Programmierer


Sehen Sie sich das Profil von awi an!   Senden Sie eine Private Message an awi  Schreiben Sie einen Gästebucheintrag für awi

Beiträge: 275
Registriert: 11.11.2001

awinformatik
- individuallösungen
rund um me10.
- pc-steuerungen.

erstellt am: 26. Okt. 2002 15:40    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für wenk 10 Unities + Antwort hilfreich

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

wenk
Mitglied
Konstrukteur, selbständig


Sehen Sie sich das Profil von wenk an!   Senden Sie eine Private Message an wenk  Schreiben Sie einen Gästebucheintrag für wenk

Beiträge: 342
Registriert: 18.04.2002

erstellt am: 26. Okt. 2002 17:53    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

awi
Mitglied
Programmierer


Sehen Sie sich das Profil von awi an!   Senden Sie eine Private Message an awi  Schreiben Sie einen Gästebucheintrag für awi

Beiträge: 275
Registriert: 11.11.2001

awinformatik
- individuallösungen
rund um me10.
- pc-steuerungen.

erstellt am: 26. Okt. 2002 20:31    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für wenk 10 Unities + Antwort hilfreich

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

wenk
Mitglied
Konstrukteur, selbständig


Sehen Sie sich das Profil von wenk an!   Senden Sie eine Private Message an wenk  Schreiben Sie einen Gästebucheintrag für wenk

Beiträge: 342
Registriert: 18.04.2002

erstellt am: 27. Okt. 2002 11:39    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2020 CAD.de | Impressum | Datenschutz