本人刚学vba不久，编了一个随机画正多边形的命令，运行出错，求大神指点

q123135abc

Sub polygon()
Dim myselect(1 To 300) As AcadEntity '定义选择集数组
Dim num As Integer
Dim pnt As Variant
Dim lpnt As Variant
num = 5 '正多边形边数
Dim fpnt(0 To 1) As Variant '起点坐标
For i = 1 To 300 '循环300次
fpnt(0) = 3000 * Rnd: fpnt(1) = 3000 * Rnd '起点随机坐标
Dim leng As Double
leng = Rnd * 10 + 1 '边长随机长度
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
Set myselect(i) = ThisDrawing.ModelSpace.AddLightWeightPolyline(lpnt)
Next i
ThisDrawing.Regen (True)
End Sub
系统提示pnt = ThisDrawing.Utility.PolarPoint(pnt, (3.14159265 * 2 / num) * (st - 1), leng)出错，求大神指点怎么修改

zzyong00

pnt应该是三维点坐标，你给的是二维的

q123135abc

zzyong00 发表于 2017-11-20 17:37
pnt应该是三维点坐标，你给的是二维的

好的，我现在修改下看行不行

q123135abc

zzyong00 发表于 2017-11-20 17:37
pnt应该是三维点坐标，你给的是二维的

我试过了，还是不行，应该不是pnt几维坐标的问题，我把这个命令流改成只画一个固定起点坐标和固定边长的多边形就可以运行了，改成随机起点和随机边长就行不通

zzyong00

q123135abc 发表于 2017-11-20 18:29
我试过了，还是不行，应该不是pnt几维坐标的问题，我把这个命令流改成只画一个固定起点坐标和固定边长的 ...

不相信？

1. Sub polygon()
   
2. Dim myselect(1 To 300) As AcadEntity '定义选择集数组
   
3. Dim num As Integer
   
4. Dim pnt As Variant
   
5. Dim lpnt As Variant
   
6. num = 5 '正多边形边数
   
7. Dim fpnt(0 To 2) As Double '起点坐标
   
8. Dim leng As Double
   
9. Dim i As Long
   
10. For i = 1 To 300 '循环300次
    
11. fpnt(0) = 3000 * Rnd: fpnt(1) = 3000 * Rnd: fpnt(2) = 0 '起点随机坐标
    
12. 
    
13. leng = Rnd * 10 + 1 '边长随机长度
    
14. ReDim lpnt(0 To num * 2 - 1) As Double '下面是画正多边形
    
15. pnt = fpnt
    
16. lpnt(0) = pnt(0)
    
17. lpnt(1) = pnt(1)
    
18. Dim st As Integer
    
19. For st = 1 To num - 1
    
20.      pnt = ThisDrawing.Utility.PolarPoint(pnt, (3.14159265 * 2 / num) * (st - 1), leng)
    
21.      lpnt(st * 2) = pnt(0)
    
22.      lpnt(st * 2 + 1) = pnt(1)
    
23. Next st
    
24. Set myselect(i) = ThisDrawing.ModelSpace.AddLightWeightPolyline(lpnt)
    
25. Next i
    
26. ThisDrawing.Regen (True)
    
27. End Sub
    

Sub polygon()<br /> Dim myselect(1 To 300) As AcadEntity '定义选择集数组<br /> Dim num As Integer<br /> Dim pnt As Variant<br /> Dim lpnt As Variant<br /> num = 5 '正多边形边数<br /> Dim fpnt(0 To 2) As Double '起点坐标<br /> Dim leng As Double<br /> Dim i As Long<br /> For i = 1 To 300 '循环300次<br /> fpnt(0) = 3000 * Rnd: fpnt(1) = 3000 * Rnd: fpnt(2) = 0 '起点随机坐标<br /> <br /> leng = Rnd * 10 + 1 '边长随机长度<br /> ReDim lpnt(0 To num * 2 - 1) As Double '下面是画正多边形<br /> pnt = fpnt<br /> lpnt(0) = pnt(0)<br /> lpnt(1) = pnt(1)<br /> Dim st As Integer<br /> For st = 1 To num - 1<br />      pnt = ThisDrawing.Utility.PolarPoint(pnt, (3.14159265 * 2 / num) * (st - 1), leng)<br />      lpnt(st * 2) = pnt(0)<br />      lpnt(st * 2 + 1) = pnt(1)<br /> Next st<br /> Set myselect(i) = ThisDrawing.ModelSpace.AddLightWeightPolyline(lpnt)<br /> Next i<br /> ThisDrawing.Regen (True)<br /> End Sub<br />

q123135abc

zzyong00 发表于 2017-11-20 21:22
不相信？

大神你说的是对的，我应该是把数据类型弄错了，所以导致运行错误，非常感谢你的帮忙，以后还得多多向你请教！

大石头

还缺少一行闭合多段线的命令吧？不然会是有缺口的多边形。
myselect(i).Closed = True