(defun c:test ( / P1 P2 P3 P4 P5)
 (setq P1 (getpoint	"\nErster  Punkt der Linie:"))
 (setq P2 (getpoint	"\nZweiter Punkt der Linie:"))
 (setq P3 (getpoint	"\nErster Punkt der Ebene:"))
 (setq P4 (getpoint	"\nZweiter Punkt der Ebene:"))
 (setq P5 (getpoint	"\nDritter Punkt der Ebene:"))

 (command "_sphere")
 (cal "ilp (p1,p2,p3,p4,p5)")
)