Your Products have been synced, click here to refresh
dim pcapp as object set pcapp = crretaeobject("pcdlrn.application") dim pprog as object set pprog=pcapp.activepartprogram dim cmd as object dim cmds as object set cmds=pprog.commands for each cmd in cmds if cmd.isloadprobe then 'do something here with the information msgbox(cmd.id) end if next cmd set cmds=nothing set pprog=nothing set pcapp=nothing
$$ NO, THIS PROGRAM WILL USE THE 1_5X60 AND THE 5X100 TO CHECK SEQ 140 5 AXIS MILL WORK PART IN V-BLOCS WITH RIGHT END TO THE FRONT OF THE MACHINE. LEVEL FLAT AND ALIGN TO MACHINE AXIS. SEE PICS THIS PROG. COMPLETED: 8-18-06 -W.C. FOR OLD P/N XXXXXXXXX MOD/UPGRADE/REV_UP TO XXXXXXXXX 3.7MR3 10-21-07 -W.C. ran ok 3.7MR3 5-31-08 -W.C. REV UP TO D RAN OK 2010 5-19-10 -W.C. REV UP TO F RAN OK v2010 3-21-11 -W.C. RAN OK v2010(Release) 6-20-11 -W.C. EXPANDED TRACEFIELDS & ADDED REFRESH SCRIPT RAN OK V2011(Release) 2-23-12 -W.C. RAN OK v2011(Release) 3-9-13 -W.C.
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |