跟随老师的教学过程做的一些模型

间隔选点的小技巧（巨集）：

		NoEcho
		! -_RunScript (
		Sub SelCPJump()
		Dim strObject, intCount, i
		
		
		strObject = Rhino.GetObject("Select crv", 4)
		
		
		If Not IsNull(strObject) Then
		
		
		Rhino.EnableObjectGrips strObject
		
		
		intCount = Rhino.ObjectGripCount(strObject)
		
		
		For i = 0 To intCount Step 2
		
		
		Rhino.NextObjectGrip strObject,i,,True
		
		
		Next
		
		
		End If
		
		
		End Sub
		
		
		SelCPJump
		)

网格转换为曲面：

Meshtonurb

云尚快捷键备用：