CATIA V6二次开发——用VB脚本实现布尔运算

VB脚本编辑器在KDI模块中，可以利用VB语言实现一些知识工程阵列无法实现或实现起来比较麻烦的功能。以下为体积布尔运算的实现脚本。

VB脚本体积布尔运算

Dim editor1 As Editor
Set editor1 = CATIA.ActiveEditor

Dim part1 As Part
Set part1 = editor1.ActiveObject

Dim shapeFactory1 As ShapeFactory
Set shapeFactory1 = part1.ShapeFactory

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("横隔板")

Dim hybridShapeInstance1 As HybridShapeInstance
Set hybridShapeInstance1 = hybridBody1.HybridShapes.Item(1)

Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromObject(hybridShapeInstance1)

Dim hybridShapeInstance2 
Set hybridShapeInstance2 = hybridBody1.HybridShapes.Item(2)

Dim reference2 As Reference
Set reference2 = part1.CreateReferenceFromObject(hybridShapeInstance2)

Dim hg
set hg=shapeFactory1.AddNewVolumeAdd( reference1, reference2,4)

For i=3 to hybridBody1.HybridShapes.count

Dim hybridShapeInstance4 As HybridShapeInstance
Set hybridShapeInstance4 = hybridBody1.HybridShapes.Item(i)

Dim reference4 As Reference
Set reference4 = part1.CreateReferenceFromObject(hybridShapeInstance4)

Dim reference5 As Reference
Set reference5 = part1.CreateReferenceFromObject(hg)

set hg=shapeFactory1.AddNewVolumeAdd( reference5, reference4,4)

Next

part1.Update

End Sub