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

[解决办法]
问题呢？