circles to donuts?

I've got a drawing that was exported from another program. I need to change
all the circles to donuts or to replace them with blocks. Donuts would be my
first pick.

 

C2D.LSP from
http://www.turvill.com/t2/free_stuff
___

 

Thanks Paul!

 

Paul,

how could i make the donuts filled?

 

....MUST resist!...

Whew! That was close!

I'd be making some remark about Krispy Kreme for a minute there...

Oops.

 

revise the netmake portion of the code to this:

Code:

(entmake
(list
'(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(100 . "AcDbPolyline")
(assoc 8 ent)
'(90 . 2)
'(70 . 129)
(cons 10 (polar cen 0 (/ rad 2)))
'(42 . 1)
(cons 10 (polar cen pi (/ rad 2)))
'(42 . 1)
(cons 43 rad)
(if ltp ltp '(6 . "BYLAYER"))
(if clr clr '(62 . 256))
);;list
)

 

FILLMODE=1
___

 

No. Whether you (entmake ...) the donuts or use the DONUT command, they'll
be filled if FILLMODE=1, and not filled if FILLMODE=0.
___

 

????? The routine as posted on your site only creates a 0 width pline. How
does fillmode affect these? (My drawing has FILLMODE=1 and the new "Donuts"
look exactly like the circles they replaced) The minor mods I showed
actually create polylines that have a width equal to the radius of the
original circle and the radius of the new plines is 1/2 the old radius to
compensate for the width.

Happy Thanksgiving!

 

Thanks Jeff! Your tweak worked.

And thanks Paul for the original code