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

kevinchan 发表于 2004-5-24 20:31:00

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

O O O O O O O

mikewolf2k 发表于 2004-5-24 20:43:00

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

kevinchan 发表于 2004-5-24 21:32:00

是呀,用VBA怎样编程?

mikewolf2k 发表于 2004-5-24 21:36:00

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

kevinchan 发表于 2004-5-24 21:47:00

递增间距就是要根据长度和最小间距,最大间距来设定.可我不知道怎么弄了.

以下是间距不变,直径递增的列子:

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 发表于 2004-5-24 21:50:00

你到底哪个量是不定的？

页: [1]

明经CAD社区's Archiver

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