|  | 
| rhino6中指令输入后不反应 
 NoEcho开头的指令,之前都还可以使用,后来就不反应了,举个例子,之前网上看到的费马螺旋孔的指令,粘贴后无任何反应,求大佬解答
 
 
   
 NoEcho
 
 ! -_RunScript (
 
 'by aloe
 
 Call Main()
 
 Sub Main()
 
 
 
 Dim W : W = Rhino.GetInteger("范围?", 22)
 
 Dim N : N = Rhino.GetInteger("数量?", 1000)
 
 Dim R : R = Rhino.GetReal("圆的半径?", 0.2)
 
 Dim i, x, y
 
 For i=0 To N Step 1
 
 x = cos(i * ((sqr(5) + 1) / 2 - 1) * 2 * Rhino.PI) * ( sqr(i * (W ^ 2 * Rhino.PI) / N / Rhino.PI))
 
 y = sin(i * ((sqr(5) + 1) / 2 - 1) * 2 * Rhino.PI) * (sqr(i * (W ^ 2 * Rhino.PI) / N / Rhino.PI))
 
 Dim arrpoint
 
 arrpoint = Array(x, y, 0)
 
 Rhino.AddCircle arrpoint, R
 
 Next
 
 
 
 End Sub
 | 
 |