---

Hallo Miteinander,

eine c:Funktion mit Benutzereingabe z.B.

Code:

---

(defun c:MitBenutzereingabe ( / prg)
  (initget "J N") ;Muster setzen
  (setq prg (getkword "Eingabe J/<N>: " ))
)

---

wird direkt aufgerufen und soll aber auch in einer anderen c:Funktion "silent" aufgerufen werden.

Kann diesem "silent"-Aufruf auch die Benutzereingabe "J" mitgegeben werden?

Bisher leider kein Ergebnis mit:

Code:

---

(c:MitBenutzereingabe J)
oder
(command (c:MitBenutzereingabe) "J" "")

---

Oder MUSS ein eigener Übergabeparameter in der c:MitBenutzereigabe definiert werden, durch den die Benutzereingabe dann übersprungen wird?
https://ww3.cad.de/foren/ubb/Forum145/HTML/002099.shtml#000003

Beste Grüße

archi

------------------

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

---

Funktionen welche ala Autocad Befehl definiert werden c: sind nucht dafür
gemacht Argumente entgegenzunehmen.

Du brauchst eine funktion ohne c:

Dein c: -Funktion ruft dann einfach die ohne-c: auf
und du kannst (meinefunk "j") benutzen.

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

---

Hallo Sebastian,

hui: schneller geantwortet, als geschrieben - vielen Dank!

Code:

---

(defun Mit1 ( / prg)
  (initget "J N") ;Muster setzen
  (setq prg (getkword "Eingabe J/<N>: " ))
  (alert "Info")
)

(defun c:T ( / )
  (Mit1 "J")
)

---

ergibt: "; Fehler: Zu viele Argumente"

Wo liegt mein Fehler?

Beste Grüße

archi

------------------

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

---

Keine Globale Variable deklariert, also wird kein Argument erwartet.
Du sendest ein Argument und damit sind es zuviele Argumente.

Ich vermute ich bin schuld mit meiner Antwort.

; EDITIERT - mit Handy tippen hat Tücken  
(defun Mit1 ( val / prg) ; irgendein Code, der den  Benutzer - in deinem Fall - nichts mehr fragt
(cond ((= val "J")(alert "Yes"))
      ((= val "N")(alert "No"))
)
)

(defun c:Mit1 () ; deine zwei Zeilen Code prüfe, bzw. kommentiere ich nicht, hier geht es ja um etwas anderes zur Zeit
  (initget "J N") ;Muster setzen
  (setq prg (getkword "Eingabe J/<N>: " ))
  (Mit1 prg)
)

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

---

Hallo Sebastian,

heisst also:
die vorliegende c:Funktion mit Benutzerabfrage und Befehlen teilen in c:Funktion mit nur der Benutzerabfrage und Funktion mit den Befehlen.

Wir haben verstanden.

Vielen Dank und bis zum nächsten Problem.

Beste Grüße

archi

------------------

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