---

Hallo.
Ich habe eine Lisp Datei zum erstellen einer Spiegellinie.
Führe ich diese Datei aus , so meldet mir Autocad 2002 *
Fehler/Abbruch!-->Zu wenig Argumente
Zuruecksetzen des Systems

Unten der Inhalt der Lisp Datei:

(defun c:Spiegellinie (P1 P2 Win)
(setq P1 (getpoint "Startpunkt der Spiegellinie: "))
(setq P2 (getpoint P1 "Mittelpunkt: "))
(setq Win (angle p1 P2)) ;Winkel vom Start- zum Mittelpunkt
(setq P2 (polar P1 Win (* 2 (distance P1 P2))))
(entmake (list (cons 0 "LINE") (cons 10 P1) (cons 11 P2)))
(princ)
)

Weis jemand Rat was falsch ist???

Jürgen
       

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

---

Hi,

die defun-Zeile gehört so:

(defun c:Spiegellinie ( / P1 P2 Win)

Und Axel wird daraus einen Einzeiler machen. 

------------------
www.cadditions.de

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

---

Hallo Axel.
Schönen Dank. Hat geklappt.
Nur hab ich mir ein Eigentor geschossen.
Eigendlich sollte die Linie in der Mitte starten dann den Endpunkt angeben. Danach sollte die Linie zur gegenüberliegenden und nicht zur gleichen Seite verlängert werden.
Gruss Jürgen

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

---

Ich bin nicht Axel! 

Meinst Du sowas?
(defun c:Spiegellinie (/ P1 P2)
  (setq P1 (getpoint "\nMittelpunkt: "))
  (setq P2 (getpoint P1 "\nStartpunkt der Spiegellinie: "))
  (entmake
    (list (cons 0 "LINE")
  (cons 10 (polar P2 (angle p2 P1) (* 2 (distance P1 P2))))
  (cons 11 P2)
    )
  )
  (princ)
)

------------------
www.cadditions.de

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