Variabler Setq ? (Autodesk/Lisp)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor	Thema: Variabler Setq ? (1315 mal gelesen)
GG-GREGOR Mitglied CAD - KONSTR. Beiträge: 79 Registriert: 04.09.2002 SW. ACAD 2010 ACAD Map 3D 2006 Solid Works 2010 Cinema 4D Max 3D<P>HW. mix	erstellt am: 26. Jan. 2010 11:41 <-- editieren / zitieren --> Unities abgeben: Hallo, habe eine Liste z.B(("2009.05.05" "44" (545.555 5452.26) "548.565")("2009.05.05" "84045-44" (545.555 5452.26) "548.565")) möchte gerne einen Dynamische Setq generiere in dem fall sollte (setq l-44 .... (setq l-84045-44... hab es so versucht geht leider nicht! (setq pn (cadr liste)) (setq (read (strcat "l-" PN)) (strcat (car liste)(caddr liste)(cadddr liste))) ist der ansatz falsch ? mfg Gregor Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
cadffm Moderator 良い精神 Beiträge: 21533 Registriert: 03.06.2002 Alles	erstellt am: 26. Jan. 2010 11:43 <-- editieren / zitieren --> Unities abgeben: Nur für GG-GREGOR das q bei setq bedeutet QUOTE, also versuche es mal mit SET statts setq ------------------ CAD.de System-Angaben - CAD on demand - User:FAQ(Acad) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
GG-GREGOR Mitglied CAD - KONSTR. Beiträge: 79 Registriert: 04.09.2002 SW. ACAD 2010 ACAD Map 3D 2006 Solid Works 2010 Cinema 4D Max 3D<P>HW. mix	erstellt am: 26. Jan. 2010 11:45 <-- editieren / zitieren --> Unities abgeben: ja das wars ! 10P Danke Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13508 Registriert: 30.11.2003 .	erstellt am: 26. Jan. 2010 11:48 <-- editieren / zitieren --> Unities abgeben: Nur für GG-GREGOR sowas in der Art (mapcar '(lambda(X)(set (read(car X))(cadr X))) '(("A" 3)("B" 4)) ) ? ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
GG-GREGOR Mitglied CAD - KONSTR. Beiträge: 79 Registriert: 04.09.2002 SW. ACAD 2010 ACAD Map 3D 2006 Solid Works 2010 Cinema 4D Max 3D<P>HW. mix	erstellt am: 26. Jan. 2010 12:21 <-- editieren / zitieren --> Unities abgeben: hallo neues Problem (setq pn "44") (if (= (read (strcat "pn-" pn)) nil) (set (read (strcat "pn-" pn)) (list(list a b c))) Das geht !!! (set (read (strcat "pn-" pn)) (append (list(list a b c)) (read (strcat "pn-" pn)))) Das leider nicht warum ? );end of if Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13508 Registriert: 30.11.2003 .	erstellt am: 26. Jan. 2010 12:25 <-- editieren / zitieren --> Unities abgeben: Nur für GG-GREGOR ist denn (read (strcat "pn-" pn)) eine Liste , so dass append angewendet werden kann ??? ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
GG-GREGOR Mitglied CAD - KONSTR. Beiträge: 79 Registriert: 04.09.2002 SW. ACAD 2010 ACAD Map 3D 2006 Solid Works 2010 Cinema 4D Max 3D<P>HW. mix	erstellt am: 26. Jan. 2010 12:38 <-- editieren / zitieren --> Unities abgeben: ja liste PN-44 Gregor Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13508 Registriert: 30.11.2003 .	erstellt am: 26. Jan. 2010 12:54 <-- editieren / zitieren --> Unities abgeben: Nur für GG-GREGOR probiers mit (if(eval(read (strcat "pn-" pn))) (set (read (strcat "pn-" pn)) (append (list(list a b c)) (read (strcat "pn-" pn)))) (set (read (strcat "pn-" pn)) (list(list a b c))) ) ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)