三点切割

vitasksg

rhino5有没有三点切割呀，就像图中让三个点构成的一个平面把物体分割开，每次都是三点连线然后再用线切割，各位有没有更快速的方法没有。。。

貌似木有。。。。求大神科普。。。

送一一段VB的脚本吧，直接把下面的内容复制到按钮的左键或右键内即可

1. ! -RunScript (
   
2. 
   
3. CutSolid
   
4. Sub CutSolid ()
   
5. 
   
6. Dim arrObjects, arrPoints, arrVector1, arrVector2, arrBD, strCut
   
7. 
   
8. arrObjects = Rhino.GetObjects ("Select Solids to Cut",8+16,vbTrue,vbTrue)
   
9. If IsNull(arrObjects) Then Exit Sub
   
10. 
    
11. arrPoints = Rhino.GetPoints (True, False , "Pick 3 Points",, 3 )
    
12. If IsNull(arrPoints) Then Exit Sub
    
13. If UBound(arrPoints) <2 Then Exit Sub
    
14. 
    
15. Rhino.EnableRedraw False
    
16. 
    
17. arrVector1= Rhino.VectorCreate (arrPoints(0), arrPoints(1) )
    
18. arrVector2= Rhino.VectorCreate (arrPoints(0), arrPoints(2) )
    
19. strCut = Rhino.AddCutPlane (arrObjects, arrPoints(0), arrPoints(1) , arrVector2)
    
20. arrBD = Rhino.BooleanDifference (arrObjects, Array(strCut) )
    
21. 
    
22. If IsArray(arrBD) Then
    
23. Rhino.ShrinkTrimmedSurface arrBD(0)
    
24. Rhino.SelectObjects arrBD
    
25. Else
    
26. Rhino.DeleteObject strCut
    
27. Rhino.Print "Failed to Cut"
    
28. End If
    
29. 
    
30. Rhino.EnableRedraw True
    
31. 
    
32. End Sub
    
33. )

复制代码

Jessesn 发表于 2013-9-18 18:05
送一一段VB的脚本吧，直接把下面的内容复制到按钮的左键或右键内即可

J大的一片好心让我理解成他是故意为难我，我只认得24个英文字母啊

vitasksg 发表于 2013-9-18 20:27
J大的一片好心让我理解成他是故意为难我，我只认得24个英文字母啊

请参考下面2楼的教学
http://bbs.rhino3d.asia/thread-9966-1-1.html

_Wirecut可以满足你的要求呢。

shadow 发表于 2013-9-18 23:44
_Wirecut可以满足你的要求呢。

厉害，跪谢大牛。

Jessesn 发表于 2013-9-18 22:18
请参考下面2楼的教学
http://bbs.rhino3d.asia/thread-9966-1-1.html

长姿势了。

厉害啊！还有这命令啊

Jessesn 发表于 2013-9-18 18:05
送一一段VB的脚本吧，直接把下面的内容复制到按钮的左键或右键内即可

我发现版主给的三点切割脚本似乎不能正确识别要切掉的部分，有时候保留下要切掉的反而把要保留的切掉了，不知道是不是我使用不得当