| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für PTC CREO |
| | |
 | NeoSpace Essentials 2.12 jetzt verfügbar, eine Pressemitteilung
|
|
Autor
|
Thema: Teil suchen (723 mal gelesen)
|
Tom R
Mitglied
Technischer Zeichner
   Beiträge: 275
Registriert: 02.11.2003
|
erstellt am: 08. Nov. 2006 14:07  <-- editieren / zitieren -->   Unities abgeben:          
Hai! Wie kann ich denn per Makro nach einem bestimmten Teil suchen?
Ich möchte ein Teil mit einem bestimmten Namen aktiv machen oder, wenn es noch nicht existiert, erzeugen und aktiv machen. Das ist für viele hier doch bestimmt kein Hexenwerk, oder? Nur ich finde bisher noch keinen rechten Ansatz dafür. Es wäre nett, wenn jemand mir helfen könnte. Vielen Dank und schöne Grüße
Tom Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
H.annes
Mitglied
CAD-Pfriemler
Beiträge: 482
Registriert: 02.07.2001 OSDD 8.7 - 13.20 ; OSDM 13.00
|
erstellt am: 09. Nov. 2006 07:42 <-- editieren / zitieren --> Unities abgeben: Nur für Tom R 
Morgen! Code:
DEFINE Teilaktiv
READ STRING Teilename
{LOCAL ...}
CREATE_LTAB 'TMPLTAB'
PARTS_LIST TREE LTAB 'TMPLTAB'
LET I 1
LOOP
EXIT_IF (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 }
EXIT_IF (Name = Teilename)
LET I (I+1)
END_LOOP
IF (Name = Teilename)
EDIT_PART Nr
ELSE
INIT_PART Teilename
END_IF
END_DEFINE
Falls es mehrere Teile mit gleichem Namen gibt, wird halt der zuerst gefundene Teil aktiviert.quick&dirty, wie immer  Hannes ------------------
und mia haun jetzt in huad drauf und mia dringan no a bia
und mogst du söwa a nu ans sogs eam owa ned mia Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Tom R
Mitglied
Technischer Zeichner
Beiträge: 275
Registriert: 02.11.2003
|
erstellt am: 10. Nov. 2006 09:20 <-- editieren / zitieren --> Unities abgeben:
|
H.annes
Mitglied
CAD-Pfriemler
Beiträge: 482
Registriert: 02.07.2001 OSDD 8.7 - 13.20 ; OSDM 13.00
|
erstellt am: 10. Nov. 2006 09:52 <-- editieren / zitieren --> Unities abgeben: Nur für Tom R
Zitat:
Original erstellt von Tom R:
Hallo Hannes!Quick & dirty, wie immer.
Getestet, und wie fast immer, auch für gut befunden.  Vielen Dank
Tom
Naja - das Makro zum Durchackern der Teileliste hab ich schon lang in Verwendung, und auch schon ein paarmal hier gepostet. hab nur noch die WHILE quick zu einer LOOP umgebaut & dirty das EDIT_/INIT_PART eingebaut ------------------
und mia haun jetzt in huad drauf und mia dringan no a bia
und mogst du söwa a nu ans sogs eam owa ned mia Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Tom R
Mitglied
Technischer Zeichner
Beiträge: 275
Registriert: 02.11.2003
|
erstellt am: 10. Nov. 2006 15:15 <-- editieren / zitieren --> Unities abgeben:
|
Foren auf CAD.de (alle Foren)
| 
