(defun c:schnittp ( / P1 P2 P3 P4 P5 P6)
; by Stefan Schwankner - 2008-04-10
(arxload "GEOMCAL")  ;;;Rechner muss geladen werden
    (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:"))
    (setq OSCHNAePP (getvar "osmode"))
    (command "osmode" 0)
    (cal "P6=ilp (p1,p2,p3,p4,p5)")
    (command "_sphere" P6)
    (setvar "OSMODE" OSCHNAePP)
)