NCF参数化建筑论坛

标题: 求助怎样消除最后要按下enter [打印本页]

作者: 1235813 时间: 2011-5-18 23:04
标题: 求助怎样消除最后要按下enter
本来想批量截图的，但是最后要按一下enter键很麻烦，求高人指点。

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))
            'rhino.Command("_-ViewCaptureToFile enter" )


            Dim filename
            'filename=getRenderFileName("GrowSurface")
            filename=Rhino.WorkingFolder & "\" & "scriptName" & i & ".jpg"
            Rhino.Command "_-ViewCaptureToFile "  & filename



      Next


End Sub

程序是一段很简单的offsset运算

作者: 1235813 时间: 2011-5-18 23:05
输入平面曲线

作者: uuuf8 时间: 2011-5-18 23:43
本帖最后由 uuuf8 于 2011-5-18 23:46 编辑

这不是按一下enter键的问题

[attach]18827[/attach]

作者: 1235813 时间: 2011-5-18 23:57
但是offset是没有问题的，有问题的时截图时要你设置截图属性的问题

作者: uuuf8 时间: 2011-5-19 00:52
本帖最后由 uuuf8 于 2011-5-19 01:02 编辑

trust me, buddy 截图属性是下一个问题

作者: uuuf8 时间: 2011-5-19 00:59
本帖最后由 uuuf8 于 2011-5-19 01:04 编辑

the capture part, u may write like this

[attach]18828[/attach]

作者: 1235813 时间: 2011-5-19 02:52
非常非常感谢uuuf8的解答，谢谢

作者: fengyulin 时间: 2011-5-19 10:19
{:3_54:}{:3_56:}{:3_57:}

欢迎光临 NCF参数化建筑论坛 (http://ncf-china.com/)