Rev. Cloud by Sketch

라이노 Labs툴 http://wiki.mcneel.com/labs/rhinolabstools  을 설치하면 RevCloud커맨드가 있어 도면 작업시 수정부분 표기시 때 유용합니다. Curve옵션을 이용하면 커브를 divide하여  RevCloud를 그려주기도 합니다. 실제 사용에서는 Sketch 커맨드와 결합하면 더 편할 것 같아 간단한 라이노 스크립트를 작성해두니 필요하신 분들은 사용하세요. 스 케치를 할 때 시계 반대 방향으로 그려야 RevCloud가 밖으로 생기게 됩니다. 반대로 사용하려면 RevCloud 커맨드에서 Flip을 Yes로 설정해두면 됩니다. Angle도 RevCloud 커맨드를 그대로 사용하기에 설정해둔 값을 이용합니다. *************************************************************************************************************** Option Explicit '2010년 5월 13일 금요일 'Script written by Sanghoon Yoon @ +plastic 'Script copyrighted by +plastic main Sub main() Dim D D= Rhino.GetReal ("Divide distance",5) If IsNull(D) Then Exit Sub Rhino.Command "_Sketch _closed=_Yes " Dim arrObjects, strObject, L,N, strPt, arrPt, arrPoints arrObjects = Rhino.LastCreatedObjects If IsNull(arrObjects) Then Exit Sub For Each strObject In arrObjects   L= Rhino.CurveLength(strObject)   N=Round (L/D)   strPt=""   arrPoints= Rhino.DivideCurve (strObject, N)   For Each arrPt In arrPoints         strPt= strPt+Rhino.Pt2Str(arrPt)+" "   Next   strPt=strPt+Rhino.Pt2Str(arrPoints(0))   Rhino.Command "_RevCloud "&strPt&" _Enter",False   Rhino.DeleteObject strObject Next End Sub