---

Hallo,

habe mal wieder eine Frage als Lisp-Anfänger,

Habe folgende beiden Befehle in einer Lisp-datei

(defun c:aa(a b c/ d e)
  (setq e (caddr c) d (cadr c) c (car c))
)
(defun c:ne()
  (aa 10 11 '("a" "b" "c"))
)

Im ACAD:
ne ->
; Fehler: no function definition: AA

Was mach ich da Falsch, das Beispiel kommt aus dem Kochbuch für Lisp.

Grüße Christian B.

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

---

Hallo Christian
schreib es mal so
(defun c:aa(a b c / d e)
  (setq e (caddr c) d (cadr c) c (car c))
)
(defun c:ne()
  (c:aa 10 11 '("a" "b" "c"))
)
und nicht so (defun c:aa(a b c/ d e).....!!
du hast 2 Fehler gehabt
mfg
Niggemann

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

---

Hallo Christian,
ich würde das "c:" weglassen, daß ist eigenlich nur dafür gedacht, daß Du die Funktion direkt in der Befehlszeile von AutoCAD starten
kannst, aber ohne Parameterübergabe.

(defun aa(a b c/ d e)
  (setq e (caddr c) d (cadr c) c (car c))
)
(defun ne()
  (aa 10 11 '("a" "b" "c"))
)

Mit "c:" könnte man jetzt eine aufrufenden Funktion definieren:

(defun c:StartFunktion( / )
(ne)
)

Jetzt kannst Du die StartFunktion direkt in der Befehlszeile von AutoCAD mit "StartFunktion" ausführen. (Wenn Du allerdings den Rückgabewert der Funktion verarbeiten willst ist es sinnvoller:
(setq Rueckgabewert (ne))

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

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

---

hallo christian,
das "c:" bei "(defun c:aa(a b c / d e)" muss weg, ansonsten lassen sich keine werte an diese funktion uebergeben.

gruss
marco

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

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

---

Zitat:

---

Original erstellt von neurosis:
hallo christian,
das "c:" bei "(defun c:aa(a b c / d e)" muss weg, ansonsten lassen sich keine werte an diese funktion uebergeben.

gruss
marco

---

also bei mir funktioniert
Befehl: (defun c:aa(a b)(* a b))
C:AA
Befehl: (c:aa 4 5)
20

als Befehl aufgerufene Lispfunktionen -> hier
Befehl: aa 4 5
können leider weitere Kommandozeilenparameter nicht als  Funktionsparameter interpretieren.

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

---

Hi,

vielen Dank für eure tollen Antworten,
funktioniert prima! 

Gruß Christian B.

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

---

@cadmium:
ok, ich geb dir recht. aber das ist eben nur in klammern aufrufbar und nicht als befehl in der konsole.

gruss
marco

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

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

---

Guten Abend nochmals,

hab hier noch etwas mit den Funktionen;
ich schreib es mal in dieses Forum, da das Problem vermutlich auch mit Funktionen zusammen hängt:

(defun c:ausfueren()
  (initget 1 "a s")
  (setq Auswahl (getkword "\ Auswahl: <A>nsicht oder <S>nitt? "))
  cond
    ((= Auswahl "s") (
       (setq d2 20)
       (LINIE_0  P1 P2 d2 "CYAN" "VERDECKT")
       (setq d2 (- 0.0 d2))
       (LINIE_0  P1 P2 d2 "CYAN" "VERDECKT")
      )
     )
    ((= Auswahl "a") (
       (prompt "Ansicht ")
     )
      )
   )
)

Fehlerhafte Funktion: 20
Fehlerhafte Funktion: Ansicht

Stimmt da etwas mit den Klammern nicht, da ja cond auch nur Funktionen oder Befehle verarbeitet, oder?

Gruß Christian

[Diese Nachricht wurde von Christian B. am 31. Jan. 2010 editiert.]

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

---

Hallo Christian,
mit den Klammern war da wirklich etwas durcheinander, hier noch mal die Funktion aufgeräumt:

Code:

---

(defun c:ausfueren( / AUSWAHL D2 P1 P2)
  (initget 1 "a s")
  (setq Auswahl (getkword "\ Auswahl: <A>nsicht oder <S>nitt? "))
  (cond
    ((= Auswahl "s")
    (setq d2 20)
    (LINIE_0  P1 P2 d2 "CYAN" "VERDECKT")
    (setq d2 (- 0.0 d2))
    (LINIE_0  P1 P2 d2 "CYAN" "VERDECKT")
    )
    ((= Auswahl "a")
    (prompt "Ansicht ")
    )
    );;;end cond
  )

---

Jetzt fehlt allerdings noch die Definition der Funktion LINIE_0, aber die wirst Du bestimmt haben.

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

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

---

Hi,
hab noch eine Frage zu meiner initget Konstruktion:
bei manchen Zeichenobjekten im ACAD, zB. beim Kreis sind schon gewisse Sachen voreingestellt, so dass ich nur noch auf enter Drücken muss (wenn ich die Auswahloptionen nicht haben will)
also dann eine Auswahl zwischen a bzw. Enter (so als Voreinstellung) und s habe?
Kann ich das irgendwie in meine iniget Funktion einbauen?
Ich habe es schon mit \\ oder "" probiert
Muss ich da irgendeinen Umweg über die ASCI Tabelle nehmen?

  (initget 1 "a s")
  (setq Auswahl (getkword "\ Auswahl: <A>nsicht oder <S>nitt? "))
  (cond
    ((= Auswahl "s")
   ...

Gruß Christian B.

Und vielen herzlichen Dank für eure Antworten bisher,
AutoLisp scheint einem wirklich keinen Klammerfehler zu verzeihen

[Diese Nachricht wurde von Christian B. am 01. Feb. 2010 editiert.]

[Diese Nachricht wurde von Christian B. am 01. Feb. 2010 editiert.]

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

---

Schau mal hier: http://www.cadmaro.de/tipps-und-tricks/lisp/benutzereingaben-pfiffiger-gestalten.html

[Diese Nachricht wurde von Geos am 01. Feb. 2010 editiert.]

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

---

Zitat:

---

Original erstellt von Christian B.:
...
bei manchen Zeichenobjekten im ACAD, zB. beim Kreis sind schon gewisse Sachen voreingestellt, so dass ich nur noch auf enter Drücken muss (wenn ich die Auswahloptionen nicht haben will)
also dann eine Auswahl zwischen a bzw. Enter (so als Voreinstellung) und s habe?
Kann ich das irgendwie in meine iniget Funktion einbauen?

---

Hi Christian,
du kannst bei vielen (nicht allen) Objekten auf zugehörige Systemvariablen zurückgreifen. Bei deiner Abfrage (initget) sind dir die voreingestellten Sachen nicht immer im Vorfeld bekannt, es sei denn du haust dir den Speicher dauerhaft voll mit "Müll". (und darstellen möchtest du die voreingestellten Werte zum bestätigen sicher auch!?)
Systemvariablen sind meist beim Befehl in der Hilfe zufinden bzw. sie "klingen" oft ähnlich...
... Eingabengestaltung siehe Link cadmaro.de ...

------------------
Mfg Heiko

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."   (www.uni-leipzig.de/~rotheh/elefant.htm)

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