做了很久也解决不了的问题

kevinchan

今天做的头疼死了，请大家指点一下如果做一条直线上做间距递增的圆？


O                 O                                 O                                                        O                                                         O                                                                                 O                                                                                 O

mikewolf2k

很简单嘛，根据要求算出圆心坐标。

kevinchan

是呀,用VBA怎样编程?

mikewolf2k

你的直线方程，递增间距，起始位置等等，都得告诉别人啊。

kevinchan

递增间距就是要根据长度和最小间距,最大间距来设定.可我不知道怎么弄了. 以下是间距不变,直径递增的列子: Sub DCircle()
Dim Dist As Double
Dim Cnt As Integer
Dim MinR As Double
Dim MaxR As Double
Dim Pnt As Variant
Dim Dir As Double
On Error Resume Next
With ThisDrawing.Utility
Pnt = .GetPoint(, vbCr & "ÇëÈ·¶¨ÆðʼµãλÖãº")
Dir = .GetAngle(Pnt, vbCr & "ÇëÈ·¶¨·½Ïò£º")
Dist = .GetDistance(Pnt, vbCr & "ÇëÊäÈë¼ä¾à:")
MinR = .GetDistance(Pnt, vbCr & "ÇëÊäÈë×îСԲֱ¾¶:") / 2
MaxR = .GetDistance(Pnt, vbCr & "ÇëÊäÈë×î´óÔ²Ö±¾¶:") / 2
Cnt = .GetInteger(vbCr & "ÇëÊäÈëÅÅÁиöÊý£º")
End With
Dim i As Integer
Dim Center As Variant
Dim radius As Double
For i = 0 To Cnt - 1
Center = ThisDrawing.Utility.PolarPoint(Pnt, Dir, Dist * i)
radius = MinR + ((MaxR - MinR) / (Cnt - 1)) * i
ThisDrawing.ModelSpace.AddCircle Center, radius
Next i
End Sub

mikewolf2k

你到底哪个量是不定的？