在學習 ｒｈｉｎｏ ｓｃｒｉｐｔ 的中的一問題～

agpig

我在讀　ｒｈｉｎｏscript 的handout 他里面有一個script 是這樣的
Sub Main()
Dim blnResult
blnResult = DisplayCopyRightMessage("Reinier and Carl", vbTURE)
End Sub

Function DisplayCopyrightMessage(strNames, blnUseCommandLine)
Dim strMessage

strMessage = "This script was written and is copyrighted by " & _
strNames & "." & vbNewLine & _
"You are allowed to use and modify this code " & _
"provided you do not remove copyright."

If blnUseCommandLine Then
Rhino.Print strMessage
Else
Rhino.MessageBox strMessage, 64, "copyright notice"
End If

DisplayCopyRightMessage = vbTRUE
End Function


紅色的這一行 其實在起什麼作用呢~
我試下刪了它　FUNCTION　一樣可以用

求解～{:3_57:}

cuilei33

哎。。。。。。。。。。。

roypetty

汗 看不懂！！

agpig

1 Function PullCurveToSurface(strSurfaceID, strCurveID)
2 Dim arrCP, arrKnots, arrWeights
3 Dim intDegree, i
4 Dim arrNewPt, strNewID
56
arrCP = Rhino.CurvePoints(strCurveID)
7 arrKnots = Rhino.CurveKnots(strCurveID)
8 arrWeights = Rhino.CurveWeights(strCurveID)
9 intDegree = Rhino.CurveDegree(strCurveID)
10
11 For i = 0 To UBound(arrCP)
12 arrNewPt = Rhino.BrepClosestPoint(strSurfaceID, arrCP(i))
13 arrCP(i) = arrNewPt(0)
14 Next
15
16 strNewID = Rhino.AddNurbsCurve(arrCP, arrKnots, _
17 intDegree, arrWeights)
18 Rhino.DeleteObject strCurveID
19
20 PullCurveToSurface = strNewID
21 End Function
Line 6-9: Extract all required properties from the existing curve
Line 12: Find the closest point on the surface for every control point
Line 13: Replace the coordinates of the control point with the coordinates of the
closest point
Line 16: Create a new curve from the adjusted data
Line 20: Set the function return value to match the identifier of the new curve object

但是有時又不是 返回一個 BLN 值

我想問 什麼時候 用BLN 值   又什麼時候 用其他的呢 ~

agpig

Function AddCirclesAroundCurve(strCurveID)
Dim i, crvDomain, divDomain
Dim vecTan 'Tangent vector
Dim dblRadius

crvDomain = Rhino.CurveDomain(strCurveID) 'The domain bounds
divDomain = crvDomain(1)-crvDomain(0) 'The domain size

For i = crvDomain(0) To crvDomain(1) Step divDomain/100
vecTan = Rhino.CurveTangent(strCurveID, i)
dblRadius = Sin(i*10) + 2

Rhino.AddCircle vecTan(0), dblRadius, vecTan(1)
Next

AddCirclesAroundCurve = vbTrue
End Function
  
我想請教一下 這句 在 Function AddCirclesAroundCurve(strCurveID) 里是沒有 BLN值的但為什麼 又會 給它一個 VBTRUE 的值呢~~

agpig

謝了　大哥～
你说可以用 DisplayCopyRightMessage 來控制其他語句 可以舉個例子嗎~?

claudemit

对于这个DisplayCopyrightMessage这个function是不起作用
控制打印的是blnUseCommandLine，一开始就是true了
但是可以返回一个值，让DisplayCopyRightMessage = vbTRUE
以后可以根据DisplayCopyRightMessage的值控制其他语句