摩登犀牛

标题: 这个脚本怎么用我在外国网找来 [打印本页]

作者: justoid 时间: 2017-2-8 01:41
标题: 这个脚本怎么用我在外国网找来
本帖最后由 justoid 于 2017-2-8 01:56 编辑

http://blog.naver.com/PostView.n ... g&logNo=50072330255
*在俯臥的曲線，我試著畫一個封閉的曲線往往是丟棄命令完成錯誤是錯誤的。在這種情況下，通過移動曲線的端點創建閉合曲線或如果使用CloseCrv itjyo一個問題，即曲線不是閉合曲線的週期曲線製成，而不是意圖。

*在劃定曲線，當拉伸在少數的CP曲線做得比必要數量來添加使用InsertKnot，InsertControlPoint分。在這種情況下，然而，可能需要使用一個附加的CP不放置MakeUniform或命令到期望的位置。這裡是可以在上述兩個情況下使用一個簡單的Rhino腳本。當您使用作為-Runscript（）圖標可以在視頻中可以看出上面的使用方便。TB haedu附加文件也可以使用污泥裝載文件TB ..

-Runscript
(
Option Explicit

Sub CurveRedraw()

Dim strObject,dblDegree,arrPoints,strCmd,arrPoint,i

strObject= Rhino.GetObject ("Select curve to redraw",4)
   If IsNull (strObject) Then Exit Sub
      If Rhino.IsCurveClosed(strObject) Then
         Rhino.Print "The object is a closed curve."
      Exit Sub
   End If

arrPoints = Rhino.CurvePoints(strObject)
dblDegree = Rhino.CurveDegree(strObject)

Rhino.DeleteObject strObject
   Dim strE
      strE=" "
      If IsArray(arrPoints) Then
         For Each arrPoint In arrPoints
         If i=UBound(arrPoints) Then strE=""
         strCmd=strCmd&"W"&Pt2str(arrPoint)&strE
         Next
   End If
Rhino.command "Curve Degree="&CStr(dblDegree)&" "&strCmd, False

End Sub

CurveRedraw
)

CurveRedraw.rar

1.19 KB, 下载次数: 30

作者: modern 时间: 2017-2-8 08:07
犀牛5.0有这个指令 ContinueCurve

作者: 93714292 时间: 2017-2-8 22:03
这个脚本是在4.0的基础上写的。现在5.0是有这个指令，非常好，学习了。

作者: justoid 时间: 2017-2-8 23:32

modern 发表于 2017-2-8 08:07
犀牛5.0有这个指令 ContinueCurve

ContinueCurve 这个我知道

作者: 壹路前行つ 时间: 2017-3-4 14:56
xx

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