Thanks for the reply ruul, Jasons's post was a little faster for me to
decipher, thanks again..
Mike Krous
"ruul morawetz" wrote in message
news:97FF9AAD68941430540956DED72B560A@in.WebX.maYIadrTaRb...
> Hi Mike,
> I'm lazy and like sweets. Therefore DONUTs mustn't be ignored 😉
>
> ;circle 2 pline - ruul 03/09/11
> (defun c:c2p ( / ent eli cd pc)
> (cond
> ((null (setq ent (entsel))))
> ((/= "CIRCLE" (cdr (assoc 0 (setq eli (entget (setq ent (car
> ent))))))))
> (T
> (setq cd (* 2.0 (cdr (assoc 40 eli)))
> pc (cdr (assoc 10 eli)))
> (command "_donut" cd cd pc ^C)
> (entdel ent)
> )
> )
> (prin1)
> )
>
>
> On 11.09.2003 22:33 Mike Krous wrote:
>
> [... a lot ...]
>
> >All suggestions are appreciated.
> >
> >Mike Krous
> >
>
> ok, you got one here
> ;^)
>
> --
> ruul
>