贴段代码，大家讨论一下rhino命令在rhinoscript中的应用

1235813 · 发表于 2011-5-18 13:41:50

本帖最后由 1235813 于 2011-5-18 13:43 编辑

这是一段offset命令的批处理代码

Option Explicit
'Script written by <insert name>
'Script copyrighted by <insert company name>
'Script version 2011年5月18日 12:42:18
Call Main()
Sub Main()
dim arrcurve:arrcurve=rhino.getobjects("curves",4,true,true)
dim i,c()
for i=0 to ubound(arrcurve)
  rhino.UnselectAllObjects
  rhino.SelectObject(arrcurve(i))
  ' rhino.Command("_offset"&"Distance<2>"&"BothSides"&"_enter")
  redim preserve c(i)
  ' rhino.Sleep(100)
  rhino.Command("_offset Distance 1 bothsides enter")
  c(i)=Rhino.LastCreatedObjects
  rhino.UnselectObject(arrcurve(i))
  rhino.AddPlanarSrf(c(i) )
  rhino.DeleteObjects(c(i))
Next

End Sub

登录/注册后可看大图

wikii · 发表于 2015-4-28 23:34:21

rh在向autocad致敬。

kietsuc · 发表于 2015-4-28 02:28:29

楼主，不好意思打扰了，我想问一下 ' rhino.Command("_offset"&"Distance<2>"&"BothSides"&"_enter") ' rhino.Sleep(100) 这两句前面的 ' 号，是代表什么意思？
还有，我用的是rhino5.0，运行到第十八句出现错误。。。
谢谢楼主。

Tony · 发表于 2011-11-2 22:42:00

同意楼上的意见

wenchongyun · 发表于 2011-9-7 17:59:14

感觉交互太多的话，会影响程序速度

龙龙 · 发表于 2011-5-19 09:52:01

hino.Command("_offset Distance 1 bothsides enter")
很人性的string

1235813 · 发表于 2011-5-18 21:14:45

rhino.Command("_offset Distance 1 bothsides enter")
很人性的string

123321123 · 发表于 2011-5-18 19:27:55

把rhino命令编进gh中,很大的便利

1235813 · 发表于 2011-5-18 17:57:53

自己觉得如果能把rhino命令编进script中，应当会带来很大的便利

帐号		自动登录	找回密码
密码			注册

[个人作品] 贴段代码，大家讨论一下rhino命令在rhinoscript中的应用