摩登犀牛

标题: Rhino如何画一个指定周长的圆 [打印本页]

---

作者: modern    时间: 2011-7-28 16:18
标题: Rhino如何画一个指定周长的圆
tony提供rhinoscript方法 RhinoScript 里带的这串指令应该可以达到目的

1. 
   
2. Sub CircleFromLength()
   
3.   Dim arrCenter, arrPlane, dblLength, dblRadius, strObject
   
4.   arrCenter = Rhino.GetPoint("Center point of circle")
   
5.   If IsArray(arrCenter) Then
   
6.     arrPlane = Rhino.MovePlane(Rhino.ViewCPlane, arrCenter)
   
7.     dblLength = Rhino.GetReal("Circle circumference")
   
8.     If IsNumeric(dblLength) And (dblLength > 0.0) Then
   
9.       dblRadius = dblLength / (2 * Rhino.PI)
   
10.       strObject = Rhino.AddCircle(arrPlane, dblRadius)
    
11.       Rhino.SelectObject strObject
    
12.     End If
    
13.   End If
    
14. End Sub  
    

复制代码

我提供的marco 寫個按鍵小巨集
輸入的是半徑值 自動用縮放轉化為週長

1. circle
   
2. Radius
   
3. 0
   
4. pause
   
5. SelLast
   
6. scale
   
7. 0
   
8. 0.5/3.141592654
   

复制代码

---

作者: Ashur    时间: 2011-9-18 09:55
VB啊。。和C语言有什么不同呢~~~~

---

欢迎光临 摩登犀牛 (http://rhino3d.us/)

Powered by Discuz! X3.2