(defun c:Folie (/ obj seite breite)
  (setq	breite	 (getdist "\nFoliendicke: "))
  (setq	obj (car (entsel "\nPolylinie wählen: "))
	seite  (Getpoint "\nSeite für Folienverlauf klicken: ")
	)
  (command "_offset" (/ breite 1) obj seite "")
  (command "_offset" (/ breite 2) obj seite "")
  (command "_chprop" "_L" "" "_LT" "verdeckt" "")
  (command "_pedit" "_L" "_W" (* breite 0.9) "")
)