(defun c:schnittp ( / P1 P2 P3 P4 P5 P6 P7)
; by Robert Trefoniuk - 2008-12-17
(arxload "GEOMCAL")  ;;;Rechner muss geladen werden
    (command "osmode" 1)
    (setq P3 (getpoint "\nEbene: Erster  Punkt:"))
    (setq P4 (getpoint "\nEbene: Zweiter Punkt:"))
    (setq P5 (getpoint "\nEbene: Dritter Punkt:"))
    (setq P1 (getpoint "\nErster  Punkt der Linie:"))
    (setq P2 (getpoint "\nZweiter Punkt der Linie:"))    
    (command "osmode" 0)
    (cal "P6=ilp (P1,P2,P3,P4,P5)")
	    (command "osmode" 1)
	    (while (setq P1 (getpoint "\nLinie 2: Erster Punkt:"))
	    (setq P2 (getpoint "\nLinie 2: Zweiter Punkt:"))
	    (command "osmode" 0)
	    (cal "P7=ilp (p1,p2,p3,p4,p5)")
            (command "_line" P6 P7 nil)
            (setq P6 P7)
            (command "osmode" 1)
	)
)