求助 怎样消除最后要按下enter

1235813

本来想批量截图的，但是最后要按一下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

输入平面曲线

uuuf8

这不是按一下enter键的问题

登录/注册后可看大图

1235813

但是offset是没有问题的，有问题的时截图时要你设置截图属性的问题

uuuf8

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

uuuf8

the capture part, u may write like this

登录/注册后可看大图

1235813

非常非常感谢uuuf8的解答，谢谢

fengyulin

{:3_54:}{:3_56:}{:3_57:}