|
本人新学rhinoscript,想编写一段script,用于将“在曲面上偏移曲线”,原配的命令每次只能偏移一根曲线,所以我想通过自动循环,做到可以自动偏移,将第一次偏移生成的曲线变成下一次的起始曲线。这个功能在rhino5当中已经有了,但是我尝试在4的script中把它写出来时区老是出错。
高手帮我看看:
Option Explicit
Call moretimeoffside_Main()
Sub moretimeoffside_Main()
Dim strSrf, strcur
strcur = rhino.GetObject("sel the curve on surface",4)
strSrf = Rhino.GetObject("sel the surface" ,8)
rhino.Command "_SelNone"
rhino.Command "_OffsetCrvOnSrf " & strcur &" " & strSrf &" " & "100 _enter"
Do
strcur = rhino.LastCreatedObjects
rhino.Command "_SelNone"
rhino.Command "_OffsetCrvOnSrf " & strcur &" " & strSrf &" " & "100 _enter"
Loop
End Sub
本想使用:rhino.OffsetCrvOnSrf 之类的语句来直接调用,但这个4.0版本没有这个命令。
就想用最原始的script来呼叫command。
运行后,错误表现在:传送到command指令里的表示曲线的名字为: 03394740-94a5-4eec-a7e6-de18a98d4480,不能被识别,就会循环出错。
我想应该是:
strcur = rhino.GetObject("sel the curve on surface",4)
这里出错了,应该是数据类型的错误。
我尝试改用 strcur = Rhino.SelectObject的写法,但是不行,会一闪而过,看不清楚过程。
我猜应该是比较简单的script,但我就是被卡在这里下不去,求各位大师帮忙看看。
|
|