---

Hallo Forum,

in einen Lisp Programm möchte ich eine Anfrage nach den Werten 0 und 1 setzen.
Durch Initget versuche ich die Schlüsselwörter einzugrenzen. Leider erfolglos.

Welche Funktionen habe ich hier falsch eingebaut?

(Defun t-in8 ()
  (Initget "0 1")
  (Getint "\nWert für PSLTSCALE eingeben: ")
)

Schöne Grüsse
Waldemar

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

---

Vorgaben funktionieren nur bei getkword

(initget "0 1")
(setvar "PSLTSCALE" (if(/=(getkword "\nWert für PSLTSCALE eingeben [0 / 1] <1>:")"0")1 0))

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

---

Hallo Waldemar,

probier es mal mit (getkword ..)

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

---

Hallo Kollegen,

die Funktion (t-in1) als solche funktioniert.
Im ganzen Programm scheint es Konflikt zu geben.
Ich bekomme die Fehlermeldung:
; Fehler: Fehlerhafter Argumenttyp für Vergleich: 0 "1"
Habe bereits mit atoi und itoa versucht. Ohne Verbesserung.

(Defun t-in1 ()
  (Initget "0 1")
  (Setq mode  (Getkword "\nWert für PSLTSCALE eingeben: "))
)

(defun C:PSLTSCWP (/ )
      ;(/ mode currtab acdoc)
  (vl-load-com)

;  (setq mode 0)
  (t-in1)

  (if (<= 0 mode 1)
    (progn
      (setq currtab (getvar "CTAB"))
      (setq acdoc
            (vlax-get-property
              (vlax-get-acad-object)
              'Activedocument
              )
            )
      (mapcar
        '(lambda (x)
          (setvar "CTAB" x)
          (if
            (= acPaperSpace
                (vlax-get-property acdoc 'ActiveSpace)
                )
              (vlax-put-property acdoc 'MSpace :vlax-false)
              )
          (setvar "PSLTSCALE" mode)
          )
        (layoutlist)
        )
      (vlax-release-object acdoc)
      (setvar "CTAB" currtab)
      )
    )
  (princ)
  )

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

---

gekword lifert einen String zurück .. deshalb : Siehe meinen obigen Post!

deshalb crasht es auch hier :

(if (<= 0 mode 1)

besser ist da sowieseo (member mode '(0 1)) ..

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