Set CATIA = GetObject(, "CATIA.Application")
strWorkBench = CATIA.GetWorkbenchId
If strWorkBench <> "ManufacturingProgramWorkbench" Then
MsgBox "Interface requires the active file should be the .CATProcess file"
End If
......
判断当前Workbench是否是为一种加工的Workbench.
车削workbench, ?
基本的workbench,-ManufacturingProgramWorkbench
曲面加工的workbench, ?
多轴加工的workbench, ?
高级加工的workbench, ?作者: hxngz 时间: 2007-9-17 15:27
答案:
"LatheProgramWorkbench" And strWorkBench <> "ManufacturingProgramWorkbench" And strWorkBench <> "M3xProgramWorkbench" And strWorkBench <> "CATAMGProgramWorkbench" Then