rhinoceros

来自「Rhinoceros犀牛(Rhino) v4.0多种语言（含中文版）」· 代码 · 共 31 行

''' ------------------------------------------------------------
''' RhinoScript 3.0 Sample Code
''' 2002, Robert McNeel & Associates
'''
''' CurveLength.rvb
''' ------------------------------------------------------------
Option Explicit

''' ------------------------------------------------------------
''' Subroutine:  CurveLength
''' Purpose:     Calculate the length of one or more curves.
''' ------------------------------------------------------------
Sub CurveLength ()
	Dim arrObjects, strObject, dblLength, intCount
	dblLength = 0.0 : intCount = 0
	arrObjects = Rhino.GetObjects("Select Objects", 4, vbTrue, vbTrue)
	If IsArray(arrObjects) Then
		Rhino.UnselectObjects arrObjects
		For Each strObject in arrObjects
			If Rhino.IsCurve(strObject) Then
				dblLength = dblLength + Rhino.CurveLength(strObject)
				intCount = intCount + 1
			End If
		Next
		If intCount > 0 Then
			Rhino.Print "Curves selected: " & CStr(intCount) & ", Total length: " & CStr(dblLength)
		End If
	End If
End Sub