---

Hallo Lispler

Habe ein Lisp wo ich eine PL um ein Text zeichnen kann (mit Abstand).
Jetzt will ich den Abstand von Text und die PL Stärke vorher festlegen. Das der Wert in der Zeichnung erhalten bleibt.
(z.B Abstand 5 und Stärke PL 3)
mach das so (setq abstand (getreal "\nAbstand von Text:")
mus halt immer den Abstand neu eingeben wen ich das lisp Starte, ist unständlich.
wie mach ich das am besten.
bin für jede Hilfe offen
danke

------------------
Heinz 

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

---

so:

(or(setq abstand(getreal "\nAbstand von Text<5.7>:"))
  (setq abstand 5.7)
)

?

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

---

Danke CADmium

das hilft mir schon weiter, aber wie kann ich meinen Wert speichern, den ich eingebe.
ER soll mir wen ich statt die 5.7  4 eingebe den Wert 4 behalten.
Geht das auch
danke

------------------
Heinz 

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

---

Du kannst ja z.B. mit MS_lib von Cadwiesel herumprobieren.
Da werden deine Variablen immer wieder in einer (externen) INI-Datei überschrieben, wenn du sie änderst.
Vielleicht findest du ja auch in diesem Thread etwas nützliches.

------------------
Gruß
SebZ

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

---

Zitat:

---

Original erstellt von Dober Heinz:
... aber wie kann ich meinen Wert speichern, den ich eingebe.

---

in einer Variablen. Der einfachste, aber auch unsauberste Weg ist das Speichern in einer globalen Variablen. 2te Möglichkeit ist das Speichern im Blackboard. Das hat dann auch den Vorteil/Nachteil, dass den darin gespeicherten Wert auch in anderen Zeichnungen als Voreinstellung findest.

Zitat:

---

Original erstellt von Dober Heinz:
... ER soll mir wen ich statt die 5.7  4 eingebe den Wert 4 behalten.
Geht das auch ...

---

Ja, das geht auch.
dann musst du diesen String der Befehlszeile zusammen setzen.
Das folgende Bsp arbeitet mit 'ner globalen Variablen *zahl*
(setq zahl (if *zahl* *zahl* (setq *zahl* 5.7)))
(setq zahl (getreal (strcat "Text <" (rtos VORGABE 2 2) ">:")))
und natürlich musst du dann auch den Fall abfangen, dass der Anwender nur mit [Eingabe] die Eingabeaufforderung bedient.
(if (not zahl)
(setq zahl *zahl*)
(setq *zahl* zahl)
)

so zumindest das Prinzip.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

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

---

für eine ACAD-Sitzung sollte der Ansatz über das BLACKBOARD ( gemeinsamer Variablenraum von ACAD) genügen ... ansonsten gibs als Speicherort noch die Registry oder - wie schon erwähnt- eine externe Datei

(if(numberp(setq ABSTAND(vl-bb-ref 'BB-ABSTAND)))
  (progn
    (or(setq ABSTAND(getreal (strcat"\nAbstand von Text<"(rtos ABSTAND 2)">:")))
        (setq ABSTAND (vl-bb-ref 'BB-ABSTAND))
    ) 
    (vl-bb-set 'BB-ABSTAND ABSTAND)
  )
  (progn
    (or(setq abstand(getreal "\nAbstand von Text<5.7>:"))     
      (setq abstand 5.7)
    ) 
    (vl-bb-set 'BB-ABSTAND ABSTAND)
  ) 
)

für nur innerhalb einer Zeichnung reicht die Speicherung in einer globalen Variablen

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

---

@Holger
Danke
Werde es mir Anschaun ob ich das hingekomme, bin ja noch Anf.

mfg

------------------
Heinz 

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

---

@ CADmium
Danke
Brauche die Var immer nur in einer Zeichnung.
und wie geht das global.
Danke

------------------
Heinz 

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

---

Danke an alle

Funkt super
mfg

------------------
Heinz 

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

---

Zitat:

---

Original erstellt von Dober Heinz:
@ CADmium
Danke
Brauche die Var immer nur in einer Zeichnung.
und wie geht das global.
Danke

---

dream
z.B. so:

(if(numberp(setq ABSTAND *GLOBALABSTAND*))
  (progn
    (or(setq ABSTAND(getreal (strcat"\nAbstand von Text<"(rtos ABSTAND 2)">:")))
        (setq ABSTAND (vl-bb-ref 'BB-ABSTAND))
    ) 
    (setq *GLOBALABSTAND* ABSTAND)
  )
  (progn
    (or(setq abstand(getreal "\nAbstand von Text<5.7>:"))     
      (setq abstand 5.7)
    ) 
    (setq *GLOBALABSTAND* ABSTAND)
  ) 
)

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

---

@ CADmium
Danke
us sind Unterwegs
mfg

------------------
Heinz 

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

---

ach, und dann wäre ja da noch diese kleinen Setvar's USERS1-5
da geht auch noch schön was rein 

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

@cadwiesel Ja, aber zum Speichern von Reals finde ich USERR1-5 viel sinnvoller ;-)

------------------
Ciao,
Marc

[Diese Nachricht wurde von marc.scherer am 15. Mrz. 2006 editiert.]

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

---

Hallo Heinz,
Windows-conform kannst Du auch die Funktionen vl-registry-read und vl-registry-write benutzen. Etwa so:

Code:

---

(setq abstand (read (vl-registry-read "HKEY_CURRENT_USER\\Heinz-Variable")))

---

und:

Code:

---

(vl-registry-write "HKEY_CURRENT_USER\\Heinz-Variable" (vl-princ-to-string abstand))

---

und weiter wie Thomas...

Grüsse, Henning

------------------
VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

@Alle

Bedanke mich mochmal an alle für Ihre Beträge.

mfg

------------------
Heinz 

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