* 曲線 [#kdc8715f]
-ページ:     [[スクリプト関連]]
-投稿者:     [[sugi]]
-優先順位:   低
-状態:       完了
-投稿日:     2005-10-27 16:39:56 (木)

** メッセージ [#o0d8aa75]
sugiです。

元ネタは乱造さんのところのテーマ別画像掲示板。
「Rhino.VB 基本テクニック」のサインカーブを描くスクリプトで
すが、改造して、サイクロイド,インボリュート,カージオイド,三
葉線などを追加していったらこんなのができました。
三葉線は結構遊べそうです。

仕事では使いそうに無いのですが、こういうのって、なんか楽しい
です。:)

   --- 曲線.rvb cut here ---
 '実行後 Ctrl+V で点群をペースト
 
 On error resume next
 'Option Explicit
 
 Dim PI: PI = 3.1415926536
 Dim xLen, ySize, Times, flg, i, j, a, s
 Dim arrPt,strPt,obj:strPt=""
 Dim x, y, xDelta, divAngle, divNum
 Dim arr1,arr2,int
 
 arr1=array("サインカーブ","コサインカーブ",_
  "サイクロイド","インボリュート",_
  "カージオイド（心臓形）","三葉線",_
  "","ｷｬﾝｾﾙ")
 arr2=array(0,0,0,0,0,0,0,0)
 
 int = Rhino.PopupMenu(arr1,arr2)
 
 If int=0 then 'サインカーブ
   Rhino.Command "_-Runscript (SinCurve 1)"
 ElseIf int=1 then 'コサインカーブ
   Rhino.Command "_-Runscript (SinCurve 2)"
 ElseIf int=2 then 'サイクロイド
   Rhino.Command "_-Runscript (Cyclo 1)"
 ElseIf int=3 then 'インボリュート
   Rhino.Command "_-Runscript (Cyclo 2)"
 ElseIf int=4 then 'カージオイド
   Rhino.Command "_-Runscript (Sanyo 0)"
 ElseIf int=5 then '３葉線
   Rhino.Command "_-Runscript (Sanyo 1)"
 End If
 
 Sub SinCurve (flg)
   'パラメータの取得
   xLen = Rhino.GetReal("Ｘ長さ入力(Min=1)",5,1)
   ySize = Rhino.GetReal("Ｙサイズ入力(Min=1)",5,1)
   divAngle = Rhino.GetReal("分割角度(Min=0.1 Max=10)",_
     5,0.1,10)
   Times = Rhino.GetInteger("繰り返し回数(Max=10)",_
     5,1,10)
   
   divNum = CInt(360/divAngle)
   xDelta = xLen / divNum
   
   '曲線データを作成する
   For i = 0 To Times - 1
     For j = 0 To divNum
       s = (j * divAngle) * PI / 180
       x = i * xLen + xDelta * j
       If flg=1 then
         y = ySize * Sin(s)
       ElseIf flg=2 then
         y=  ySize * Cos(s)
       End If
       strPt=strPt & x & "," & y & " "
     Next
   Next
 End Sub
 
 Sub Cyclo (flg)
   a = Rhino.GetReal("サイズ入力(Min=1)",5,1)
   divAngle = Rhino.GetReal("分割角度(Min=0.1 Max=10)",_
     0.5,0.1,10)
   
   divNum = CInt(360/divAngle)
   
   '曲線データを作成する
   For i = 0 To divNum
     s=(i * divAngle) * PI / 180
     If flg=1 then
       x =a*(s-sin(s))
       y =a*(1-cos(s))
     ElseIf flg=2 then
       x=a*(cos(s)+s*sin(s))
       y=a*(sin(s)-s*cos(s))
     End If
     strPt=strPt & x & "," & y & " "
   Next
 End Sub
 
 Sub Sanyo (flg)
   
   If flg=0 then
     n=0
   Else
     n = Rhino.GetInteger("パラメータ入力"&_
      "(2:４葉線,3:３葉線)",3)
   End If
   a = Rhino.GetReal("サイズ入力(Min=1)",5,1)
   divAngle = Rhino.GetReal("分割角度(Min=0.1 Max=10)",_
     0.5,0.1,10)
   
   divNum = CInt(360/divAngle)
   
   '曲線データを作成する
   For i = 0 To divNum
     s=(i * divAngle) * PI / 180
     If n=0 then
       r=a*(1+cos(s))
     Else
       r = a*Sin(n*s)
     End If
     x = r*Cos(s)
     y = r*Sin(s)
     strPt=strPt & x & "," & y & " "
   Next
 End Sub
 
 If int<>-1 and int<>6 Then
   '曲線を作成
   arrPt=Rhino.Str2PtArray(strPt)
   If IsArray(arrPt) Then
     obj=Rhino.addPoints (arrPt)
     Rhino.SelectObjects obj
     Rhino.Command "ZoomSelected _PointCloud"
     Rhino.SelectObjects Rhino.LastCreatedObjects
     Rhino.Command "Cut"
     Rhino.AddCurve(arrPt)
   Else
     Rhino.MessageBox "あれっ？",32
   End If
 End If
   --- 曲線.rvb cut here ---
 

----

#comment
トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS