摩登犀牛

标题: 这个是修剪脚本怎么用 [打印本页]

作者: justoid 时间: 2017-2-8 02:17
标题: 这个是修剪脚本怎么用
这个是修剪

3점을 입력하면 그 점을 기준으로 하는 평면으로 오브젝트를 잘라주는 스크립트입니다.

점을 입력할때 클릭하는 방향에 따라 생셩되는 평면의 Normal방향이 달라져 잘려나가는 부분이 바뀌게 됩니다.

Option Explicit
'2008.12.10
'Script by sac3@rhinos.co.kr

CutSolid
Sub CutSolid ()

Dim arrObjects, arrPoints, arrVector1, arrVector2, arrBD, strCut

arrObjects = Rhino.GetObjects ("Select Solids to Cut",8+16,vbTrue,vbTrue)
  If IsNull(arrObjects) Then Exit Sub

arrPoints = Rhino.GetPoints (True, False , "Pick 3 Points",, 3 )
  If IsNull(arrPoints) Then Exit Sub
  If UBound(arrPoints) <2 Then Exit Sub

  Rhino.EnableRedraw False

  arrVector1= Rhino.VectorCreate (arrPoints(0), arrPoints(1) )
  arrVector2= Rhino.VectorCreate (arrPoints(0), arrPoints(2) )
  strCut = Rhino.AddCutPlane (arrObjects, arrPoints(0), arrPoints(1) , arrVector2)
  arrBD = Rhino.BooleanDifference (arrObjects, Array(strCut) )

  If IsArray(arrBD) Then
   Rhino.ShrinkTrimmedSurface arrBD(0)
   Rhino.SelectObjects arrBD
Else
   Rhino.DeleteObject strCut
   Rhino.Print "Failed to Cut"
  End If

Rhino.EnableRedraw True

End Sub

참고로 평면들이 서로 겹친 부분들이 있는 경우 BooleanUnion을 하고나면, 그 부분이 면이 나눠져 있게되는데 그 부분을 하나의 면으로 합쳐주기 위해서는 MergeAllFaces 커맨드를 사용하면 됩니다.
동영상에서는 두 커맨드를 macro를 이용하여 한번에 실행되도록 해둔것입니다.

! _BooleanUnion pause
_SetRedrawOff _SelLast
_MergeAllFaces _SelNone
_SetRedrawOn

作者: 93714292 时间: 2017-2-8 21:53
在实体上选3个点来修剪

1.jpg (28 KB, 下载次数: 33)

作者: justoid 时间: 2017-2-8 23:29
我用过了很好用

作者: laterlier 时间: 2017-2-16 10:05
不错哦

作者: laterlier 时间: 2017-2-16 10:18

93714292 发表于 2017-2-8 21:53
在实体上选3个点来修剪

导入脚本有错误，不知道大神怎么弄得

作者: 93714292 时间: 2017-2-20 15:19
什么错误提示，？你发个图才能帮到你。

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