(defun c:Folie (/ obj p1 p2 breite versatz2 lst)
  (setq	breite	 (getdist "\nGesamtbreite: ")
	versatz2 (getdist "\nInnenversatz: ")
	lst	 (getdist "\nLinienstärke dünne Linien: ")
  )					; Werte ggf. fest vorgeben




  (setq	obj (car (entsel "\nPolylinie wählen: "))
	p1  (Getpoint "\nSeite für einfache Linie picken: ")
	p2  (getpoint "\nSeite für zwei Linien picken: ")

  )


  (command "_offset" (/ breite 2) obj p1 "")
  (command "_chprop" "_L" "" "_LT" "continuous" "_LW" lst "")
  (command "_pedit" "_L" "_W" 0 "")
  (command "_offset" (/ breite 2) obj p2 "")
  (command "_chprop" "_L" "" "_LT" "continuous" "_LW" lst "")
  (command "_pedit" "_L" "_W" 0 "")
  (command "_offset" (/ versatz2) obj p2 "")
  (command "_chprop" "_L" "" "_LT" "continuous" "")
  (command "_pedit" "_L" "_W" 0 "")
  (command "_chprop" obj "" "_LT" "Acad_iso03W100" "")
					;evtl. anderen Linientyp wählen
  (command "pedit" obj "_W" breite "_L" "_on" "")
)