关于用VB,该怎么处理

分类: IT文章 • 2023-11-07 21:19:12

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