想学习catia二次开发测体积的方法，已经建成了一个凸台pad1实体，测体积的代码怎么也写不对，求解？

Question

代码如下：
Dim TheSPAWorkbench As Workbench
Dim MyMeasure As Measurable
Dim VOL As Double

Dim reference As reference
Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")
Part1.InWorkObject = Body1

reference = Part1.CreateReferenceFromObject(pad1)

Set MyMeasure = TheSPAWorkbench.GetMeasurable(reference)

VOL = MyMeasure.Volume

Answer 1

pad1 改成pad.1 试试
或者把reference 变为下
Dim referenceObject As referenceObject

http://zhidao.baidu.com/link?url=7gGuAvN32Vbk_pesBKMzt0VNPuAEnjk7axesW9dlBHf-O45bOElvXCd-NthZSgGYQ-yM3T762PyB6Jl86CC_6sf1KezADemz6o26nILVW-S