如何做中心间距相同大小递增的圆

kevinchan

我想在CAD里面画大小递增的圆,应该怎么画?
比如:
我要在同一线段上画最小点是0.1MM,最大点是0.5MM(直径),圆与圆中心间距是0.8MM,画20个,应该怎么操作呢?

我用LISP以下代码做出来的却不行,请老大帮帮忙.
(defun c:dcircle()
(setq 间距(getint"/n请输入间距:"))
(setq 个数(1- (getint"/n请输入排列个数:")))
(setq rr(getreal"/n请输入最小园半径:"))
(setq rrr(getreal"/n请输入最大园半径:"))
(setq ppp(getpoint"/n请确定起始点位置:"))
(setq wy(/ (float 间距) (float 个数)))
(setq bbb(/ (- rrr rr) 个数))
(setq px(car ppp) py (cadr ppp))
(repeat 个数
(command"circle" ppp rr "")
(setq px (+ px wy))
(setq ppp (list px py))
(setq rr(+ rr bbb))
)
) 用VBA应该怎么写?

mccad

2. Sub DCircle()
3.        Dim Dist As Double
4.        Dim Cnt As Integer
5.        Dim MinR As Double
6.        Dim MaxR As Double
7.        Dim Pnt As Variant
8.        Dim Dir As Double
9.        On Error Resume Next
10.        '获得各种数据输入
11.        With ThisDrawing.Utility
12.                Pnt = .GetPoint(, vbCr & "请确定起始点位置：")
13.                Dir = .GetAngle(Pnt, vbCr & "请确定方向：")
14.                Dist = .GetDistance(Pnt, vbCr & "请输入间距:")
15.                MinR = .GetDistance(Pnt, vbCr & "请输入最小园半径:")
16.                MaxR = .GetDistance(Pnt, vbCr & "请输入最大园半径:")
17.                Cnt = .GetInteger(vbCr & "请输入排列个数：")
18.        End With
19.        '生成圆
20.        Dim i As Integer
21.        Dim Center As Variant
22.        Dim Radius As Double
23.        For i = 0 To Cnt - 1
24.                Center = ThisDrawing.Utility.PolarPoint(Pnt, Dir, Dist * i)
25.                Radius = MinR + ((MaxR - MinR) / (Cnt - 1)) * i
26.                ThisDrawing.ModelSpace.AddCircle Center, Radius
27.        Next i
28. End Sub

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 & "请输入最小园半径:")                MaxR = .GetDistance(Pnt, vbCr & "请输入最大园半径:")                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

kevinchan

谢谢老大,搞定了!