首先,你要得到当前文档的SPAWorkbench对象.
代码如下:
Dim TheSPAWorkbench As Workbench
Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench ( "SPAWorkbench" )
然后,你要得到Measurable对象.
代码如下:
Dim TheMeasurable As Measurable
Set TheMeasurable = TheSPAWorkbench.GetMeasurable(referenceObject)
其中 referenceObject就是你要测量的直线的reference.
最后,有了Measurable以后,你就可以使用这个对象得到只想的长度了.
代码如下:
Dim ALength As double
ALength = TheMeasurable.Length