[求助]：有没有人可以解决我这个问题,如下代码正文

ngeqt521

有没有人可能解决我这个问题,如下代码,1 可不可以让生成的每一个圆不重叠在一起,
2 将生成的圆在指定位置开始生成,
3 能否将它像CAD里填充命令一样选一个区域再在这个区域里生成圆

附档为窗体文件及代码
Option Explicit
Dim acadApp As AutoCAD.AcadApplication
Dim AcadDoc As AcadDocument
Private Sub Command1_Click()

Dim dl As Double
Dim dw As Double
Dim db As Double
Dim de As Double

'点个数
dl = Me.Text1(0).Text '长
dw = Me.Text1(1).Text '宽
db = Me.Text1(2).Text '直径
de = Me.Text1(3).Text '直径增量


Dim returnpnt As Variant
AppActivate acadApp.Caption
returnpnt = acadApp.ActiveDocument.Utility.GetPoint(, "插入点:")



Dim myselect(0 To 20000) As AcadEntity  '定义选择集数组
Dim pp(0 To 2) As Double '圆心坐标

Dim I
For I = 0 To Me.Text1(4).Text '循环次数
pp(0) = dl * Rnd: pp(1) = dw * Rnd: pp(2) = 0 '设置圆心坐标
Set myselect(I) = acadApp.ActiveDocument.ModelSpace.AddCircle(pp, Rnd * db + de) '画不同大小的圆
ZoomExtents

Next I
For I = 1 To Me.Text1(4).Text
If myselect(I).Radius > Me.Text1(5).Text Then '判断圆的直径是否大于x
myselect(I).Color = Int(255 * Rnd + 1) '大圆颜色改为随机数
Else
myselect(I).Color = 0 '小圆改为白色
End If
Next I


'ZoomExtents '缩放到显示全部对象

End Sub
Private Sub Command2_Click()
End
End Sub


Private Sub Form_Load()
  On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set acadApp = CreateObject("AutoCAD.Application")
If Err Then End
MsgBox ("你的系统未安装AutoCAD2004,请安装它才能使用本程序")
      Unload Me
      Exit Sub
      End If
acadApp.WindowState = acMax
acadApp.Visible = True
Set AcadDoc = acadApp.ActiveDocument

Me.Text1(0) = 15
Me.Text1(1) = 20
Me.Text1(2) = 0.06
Me.Text1(3) = 0.0002
Me.Text1(4) = 600
Me.Text1(5) = 0.06

End Sub

gdzhou

CAD二次开发书中的花园小径的代码正符合你的要求

ngeqt521

那个不是我要的,它只不过是规侧填充阵列,我的这个是随机的,还望坛里朋友授手下小弟.