topic Re: Circle width in VBA Forum

Circle width

Anonymous — Thu, 05 Jan 2006 13:22:07 GMT

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

Re: Circle width

Anonymous — Thu, 05 Jan 2006 15:26:59 GMT

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

Re: Circle width

fxcastil — Thu, 05 Jan 2006 19:21:40 GMT

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

Thanks,
Fred Castillo

Re: Circle width

Anonymous — Thu, 05 Jan 2006 20:06:15 GMT

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

Re: Circle width

Anonymous — Thu, 05 Jan 2006 21:19:34 GMT

Yes, but this is a VBA forum

Re: Circle width

Anonymous — Fri, 06 Jan 2006 09:33:09 GMT

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

Re: Circle width

Anonymous — Fri, 06 Jan 2006 09:36:01 GMT

Yes we ca with .Addtorus !

Re: Circle width

Anonymous — Fri, 06 Jan 2006 15:03:56 GMT

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

Re: Circle width

Anonymous — Tue, 10 Jan 2006 08:42:05 GMT

yes you're right