| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY WIRD VON NVIDIA ZUM HÄNDLER DES JAHRES GEWÄHLT, eine Pressemitteilung
|
Autor
|
Thema: Liste mit setvar abarbeiten? (676 mal gelesen)
|
RoSiNiNo Mitglied Konstrukteur
Beiträge: 1126 Registriert: 09.10.2002 AEC Collection 2021 Windows 10 Pro 64bit Dell Precision Tower 5820, 32GB Nvidia Quadro P2000
|
erstellt am: 22. Feb. 2005 08:22 <-- editieren / zitieren --> Unities abgeben:
Für die meisten von euch ist diese Frage sicher sehr leicht zu beantworten: Ich habe folgende Liste: Code: (setq DimVarList (list '("DIMADEC" -1) ;Anzahl der Nachkommastellen in einer Winkelbemaßung '("DIMALT" "_OFF") ;Alternativeinheiten anzeigen, falls eingeschaltet '("DIMALTD" 2) ;Anzahl Nachkommastellen für Alternativbemaßung '("DIMALTF" 25.4) ;Umrechnungsverhältnis für Alternativeinheiten '("DIMALTTD" 2) ;Anzahl Nachkommastellen der Toleranzangabe einer Alternativbemaßung '("DIMALTTZ" 0) ;Unterdrückung von Nullwerten in Toleranzangaben der Alternativbemaßung '("DIMALTU" 2) ;Maßsystem für Alternativeinheiten (s. DIMUNIT) ) )
Ich möchte diese Variablen mit setvar setzen. Ich habe gehofft das es so irgendwie gehen sollte, leider funktioniert es aber nicht.
Code: (foreach DimVarName DimVarList (eval (list 'setvar (read (car DimVarName)) (list (cadr DimVarName)) ) ) )
Wie muß der Aufruf bzw. die Liste richtig aussehen. Und seid nicht zu streng mir mir, ich hab wirklich keine Ahnung von Lisp. ------------------ Roland Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 22. Feb. 2005 08:33 <-- editieren / zitieren --> Unities abgeben: Nur für RoSiNiNo
setzen der Variablen mit zB (foreach x DIMVARLIST (setvar (car x) (cadr x))) Allerdings ist die Liste "falsch" , DIMALT zB. hat entweder den Wert "0" oder "1" , niemals jedoch "_off" , dies wäre eine Benutzereingabe die den Wert "0" setzt. [Diese Nachricht wurde von cadffm am 22. Feb. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 22. Feb. 2005 08:40 <-- editieren / zitieren --> Unities abgeben: Nur für RoSiNiNo
(mapcar '(lambda(x)(if(not(vl-catch-all-error-p (vl-catch-all-apply 'setvar (list (car x)(cadr x)) ) ) ) (list (car x)(cadr x)) (list (car x) "FEHLER") ) ) DimVarList ) liefert dir gleich ne Liste zurück, an denen du sehen kannst, ob die Einstellung vorgenommen werden konnte ------------------ - 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 |
Brischke Moderator CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 22. Feb. 2005 08:51 <-- editieren / zitieren --> Unities abgeben: Nur für RoSiNiNo
|
RoSiNiNo Mitglied Konstrukteur
Beiträge: 1126 Registriert: 09.10.2002
|
erstellt am: 22. Feb. 2005 08:54 <-- editieren / zitieren --> Unities abgeben:
Danke euch allen, U's sind unterwegs. Jetzt hab ich natürlich noch eine Frage. Was ist sind jetzt eigentlich nun die Vor- bzw. Nachteile der foreach-Schleife bzw. mapcar? Natürlich nur falls die Erklärung nicht zu aufwendig ist ------------------ Roland Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 22. Feb. 2005 09:09 <-- editieren / zitieren --> Unities abgeben: Nur für RoSiNiNo
Zitat: Original erstellt von RoSiNiNo: Was ist sind jetzt eigentlich nun die Vor- bzw. Nachteile der foreach-Schleife bzw. mapcar?
Guckst du hier ------------------ - 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 |
RoSiNiNo Mitglied Konstrukteur
Beiträge: 1126 Registriert: 09.10.2002
|
erstellt am: 22. Feb. 2005 09:24 <-- editieren / zitieren --> Unities abgeben:
|