三点切割

送一一段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. )

复制代码

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

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