跟随老师的教学过程做的一些模型
间隔选点的小技巧(巨集):
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
云尚快捷键备用:
Comments 1 条评论
博主 伞中半把雨
测试下评论