用IntersectWith命令判断是否相交

q123135abc · 发表于 2018-1-17 16:40:00

在规定区域内随机生成多个正多边形时，利用VBA中的 IntersectWith命令，设置参数为 acExtendNone，即对不延伸的两对象判断是否相交，如果两个对象相交则返回重新生成多边形，若不相交，则继续生成，有没有大神做过类似的操作，求指教如何实现~~~

q123135abc · 发表于 2018-1-17 16:44:00

这是随机生成多边形的源码
Sub polygon()
Dim myselect(1 To 90) As AcadEntity '定义选择集数组
Dim num As Integer
Dim pnt As Variant
Dim lpnt As Variant
num = 20 '正多边形边数
Dim fpnt(0 To 2) As Double '起点坐标
Dim leng As Double
Dim i As Long
For i = 1 To 90 '循环90次
fpnt(0) = 100 * Rnd: fpnt(1) = 100 * Rnd: fpnt(2) = 0 '起点随机坐标
leng = 3 * Rnd '边长随机长度
ReDim lpnt(0 To num * 2 - 1) As Double '下面是画正多边形
pnt = fpnt
lpnt(0) = pnt(0)
lpnt(1) = pnt(1)
Dim st As Integer
For st = 1 To num - 1
   pnt = ThisDrawing.Utility.PolarPoint(pnt, (3.14159265 * 2 / num) * (st - 1), leng)
   lpnt(st * 2) = pnt(0)
   lpnt(st * 2 + 1) = pnt(1)
Next st
Dim pgon As AcadLWPolyline
Set pgon = ThisDrawing.ModelSpace.AddLightWeightPolyline(lpnt)
pgon.Closed = True
Next i
ThisDrawing.Regen (True)
End Sub