topic Re: Help with this macro in PowerMill Forum

Help with this macro

abner_asafe — Thu, 16 May 2024 01:50:16 GMT

Hello, I need help with this macro, at the beginning I need it to show a list with the workplanes to select just one (commented part of the code) after that open the option to create a plane aligned in the geometry and then get the plane that I selected at the beginning and align its top view with the plane aligned in the geometry

// STRING LIST $PlanoP = {} // $PlanoP = INPUT ENTITY MULTIPLE Workplane "Selecione o plano de trabalho principal" // GRAPHICS LOCK // DIALOGS MESSAGE OFF // DIALOGS ERROR OFF ACTIVATE Workplane INCLINADO MODE WORKPLANE_CREATE ; INTERACTIVE GEOMETRY Macro Pause "Clique na face que deseja alinhar a vista" ACTIVATE Workplane "1" ROTATE TRANSFORM TOP COPY WORKPLANE INCLINADO RENAME Workplane "INCLINADO_1" "INCLINADO_X" MODE WORKPLANE_EDIT START "INCLINADO_X" MODE WORKPLANE_EDIT ALIGN VIEW MODE WORKPLANE_EDIT FINISH ACCEPT delete workplane"1"

Betreff: Help with this macro

icse — Thu, 16 May 2024 07:08:29 GMT

you need a entity list insted of a string list:

entity LIST $PlanoP = {} $PlanoP = INPUT ENTITY MULTIPLE Workplane "Selecione o plano de trabalho principal"

and for a single workplane use this:

entity $PlanoP = INPUT ENTITY Workplane "Selecione o plano de trabalho principal"

Re: Help with this macro

abner_asafe — Thu, 16 May 2024 17:47:19 GMT

entity LIST $PlanoP = {} entity $PlanoP = INPUT ENTITY Workplane "Selecione o plano de trabalho principal" GRAPHICS LOCK DIALOGS MESSAGE OFF DIALOGS ERROR OFF string $planoN= $PlanoP ACTIVATE Workplane $PlanoP MODE WORKPLANE_CREATE ; INTERACTIVE GEOMETRY Macro Pause "Clique na face que deseja alinhar a vista" ACTIVATE Workplane "1" ROTATE TRANSFORM TOP COPY WORKPLANE $PlanoP RENAME Workplane "$PlanoN" "INCLINADO_X" MODE WORKPLANE_EDIT START "INCLINADO_X" MODE WORKPLANE_EDIT ALIGN VIEW MODE WORKPLANE_EDIT FINISH ACCEPT delete workplane"1"

is this corret?

Re: Help with this macro

icse — Fri, 17 May 2024 07:51:04 GMT

So you whant to change the rotation of the selected workplane with the rotation of the workplane the user created?

Re: Help with this macro

abner_asafe — Fri, 17 May 2024 07:54:05 GMT

Yes exactly that

Re: Help with this macro

icse — Fri, 17 May 2024 08:22:18 GMT

Try this:

entity $PlanoP = INPUT ENTITY Workplane "Selecione o plano de trabalho principal" string $temp = new_entity_name('workplane','') MODE WORKPLANE_CREATE ${temp} INTERACTIVE GEOMETRY Macro Pause "Clique na face que deseja alinhar a vista" ACTIVATE Workplane ${temp} entity $t = entity('workplane',$temp) bool $sucsess = set_workplane($PlanoP, entity('workplane',$temp).YAxis,entity('workplane',$temp).ZAxis, $PlanoP.Origin ) ACTIVATE Workplane ${PlanoP.Name} purge workplane ${temp} yes

Re: Help with this macro

abner_asafe — Fri, 17 May 2024 20:48:06 GMT

works almost perfect i just need to create a copy of the initial selected workplane and aling this copy

Re: Help with this macro

icse — Fri, 17 May 2024 21:59:50 GMT

im not able to test this atm but try this:

entity $PlanoP = INPUT ENTITY Workplane "Selecione o plano de trabalho principal" string $PlanoN = 'INCLINADO_X' if entity_exists('workplane',$PlanoN) { $PlanoN = new_entity_name('workplane',$PlanoN) } create workplane $PlanoN string $temp = new_entity_name('workplane','') MODE WORKPLANE_CREATE ${temp} INTERACTIVE GEOMETRY Macro Pause "Clique na face que deseja alinhar a vista" ACTIVATE Workplane ${temp} entity $t = entity('workplane',$temp) bool $sucsess = set_workplane($PlanoN, entity('workplane',$temp).YAxis,entity('workplane',$temp).ZAxis, $PlanoN.Origin ) ACTIVATE Workplane ${PlanoN.Name} purge workplane ${temp} yes

Re: Help with this macro

abner_asafe — Mon, 20 May 2024 21:27:41 GMT

it's giving an error in the "bool $sucess" function line

Re: Help with this macro

icse — Tue, 21 May 2024 06:43:59 GMT

entity $PlanoP = INPUT ENTITY Workplane "Selecione o plano de trabalho principal" string $PlanoN = 'INCLINADO_X' if entity_exists('workplane',$PlanoN) { $PlanoN = new_entity_name('workplane',$PlanoN) } create workplane $PlanoN bool $s = 0 $s = set_workplane(entity('workplane',$PlanoN),$PlanoP) string $temp = new_entity_name('workplane','') MODE WORKPLANE_CREATE ${temp} INTERACTIVE GEOMETRY Macro Pause "Clique na face que deseja alinhar a vista" ACTIVATE Workplane ${temp} entity $t = entity('workplane',$temp) $s = set_workplane(entity('workplane',$PlanoN), entity('workplane',$temp).YAxis,entity('workplane',$temp).ZAxis, entity('workplane',$PlanoN).Origin ) ACTIVATE Workplane ${PlanoN} purge workplane ${temp} yes

Re: Help with this macro

abner_asafe — Thu, 23 May 2024 20:56:38 GMT

Perfect thank you