Hot News:
   

Mit Unterstützung durch:

   Foren auf CAD.de
  Lisp
  Variable statt Zahl

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
  
Exklusives EDU-Programm für RTX PRO Blackwell, eine Pressemitteilung
Autor Thema:  Variable statt Zahl (1253 mal gelesen)
Nano
Mitglied



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

Beiträge: 179
Registriert: 25.10.2004

 erstellt am: 12. Feb. 2010 09:06    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 an Alle

Kann mir Jemand sagen warum ich keine Variable einsetzten kann.
Beispiel unten.

Geht:
(ENTMOD (SUBST '(370 . 5) (ASSOC 370 ma022layerdicke) ma022layerdicke))
Geht nicht:
(setq variable 5)
(ENTMOD (SUBST '(370 . variable) (ASSOC 370 ma022layerdicke) ma022layerdicke))
oder
(setq variable "5")
(ENTMOD (SUBST '(370 . (atoi variable)) (ASSOC 370 ma022layerdicke) ma022layerdicke))

Gruss Nano

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: 12. Feb. 2010 09:10    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 Nano 10 Unities + Antwort hilfreich
weil du die Liste quotest, es soll also nichts ausgewertet werden ..

(subst(cons 40 meinelieblingsvar)(assoc 40 elist)elist) <= geht !

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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

Nano
Mitglied



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

Beiträge: 179
Registriert: 25.10.2004

 erstellt am: 12. Feb. 2010 09:23    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
Ergendwie mache ich es Falsch.


Sinn der Sache ist die Layers abzuklappern
und dementsprechend nach Linientyp, die Dicke zu erteilen.

(WHILE
(SETQ ma022layerinfo (tblnext "LAYER" (null ma022layerinfo)))
(SETQ ma022linientyp (CDR (ASSOC 6 ma022layerinfo)))
(SETQ ma022layernamen (CDR (ASSOC 2 ma022layerinfo)))
(setq ma022layerdicke (entget (tblobjname "LAYER" (cdr (Assoc 2ma022layerinfo)))))
(IF (OR (= ma022linientyp "Continuous")
        (= ma022linientyp "Ausgezogen"))
;(ENTMOD (SUBST '(370 . (print ausdicke)) (ASSOC 370 ma022layerdicke) ma022layerdicke))
(ENTMOD (subst (cons 40 ausdicke)(assoc 40 ma022layerinfo) ma022layerinfo))
)
)

Gruss Nano

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

Nano
Mitglied



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

Beiträge: 179
Registriert: 25.10.2004

 erstellt am: 12. Feb. 2010 09:32    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
Habe die Lösung

Danke an ALlE

(WHILE (SETQ ma022layerinfo (tblnext "LAYER" (null ma022layerinfo)))
(SETQ ma022linientyp (CDR (ASSOC 6 ma022layerinfo)))
(SETQ ma022layernamen (CDR (ASSOC 2 ma022layerinfo)))
(setq ma022layerdicke (entget (tblobjname "LAYER" (cdr (Assoc 2 ma022layerinfo)))))
(IF (OR (= ma022linientyp "Continuous") (= ma022linientyp "Ausgezogen"))
(progn (SETQ ma022xx (subst (cons 370 ausdicke)(assoc 370 ma022layerdicke) ma022layerdicke))
(entmod ma022xx)
)
)
)

Gruss Nano

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: 12. Feb. 2010 09: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 Nur für Nano 10 Unities + Antwort hilfreich
(WHILE (SETQ ma022layerinfo (tblnext "LAYER" (null ma022layerinfo)))
(SETQ ma022layerinfo (entget (tblobjname "LAYER" (cdr (assoc 2 ma022layerinfo)))))
(IF (OR
      (= (strcase(cdr (Assoc 2 ma022layerinfo)) "CONTINUOUS"))
      (= (strcase(cdr (Assoc 2 ma022layerinfo)) "AUSGEZOGEN"))
    )
    (entmod (subst (cons 370 ausdicke)(assoc 370 ma022layerinfo) ma022layerinfo))
)
)

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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

Anzeige:Infos zum Werbeplatz >>

A>V>C> Solid Subtract CAD APP für Messestände, Holzarbeiten, Allgemeine Werkzeuge

Subtraction, intersection, and union of solids. With or without a gap. Preserving material and face coloring. Preserving source objects and the subtrahend.

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: 12. Feb. 2010 09: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 Nano 10 Unities + Antwort hilfreich
Das die Linienstärke als INTEGER --> (* 100 reale LS) einer gewisssen Vorgabenmenge übergeben wird, ist aber klar? Wenn ja, dann für den nächsten als Hinweis.

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