关于用VB,该怎么处理

2013-01-06

关于用VBDim Coordinates1(2)Set TheSPAWorkbench CATIA.ActiveDocument.GetWorkbench(SPAWorkbench)S

关于用VB
    Dim Coordinates1(2)
    Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")
    Set reference1 = oPart.FindObjectByName("点1")
    Set measureObj = TheSPAWorkbench.GetMeasurable(reference1)
    measureObj.GetPoint Coordinates1
[解决办法]
问题呢？