用IntersectWith命令判断是否相交
在规定区域内随机生成多个正多边形时，利用VBA中的 IntersectWith命令，设置参数为 acExtendNone，即对不延伸的两对象判断是否相交，如果两个对象相交则返回重新生成多边形，若不相交，则继续生成，有没有大神做过类似的操作，求指教如何实现~~~ 这是随机生成多边形的源码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
同求，支持楼主，顶一下 思路你都说了，按思路写代码就行了，有什么问题吗？ zzyong00 发表于 2018-1-18 19:50
思路你都说了，按思路写代码就行了，有什么问题吗？
（如果两个对象相交则返回重新生成多边形，若不相交，则继续生成），这个步骤没弄出来，而且怎么判断生成的多边形与周围所有相邻的多边形是否相交，有些语句不太会用，总是出错，麻烦您帮帮忙举个例子让晚辈模仿参考下，多谢了~~~· q123135abc 发表于 2018-1-19 21:42
（如果两个对象相交则返回重新生成多边形，若不相交，则继续生成），这个步骤没弄出来，而且怎么判断生成 ...
从来没用过这个IntersectWith命令，想找几个相似的例子学习一下，我要是想直接复制别人的代码，就去某宝上花钱找人代写了，没必要在这里发帖:lol
页:
[1]