Circle width

[Anonymous]

Hello,

When I draw a circle, I would like to draw it with a polyline.
My objective is to be able to change the width of the line of the circle. Do you know what I mean ?

thanks

[Anonymous]

Its all in the bulge
Dim P As AcadLWPolyline
Dim Pts(3) As Double
Pts(0) = 0: Pts(1) = 0
Pts(2) = 0: Pts(3) = 1
Set P = ThisDrawing.ModelSpace.AddLightWeightPolyline(Pts)
P.Closed = True
P.SetBulge 0, 1
P.SetBulge 1, 1
P.ConstantWidth = 0.1

[fxcastil]

Bryco,
We are all learning more AutoCAD from your posts.

Thanks,
Fred Castillo

[Anonymous]

Isn't that what the donut command is for?

wrote in message news:5050939@discussion.autodesk.com...
Hello,

When I draw a circle, I would like to draw it with a polyline.
My objective is to be able to change the width of the line of the circle. Do
you know what I mean ?

thanks

[Anonymous]

Yes, but this is a VBA forum

[Anonymous]

Can we control a Donut with VBA ? Message was edited by: mfauxock

[Anonymous]

Yes we ca with .Addtorus !

[Anonymous]

Autocad VBA does not have such an object as Donut. In autocad a donut is created via polylines.

AddTorus on the other hand is a 3D solid object. If you want to create a Donut via VBA then use Bryco’s code.

-J

[Anonymous]

yes you're right