‘Call sinusyuzeyi()
Sub sinusyuzeyi()
Dim cisim, nokta, i, noktaKoordinati
‘ girdiler: noktalar + cisim
cisim = Rhino.GetObject(“tekrarlanacak cisimleri seçiniz”)
nokta = Rhino.GetObjects(“cisimlerin atanacağı noktaları seçiniz”)
‘ tüm noktalar için döngü oluştur
For i = 0 To UBound(nokta)
‘ noktanın pozisyonu belirlenir
noktaKoordinati = Rhino.PointCoordinates(nokta(i))
‘ cismi belirlenen posizyona atama
Rhino.CopyObject cisim, Array(0,0,0), noktaKoordinati
Next
End Sub
-
Recent Posts
Categories
COPYRIGHTS
All the work belongs to ParaMaterial remain copyright of Sevil Yazici, unless indicated otherwise. If you would like to reproduce or publish any of the items, please contact: info@paramaterial.comSevil Yazici