(defun C:ARCTOPOL (/ aufl ra pm aw ew sw ii pt plist)
			(setq aufl 10)
(setq sss (entget (car (entsel "\nZeige Bogen :"))))
			(setq ra        (cdr (assoc 40 sss)))
			(setq pm        (list 0 0))
			(setq aw        (cdr (assoc 50 sss)))
			(setq ew        (cdr (assoc 51 sss)))
			(if (< ew aw) 
				(setq ew (+ (* 2 pi) ew))
			)
			(if (> (- ew aw) (* 0.5 pi)) (setq aufl (* 2 aufl)))
			(if (> (- ew aw) pi) (setq aufl (* 3 aufl)))
			(if (> (- ew aw) (* 1.5 pi)) (setq aufl (* 4 aufl)))
			(setq sw        (/  (- ew aw ) aufl))
			(setq aw 0)
			(setq sw        (abs sw))
			(setq ii 0)
			(while (<= ii aufl)
				(setq pt (polar pm (+ aw (* ii sw)) ra))
				(setq ptw (trans pt 1 0))
				(setq plist (append plist (list ptw)))
				(setq ii (+ ii 1))
			)
	(print plist )
)