(defun c:schnittp2 ( / P1 P2 P3 P4 P5 P6 P7)
; by Robert Trefoniuk - 2008-04-10
(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)")


	(while (> (getvar "CMDACTIVE") 1)
	    (command "osmode" 1)
            (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)
		setq P6 = P7

   )