[求助]vba画圆

baolixing071

我想画许多个圆  第一个圆圆心和半径固定  第二个开始 圆心的x坐标 和半径同等增大

求高人指导

baolixing071

帮帮忙啦 谢谢

cfxcq

下面代码可以参考一下，不是很完善，但应该算是满足你的要求。

3. Sub xxxx(X As Double, Y As Double, Z As Double, R As Double, N As Integer, S As Double)
4.     '参数  X ：第一个圆的X坐标
5.     '      Y ：          Y坐标
6.     '      Z ：          Z
7.     '      R ：          半径
8.     '      N ：圆的个数
9.     '      S ：每次增大量
10.    
11.     Dim Cen(0 To 2) As Double
12.     Dim D As Double
13.     Dim Nx As Integer
14.     Cen(0) = X: Cen(1) = Y: Cen(2) = Z
15.     D = R
16.     For Nx = 1 To N
17.         If Nx = 1 Then
18.             ThisDrawing.ModelSpace.AddCircle Cen, D
19.         Else
20.             Cen(0) = Cen(0) + S
21.             D = D + S
22.             ThisDrawing.ModelSpace.AddCircle Cen, D
23.         End If
24.     Next Nx
25. End Sub

Sub xxxx(X As Double, Y As Double, Z As Double, R As Double, N As Integer, S As Double)     '参数  X ：第一个圆的X坐标     '      Y ：          Y坐标     '      Z ：          Z     '      R ：          半径     '      N ：圆的个数     '      S ：每次增大量         Dim Cen(0 To 2) As Double     Dim D As Double     Dim Nx As Integer     Cen(0) = X: Cen(1) = Y: Cen(2) = Z     D = R     For Nx = 1 To N         If Nx = 1 Then             ThisDrawing.ModelSpace.AddCircle Cen, D         Else             Cen(0) = Cen(0) + S             D = D + S             ThisDrawing.ModelSpace.AddCircle Cen, D         End If     Next Nx End Sub