CATIA基於VB的二次開發如何測壹條直線的長度

首先,妳要得到當前文檔的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