在CATIA的VBA/VBS二次开发中可以使用AddNewSplit命令进行实体切割，此命令属于ShapeFactory类中的方法，函数定义如下：

Func AddNewSplit( Reference  iSplittingElement,  CatSplitSide iSplitSide) As Split

其中：iSplittingElement为切割参考元素；iSplitSide为切割后保留哪一侧的选项，有catPositiveSide和catNegativeSide两个选项可以选择。示例代码如下：

Sub CATMain()

Dim Doc, Prt, SF, Slct, BodyO

Set Doc = CATIA.ActiveDocument

Set Prt = Doc.Part

Set SF = Prt.ShapeFactory

Set Slct = Doc.Selection

Dim Status, lType(1)

lType(0) = "Body"

lType(1) = "Body"

Status = Slct.SelectElement2(lType,"Select the body to be split", True)'选择目标实体

If Status = "Redo" Or Status ="Undo" Or Status = "Cancel" Then

   Exit Sub

End If

Set BodyO = Slct.Item(1).Value'获取用户选择的实体

Slct.Clear

lType(0) = "Plane"

lType(1) = "BiDim"

Status = Slct.SelectElement2(lType,"Select the split surface", False)'让用户选择切割元素

If Status = "Redo" Or Status ="Undo" Or Status = "Cancel" Then

   Exit Sub

End If

Dim Ref

Set Ref = Slct.Item(1).Value'获取用户选择的切割元素

Slct.Clear

Prt.InWorkObject = BodyO

Dim Split

Set Split = SF.AddNewSplit(Ref,catPositiveSide)'切原实体

Prt.Update

End Sub

切割效果如下所示。AddNewSplit方法只能用来切割实体，不能用来切割曲面。