关于用VB,该怎么解决

分类: IT文章 • 2024-05-20 16:25:01

关于用VB
Dim Coordinates1(2)
Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")
Set reference1 = oPart.FindObjectByName("点1")
Set measureObj = TheSPAWorkbench.GetMeasurable(reference1)
measureObj.GetPoint Coordinates1

------解决方案--------------------
问题呢？