如何修改成圆环(donut)-付源代码

kevinchan

如图:我想把他修改成全部是实心的圆.请问该怎么改?

雪山飞狐_lzh

donut命令画的就是两段圆弧组成的多段线呀，VBA里最好不要调用内部命令

zfbj

圆环实际上就是带有宽度的多段线，因此你可以先创建一条多段线（注意是圆形），再设置线宽即可。

kevinchan

可以用donut命令来绘吗?

kevinchan

lzh741206发表于2004-11-17 20:53:00donut命令画的就是两段圆弧组成的多段线呀，VBA里最好不要调用内部命令

可以帮我写一个例子出来吗? 这个是我画圆的代码: Set circ = ThisDrawing.ModelSpace.AddCircle(centerpt, radius)
centerpt(0) = centerpt(0) + ptdisx
radius = radius + mecha 如何改成画内径为0的donut.

雪山飞狐_lzh

Sub test()
Dim pnts(3) As Double
Dim obj As AcadLWPolyline
pnts(0) = -5: pnts(1) = 0
pnts(2) = 5: pnts(3) = 0
Set obj = ThisDrawing.ModelSpace.AddLightWeightPolyline(pnts)
obj.Closed = True
obj.SetBulge 0, 1
obj.SetBulge 1, 1
obj.SetWidth 0, 2, 2
obj.SetWidth 1, 2, 2 obj.Update
End Sub

mikewolf2k

我也觉得2楼的方法比较好。先算出四个端点的坐标

kevinchan

如果把已经绘好的圆改成同样大小的实心圆(圆环)呢?

kevinchan

也就是我想把这些所有大小不同的圆全部该成实心的,求救呀!

mccad

把圆直接改成圆环，是不可能的。
只有通过读取圆的属性，(如圆心位置及半径)，然后删除，重新按照其大小生成圆环。