(defun c:test (/ p1 p2 p3 p4 p5 p6 p7 p8)
  (setq osold (getvar "osmode"))
  (setvar "osmode" 1)
  (setq	p1 (getpoint "\nErster Punkt Ebene Körper1: ")
	p2 (getpoint "\nZweiter Punkt Ebene Körper1: ")
	p3 (getpoint "\nDritter Punkt Ebene Körper1: ")
	p4 (getpoint "\nId-Punkt Körper1: ")
	p5 (getpoint "\nErster Punkt Körper2: ")
	p6 (getpoint "\nZweiter Punkt Körper2: ")
	p7 (getpoint "\nDritter Punkt Körper2: ")
	p8 (getpoint "\nId-Punkt Körper2: ")
  )
  (command "kappen" p4 "" "3P" p5 p6 p7 p4)
   
  (command "kappen" p8 "" "3P" p1 p2 p3 p8)

  (command "vereinig" p4 p8 "")
  (command "kappen" "l" "" "" (Getpoint)(Getpoint)(Getpoint) "")
  (setvar "osmode" os_old) 
)