NCF参数化建筑论坛

标题: 在學習　ｒｈｉｎｏ　ｓｃｒｉｐｔ　的中的一問題～ [打印本页]

作者: agpig 时间: 2010-9-21 20:30
标题: 在學習　ｒｈｉｎｏ　ｓｃｒｉｐｔ　的中的一問題～
我在讀　ｒｈｉｎｏ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:}

作者: claudemit 时间: 2010-9-21 22:06
对于这个DisplayCopyrightMessage这个function是不起作用
控制打印的是blnUseCommandLine，一开始就是true了
但是可以返回一个值，让DisplayCopyRightMessage = vbTRUE
以后可以根据DisplayCopyRightMessage的值控制其他语句

作者: agpig 时间: 2010-9-21 22:27
謝了　大哥～
你说可以用 DisplayCopyRightMessage 來控制其他語句可以舉個例子嗎~?

作者: agpig 时间: 2010-9-27 14:11
本帖最后由 agpig 于 2010-9-27 16:24 编辑

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 时间: 2010-9-27 16:36
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 值又什麼時候用其他的呢 ~

作者: roypetty 时间: 2011-4-14 14:56
汗看不懂！！

作者: cuilei33 时间: 2011-12-9 00:12
哎。。。。。。。。。。。

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