Hot News:
   

Mit Unterstützung durch:

   Foren auf CAD.de
  Lisp
  Variabler Setq ?

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

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: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
  
NVIDIA RTX PRO 6000 Blackwell Max-Q Workstation Edition, eine Pressemitteilung
Autor Thema:  Variabler Setq ? (1574 mal gelesen)
GG-GREGOR
Mitglied
CAD - KONSTR.


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

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 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,
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
良い精神




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

Beiträge: 22675
Registriert: 03.06.2002

Alles

erstellt am: 26. Jan. 2010 11:43    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 GG-GREGOR 10 Unities + Antwort hilfreich
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.


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

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 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
ja das wars ! 10P

Danke

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

CADmium
Moderator
Maschinenbaukonstrukteur




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

Beiträge: 13533
Registriert: 30.11.2003

.

erstellt am: 26. Jan. 2010 11:48    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 GG-GREGOR 10 Unities + Antwort hilfreich
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.


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

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 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 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




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

Beiträge: 13533
Registriert: 30.11.2003

.

erstellt am: 26. Jan. 2010 12: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 Nur für GG-GREGOR 10 Unities + Antwort hilfreich
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.


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

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 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
ja
liste PN-44

Gregor

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

CADmium
Moderator
Maschinenbaukonstrukteur




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

Beiträge: 13533
Registriert: 30.11.2003

.

erstellt am: 26. Jan. 2010 12:54    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 GG-GREGOR 10 Unities + Antwort hilfreich
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.:

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

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!
Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2025 CAD.de | Impressum | Datenschutz