CATIA基于VB的二次开发如何测一条直线的长度

2025-03-16 05:16:27

推荐回答（1个）

回答1：

首先,你要得到当前文档的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