topic NCPROGRAM Management in PowerMill Forum

NCPROGRAM Management

Felipe_Callegario — Thu, 15 Sep 2022 01:50:46 GMT

I would like some help with my macro, I want to make it activate the work plane according to its respective NC program.

FOREACH ent IN explorer_selected_entities() {
STRING $SNAP_ncp = project_pathname(0) + "\SetupSheets_files\snapshots\ncp-x" + $entity("ncprogram", $ent.Name).id + ".png"
IF file_exists($SNAP_ncp) {
DELETE FILE $SNAP_ncp
}
DIALOGS MESSAGE OFF
//DEACTIVATE WORKPLANE
//ACTIVATE WORKPLANE FROMENTITY NCPROGRAM $ent.Name
DIALOGS MESSAGE ON
EDIT MODEL ALL DESELECT ALL
DEACTIVATE NCPROGRAM
ROTATE TRANSFORM TOP
UNDRAW NCPROGRAM ALL
DEACTIVATE TOOLPATH
UNDRAW TOOLPATH ALL
DEACTIVATE TOOL
UNDRAW TOOL ALL
DEACTIVATE BOUNDARY
UNDRAW BOUNDARY ALL
DEACTIVATE PATTERN
UNDRAW PATTERN ALL
DEACTIVATE FEATURESET
UNDRAW FEATURESET ALL
UNDRAW AXES
UNDRAW BLOCK

IF entity_exists("Workplane",'$ent.Name')>1 {

ACTIVATE WORKPLANE FROMENTITY NCPROGRAM $ent.Name
ROTATE TRANSFORM TOP
MACRO PAUSE "Posicione a vista"
//DRAW NCPROGRAM_PATHS $ent.Name
STRING $cmd = 'KEEP SNAPSHOT NCPROGRAM "' + $ent.Name + '" CURRENT'
DOCOMMAND $cmd
UNDRAW NCPROGRAM_PATHS $ent.Name
GRAPHICS UNLOCK
} ELSE {

ROTATE TRANSFORM TOP
MACRO PAUSE "Posicione a vista"
DRAW NCPROGRAM_PATHS $ent.Name
STRING $cmd = 'KEEP SNAPSHOT NCPROGRAM "' + $ent.Name + '" CURRENT'
DOCOMMAND $cmd
UNDRAW NCPROGRAM_PATHS $ent.Name
}
}

Re: NCPROGRAM Management

LasseFred — Thu, 15 Sep 2022 05:11:21 GMT

Use this:

$entity('NCProgram','$Nc.name').OutputWorkplane.Name

Re: NCPROGRAM Management

Felipe_Callegario — Thu, 15 Sep 2022 17:44:58 GMT

Thanks for your reply but could you help me where should I put it
because I'm replacing and it's giving this error.

This one :

IF entity_exists("Workplane",'$ent.Name')>1 {

$entity('NCProgram','$Nc.name').OutputWorkplane.Name

Re: NCPROGRAM Management

nguyenthinhvt95 — Fri, 16 Sep 2022 06:02:58 GMT

Hi @Felipe_Callegario

It think you should try:

IF entity_exists("Workplane",'$ent.Name') {

Instead of:

IF entity_exists("Workplane",'$ent.Name')>1 {

Re: NCPROGRAM Management

LasseFred — Fri, 16 Sep 2022 06:11:22 GMT

Try this:

there might be some errors. i made it on my phone

ENTITY LIST $Selected_ncprogram = INPUT ENTITY MULTIPLE ncprogram "Selecione Programa" EXPLORER SELECT NCPROGRAM root FOREACH $nc in $Selected_ncprogram { STRING $full_path = pathname('ncprogram',$nc.name) EXPLORER SELECT NCProgram $full_path TOGGLE } FOREACH ent IN explorer_selected_entities() { STRING $SNAP_ncp = project_pathname(0) + "\SetupSheets_files\snapshots\ncp-x" + $entity("ncprogram", $ent.Name).id + ".png" IF file_exists($SNAP_ncp) { DELETE FILE $SNAP_ncp } DIALOGS MESSAGE OFF //DEACTIVATE WORKPLANE //ACTIVATE WORKPLANE FROMENTITY NCPROGRAM $ent.Name DIALOGS MESSAGE ON EDIT MODEL ALL DESELECT ALL DEACTIVATE NCPROGRAM ROTATE TRANSFORM TOP UNDRAW NCPROGRAM ALL DEACTIVATE TOOLPATH UNDRAW TOOLPATH ALL DEACTIVATE TOOL UNDRAW TOOL ALL DEACTIVATE BOUNDARY UNDRAW BOUNDARY ALL DEACTIVATE PATTERN UNDRAW PATTERN ALL DEACTIVATE FEATURESET UNDRAW FEATURESET ALL UNDRAW AXES UNDRAW BLOCK STRING $NCWORKPLANE = $entity('NCProgram','$ent.name').OutputWorkplane.Name IF $NCWORKPLANE > "" { //IF entity_exists("Workplane",'$ent.Name')>1 { //ACTIVATE WORKPLANE FROMENTITY NCPROGRAM $ent.Name ACTIVATE WORKPLANE $NCWORKPLANE ROTATE TRANSFORM TOP MACRO PAUSE "Posicione a vista" //DRAW NCPROGRAM_PATHS $ent.Name STRING $cmd = 'KEEP SNAPSHOT NCPROGRAM "' + $ent.Name + '" CURRENT' DOCOMMAND $cmd UNDRAW NCPROGRAM_PATHS $ent.Name GRAPHICS UNLOCK } ELSE { ROTATE TRANSFORM TOP MACRO PAUSE "Posicione a vista" DRAW NCPROGRAM_PATHS $ent.Name STRING $cmd = 'KEEP SNAPSHOT NCPROGRAM "' + $ent.Name + '" CURRENT' DOCOMMAND $cmd UNDRAW NCPROGRAM_PATHS $ent.Name } }

Re: NCPROGRAM Management

Felipe_Callegario — Sat, 17 Sep 2022 18:04:07 GMT

Thanks for the answers, but it is still not activating the corresponding workplane.

Re: NCPROGRAM Management

LasseFred — Mon, 19 Sep 2022 06:16:27 GMT

It works fine here.

Do you have a NC-Workplane in your NC-Program?

Re: NCPROGRAM Management

rafael.sansao — Tue, 20 Sep 2022 20:00:50 GMT

ENTITY LIST $Selected_ncprogram = INPUT ENTITY MULTIPLE ncprogram "Selecione Programa" EXPLORER SELECT NCPROGRAM root FOREACH $nc in $Selected_ncprogram { STRING $full_path = pathname('ncprogram',$nc.name) EXPLORER SELECT NCProgram $full_path TOGGLE } FOREACH ent IN $Selected_ncprogram { STRING $SNAP_ncp = project_pathname(0) + "\SetupSheets_files\snapshots\ncp-x" + $entity("ncprogram", $ent.Name).id + ".png" IF file_exists($SNAP_ncp) { DELETE FILE $SNAP_ncp } DIALOGS MESSAGE OFF //DEACTIVATE WORKPLANE //ACTIVATE WORKPLANE FROMENTITY NCPROGRAM $ent.Name DIALOGS MESSAGE ON EDIT MODEL ALL DESELECT ALL DEACTIVATE NCPROGRAM ROTATE TRANSFORM TOP UNDRAW NCPROGRAM ALL DEACTIVATE TOOLPATH UNDRAW TOOLPATH ALL DEACTIVATE TOOL UNDRAW TOOL ALL DEACTIVATE BOUNDARY UNDRAW BOUNDARY ALL DEACTIVATE PATTERN UNDRAW PATTERN ALL DEACTIVATE FEATURESET UNDRAW FEATURESET ALL UNDRAW AXES UNDRAW BLOCK FOREACH item IN components($ent) { IF lcase(item.RootType) == "nctoolpath" { IF NOT ERROR($entity("Toolpath", $item.Name).Workplane) { STRING $wpName = $entity("Toolpath", $item.Name).Workplane.Name ACTIVATE WORKPLANE $wpName ROTATE TRANSFORM TOP MACRO PAUSE "Posicione a vista" //DRAW NCPROGRAM_PATHS $ent.Name STRING $cmd = 'KEEP SNAPSHOT NCPROGRAM "' + $ent.Name + '" CURRENT' DOCOMMAND $cmd UNDRAW NCPROGRAM_PATHS $ent.Name GRAPHICS UNLOCK } ELSE { DEACTIVATE WORKPLANE ROTATE TRANSFORM TOP MACRO PAUSE "Posicione a vista" DRAW NCPROGRAM_PATHS $ent.Name STRING $cmd = 'KEEP SNAPSHOT NCPROGRAM "' + $ent.Name + '" CURRENT' DOCOMMAND $cmd UNDRAW NCPROGRAM_PATHS $ent.Name } BREAK } } }

Re: NCPROGRAM Management

Felipe_Callegario — Tue, 20 Sep 2022 20:40:39 GMT

Thanks a lot @LasseFred , @nguyenthinhvt95 , who took the time to help me, thanks @rafael.sansao , for your solution, now it's doing what I wanted

Re: NCPROGRAM Management

ramaprasad_narayan — Tue, 02 Jan 2024 10:59:05 GMT

Hello,

i need a help with this macro to pause each toolpath.

could you please help me

FOREACH pg IN folder('NCProgram') {
ACTIVATE NCProgram $pg.Name
KEEP SNAPSHOT NCPROGRAM ; ALL CURRENT_VIEW
TEXTINFO ACCEPT
}

at the moment it is running continually. i want to pause(MACRO PAUSE " VIEW OF THE TOOLPATHS IS OK?")

snapshot required including toolpath with custom view.

thank you.

Ramaprasad