---

Hallo!

Ich brauche dringend Hilfe für eine Autolisp Programmierung. Ich habe kaum Kenntnisse und erst eine Vorlesung dazu gehabt. Jetzt soll ich eine Aufgabe bis morgen lösen und zwar soll ich eine Funktion angeben, bei der zwei vorhanden Punkte (getpoint) ausgewählt werden und den Abstand dieser mir in einem Anzeigefenster anzeigt (alert).
Wie lauten dafür die Befehle? Brauche dringend Hilfe!

Liebe Grüße

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

---

na du hast doch schon die Hälfte in deiner Frage genannt...  einfach mal in der ACAD-Hilfe sich die erwarteten Funktionsparameter und Funktionsrückgaben ansehen ... evtl ein paar Beispiele angucken ... dann läßt die die Aufgabe mit einer LispZeile  lösen.
Unter Strich solltest du mit den Funktionen

alert strcat  rtos  distance getpoint

auskommen.

(in der Reihenfolge mit ein paar Klammern und evtl. Aufhübsch-Eingabepromptstrings Drumherum  )

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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,

Schau dir mal die folgenden Funktionen etwas genauer an:

• setq
  
• getpoint
  
• distance
  
• rtos
  
• strcat
  
• alert

Damit sollte das lösbar sein.

Gruß
Stefan

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

---

Das habe ich ja bereits gemacht, aber leider bekomm ich es einfach nicht hin
Keine Ahnung wie ich vorgehen soll, da ich null Erfahrung damit habe und schnell eine Lösung dazu brauche 

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

---

Mhh ja das Problem liegt einfach darin dass ich mit den Befehlen auch nicht so viel anfangen kann wenn man null Kenntnisse hat

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

---

Zum kennenlernen der einzelnen Funktionen einfach "autolisp [FUNKTIONSNAME]" in google eingeben und lesen...

Wie weit bist du denn?
Poste doch mal, was du schon gemacht hast, vielleicht bekommst du dann Tipps, wo was falsch ist.

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

---

Naja wirklich viel hab ich noch nicht...

(defun c: l_punkt()

              (setq p1 (getpoint "Erster Punkt auswählen")
              (setq p2 (getpoint "Zweiter Punkt auswählen")
)

Wie gesagt ich hab kein Plan davon und kann mit den Befwhlwn noch nicht viel anfangen auch wenn ich weis welche ich anwenden müsste...

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

---

ok...

als erstes solltest du deine Klammern überprüfen.
Es müssen immer gleich viele öffnende wie schließende Klammern vorhanden sein, sonst läuft gar nichts...

Und dann hat dir CADmium ja sogar schon einen Tipp mit der Reihenfolge der benötigten Funktionen gegeben.
Nur ging CADmium davon aus, dass das ganze ein Einzeiler wird. Zum Einstieg würde ich dir empfehlen, das ganze Schritt für Schritt anzugehen, und dann wäre die Reihenfolge genau umgekehrt zu CADmiums ersten Posting und in der Reihenfolge wie ich sie geschrieben habe.

Nach SETQ und GETPOINT, die du schon hast, kommt also DISTANCE.

Wenn du wie ich geschrieben habe "autolisp distance" googelst, kommst du recht schnell zu z.B. Dieser Seite
Hier findest du raus, was du der Funktion mitgeben musst, und was dann zurück kommt.

Und so hangelst du dich von einer Funktion zur nächsten.

Noch ein Tipp:
Mit (princ [VARIABLENNAME]) kannst du dir zwischendurch den Wert von Variablen an der Befehlszeile ausgeben lassen, um zu überprüfen, was das Programm bisher so macht.

Gruß

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

---

... das sieht doch gut aus! Es fehlen lediglich die schließenden Klammern der setq- Funktionen.
Grüße!
Holger

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

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Ich habe grad nochmal mit dem Dozenten geredet und ich soll das iwie über Koordinaten machen und dann berechnend?!?!

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

---

Kann es sein, dass du ein paar Vorlesungen ausgelassen hast?
Zumindest hättest du wohl die Aufgabe besser abstimmen und dich etwas früher damit beschäftigen sollen.

Prinzipiell hast du durch GETPOINT bereits Koordinaten und berechnest aus diesen mit DISTANCE den Abstand...

Ich glaube nach deinem letzten Post aber fast, dass dein Dozent gerne die Berechnung ohne DISTANCE sehen will?
Wenn das so ist, dann kannst du aus deiner Funktionsliste DISTANCE streichen und dafür kommen

• car
  
• cadr
  
• -
  
• *
  
• sqrt

dazu und das Ganze wird etwas komplizierter.
Stichwort: Pythargoras

Gruß
Stefan

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

---

... nun, dann geht's in die Vektorrechnung.
- Berechnen eines Vektors zwischen 2 Punkten
- Berechnen der Länge eines Vektors
Ich denke, das ist sogar noch Abi-Mathestoff.
Hier in Lisp ist dann nur das Neue, dass man gezielt auf Listenelemente (ein Punkt ist eine Liste aus 3 Koordinaten) zugreift.
car cadr caddr

Grüße!
Holger
PS: es wäre sicher ein Leichtes, die fertige Lösung zu posten. Da ein Forum allerdings zum Austausch zur Selbsthilfe gedacht ist, tue ich genau das nicht.

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

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Und als Einsteig in die Lisp-Programmierung ist natürlich auch diese Seite hier immer wärmstens zu empfehlen.

Gruß
Thomas

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

---

Naja ich glaube das bringt mir hier alles nichts... ich hatte bisher 2 Vorlesungen dazu!! 
Ich soll weder Distance verwenden noch car oder cadr... keine Ahnung was der will. Die Aufgabe habe ich gestern bekommen also konnte ich mich natürlich nicht drauf vorbereiten, unser Prof ist auch nicht wirklich der beste. Wenn man das gut kann hat man auch leicht reden
Trotzdem vielen Dank für die Mühe

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

---

Zitat:

---

Original erstellt von Lolali:

Ich soll weder Distance verwenden noch car oder cadr...

---

Das hat er also ausdrücklich ausgeschlossen?
Dann laß uns doch mal die komplette Aufgabenstellung wissen, die Du / wie Du sie bekommen hast.

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

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

---

IMG_2726.JPG

Ja... ich wollte es damit mal probieren und mir wurde gesagt ich soll es ohne machen. Also nur mit getpoint, den Koordinaten, und einer Berechnung. Habe ich versucht aber es funktioniert nicht. Die Aufgabe habe ich bereits oben geschrieben, das ist die komplette^^

Ich hänge mal ein Bild davon an was ich habe...

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

---

Erstmal: das sieht gut aus!
Das (alert ... ) verlangt nach einem String.
(alert (rtos l 2 2))
Ansonsten ist aus meiner Sicht nur noch ein Klammerfehler drinn. Das sllltest du noch mal genau prüfen. (Wenn ich nicht am Handy tippen würde, hätte ich das schnell korrigiert).

Nur wegen der Vollständigkeit und Fehlervermeidung von Begin an: In der Funktion selbst sollten die Variablen in ihrer Gültigkeit noch eingeschränkt werden, also als lokale, nur für diese Funktion gültig deklariert sein.
(defun NAME (PARAMETER / LOKALEVARIABLEN)
...)
(defun c:Aufgabe30 ( / p1 p2 x1 y1 ...)
...

Grüße!
Holger

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

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Okay vielen Dank denk das bekomm ich hin

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