Rhino3D犀牛中文网

标题: rhino6指令输入后不反应 [打印本页]

作者: 哈小哦 时间: 2020-12-10 12:05
标题: rhino6指令输入后不反应
NoEcho开头的指令，之前都还可以使用，后来就不反应了，举个例子，之前网上看到的费马螺旋孔的指令，粘贴后无任何反应，求大佬解答

(, 下载次数: 287)

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

作者: Jessesn 时间: 2020-12-10 14:51
这是一组 RhinoScript, 你要检查下你的 RhinoScript 程序是否正常加载。
检查方法如下

1. Rhino指令行运行 PluginManager
2. 搜索 RhinoScript, 检查看是否正常加载，

正常加载即可运行你这个脚本

作者: 哈小哦 时间: 2020-12-10 17:48

Jessesn 发表于 2020-12-10 14:51
这是一组 RhinoScript, 你要检查下你的 RhinoScript 程序是否正常加载。
检查方法如下

果然是，勾选上就好了，感谢

欢迎光临 Rhino3D犀牛中文网 (https://www.rhino3d.asia/)