求助这条曲线

宏哥

请教一下各位老大，我画了一条平坦的螺旋线，然后想把这条平坦的螺旋线变成三维的，于是我使用不等量编辑曲线（_SoftEditCrv），当我在操作过程当中按下D键然后回车，就可以动态的观察二维曲线变成三维的，但是无论我怎么操作都不能达到我想要的结果，如果我点击鼠标就乱跑了（只有我键盘输入距离还可以达到我要的效果，这样做还要先测量线的长度，如果能用鼠标点击就好了，不知我这样说你们可否理解我的意思），请问我该怎么做才能像这样

modern

如果依照你的要求
建议你打开曲线所有控制点
用[SoftMove]不等量移动曲线所有控制点来完成

1020130121

LS才是老大哦~~~听他的准没错哦~~~

宏哥

M大是SoftEditCrv，不是SoftMove按照你说的打开控制点我很难做成三维螺旋线，

modern

宏哥 发表于 2013-8-21 05:42
M大是SoftEditCrv，不是SoftMove按照你说的打开控制点我很难做成三维螺旋线，

三维螺旋线直接用"螺旋线"命令，为何要用"平坦螺旋线"再变三维？
输入长度是命令规则，如果需要可以写个小脚本直接使用线长度

宏哥

M大，昨天可能我没有弄好SoftMove，今天早上弄了一下弄好了，是我学习不够深，关于SoftEditCrv我也是在一个视频上面看到的，我看到视频里的操作只是鼠标单击就可以达到想要的结果，而我无论怎么操作都不行，所以就发在论坛上面来询问了，难道视频里面也是自己编写了一个小脚本？M大如果你有时间可否弄一个小脚本给我，我觉得那个很实用

modern

宏哥 发表于 2013-8-22 00:37
M大，昨天可能我没有弄好SoftMove，今天早上弄了一下弄好了，是我学习不够深，关于SoftEditCrv我也是在一个 ...

你可以将我写的脚本制作成按钮

1. NoEcho
   
2. ! -_RunScript (
   
3. Sub SoftEditCrv()
   
4.         Dim strObject, dblLength
   
5. 
   
6.         strObject = Rhino.GetObject("Select a curve")
   
7. 
   
8.         If Rhino.IsCurve(strObject) Then
   
9. 
   
10.                 dblLength = Rhino.CurveLength(strObject)
    
11. 
    
12.                 Rhino.Command "_Sellast"
    
13.                 Rhino.Command "_SoftEditCrv pause pause D " & CStr(dblLength)
    
14.         End If
    
15. End Sub
    
16. SoftEditCrv
    
17. )

复制代码

盛佳

其实我想请教楼主这个规律的螺旋线是怎么画出来的。。。

宏哥

多谢老大