kevinchan 发表于 2004-11-17 19:53:00

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

本帖最后由 作者 于 2004-11-18 1:30:52 编辑

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

雪山飞狐_lzh 发表于 2004-11-17 20:53:00

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

zfbj 发表于 2004-11-17 20:43:00

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

kevinchan 发表于 2004-11-17 20:49:00

可以用donut命令来绘吗?

kevinchan 发表于 2004-11-17 20:58:00

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


<BR>可以帮我写一个例子出来吗?


这个是我画圆的代码:


        Set circ = ThisDrawing.ModelSpace.AddCircle(centerpt, radius)<BR>                                                               centerpt(0) = centerpt(0) + ptdisx<BR>                                                               radius = radius + mecha


如何改成画内径为0的donut.

雪山飞狐_lzh 发表于 2004-11-17 21:05:00

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


obj.Update<BR>End Sub<BR>

mikewolf2k 发表于 2004-11-17 21:05:00

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

kevinchan 发表于 2004-11-17 21:28:00

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

kevinchan 发表于 2004-11-17 21:31:00

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


mccad 发表于 2004-11-17 21:41:00

把圆直接改成圆环，是不可能的。<BR>只有通过读取圆的属性，(如圆心位置及半径)，然后删除，重新按照其大小生成圆环。
页: [1] 2
查看完整版本: 如何修改成圆环(donut)-付源代码