---

Hallo,

folgende Aufgabe ist im Rahmen meines Studiums als Übungsaufgabe gedacht:

Implementieren Sie das Programm LIKREIS, welches folgendes leistet:

Zeichnen einer vom Nutzer definierten Linie. Auf dieser Linie soll eine einzugebende Anzahl gleich großer Kreise, die sich berühren, so gezeichnet werden, dass die gesamte Linienlänge ausgenutzt wird. Alle Kreismittelpunkte sollen auf der Linie liegen.

Meine Lösung:

Code:

---

(defun c:likreis ()
(setq p1 (getpoint "\nAnfangspunkt der Linie: ")
      p2 (getpoint p1 "\nEndpunkt der Linie: ")
)
(command "linie" p1 p2 " ")
(initget (+ 1 2 4))      ; nicht gestattet: Leer-, Nulleingabe, negative Werte
(setq anz (getint "\nAnzahl der Kreise: "))
(setq laenge (distance p1 p2)
      winkel (angle p1 p2)
      durchm (/ laenge anz)
)
(repeat anz
  (setq p3 (polar p1 winkel durchm))
  (command "kreis" "2p" p1 p3)
  (setq p1 p3)  ; hier bin ich mir nicht sicher, ob p1 den Wert von p3 oder das SYMBOL p3 erhält
)
)

---

Vielen Dank im Voraus! 

MfG Sue

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

---

Hallo

Soweit ganz gut, ein kleiner Fehler: Leereingaben bei (command...) Befehlen werden mit "" geschrieben - bei " " meckert die Routine, daß ein Punkt verlangt wird (" " ist ja quasi ein Leerzeichen). Zudem würde ich noch die verwendeten Variablen lokalisieren - wer weiß, was sonst noch an Programmen "rumflieget", die evtl eine Zeile (if p1 ...) verwenden.
Zu der Erzeugung des Kreises: ich gehe mal davon aus, daß es nicht allzuviele Kreise sind, die erzeugt werden müssen - somit geht das mit dem (command "kreis"...) auch in Ordnung-  wenns allerdings mal 10000000 Kreise sein sollen, wäre das mit entmake evtl schneller.
Hier nun ein (leicht) korrigierter Code:

Code:

---

(defun c:likreis
(
  /
  p1
  p2
  anz
  winkel
  durchm)
(command "_line"
  (setq p1 (getpoint "\nAnfangspunkt der Linie: "))
  (setq p2  (getpoint p1 "\nEndpunkt der Linie: "))
  ""
)
(initget (+ 1 2 4))      ; nicht gestattet: Leer-, Nulleingabe, negative Werte
(setq anz (getint "\nAnzahl der Kreise: "))
(setq
      winkel (angle p1 p2)
      durchm (/ (distance p1 p2) anz)
)
(repeat anz
  (setq p3 (polar p1 winkel durchm))
  (command "_circle" "_2p" p1 p3)
  (setq p1 p3)  ; hier bin ich mir nicht sicher, ob p1 den Wert von p3 oder das SYMBOL p3 erhält
)
(princ)
)

---

Zu deiner Frage mit dem Symbol oder dem Wert - ich empfehle hier vlisp als Debugger zu verwenden...

Gruß
daniel

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

---

Dankeschön! 
Ach ja: Und "(princ)" am Ende hatte ich auch noch vergessen...

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