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
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
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |