topic Re: Need macro command for a set value in the surface default tab in PowerMill Forum

Need macro command for a set value in the surface default tab

iamcdn79 — Tue, 04 Apr 2023 13:52:30 GMT

I am trying to make a macro that takes a set value from the surface default tab of set 5 and uses the radial thickness value only as my curve thickness for 2D curve Profile but I get an error.

I don't know what that command would be and if it would be REAL or STRING.

Real overburn= EDIT THICKNESS DEFAULTLIST UPDATE\r 5 NEW IMPORT TEMPLATE ENTITY TOOLPATH TMPLTSELECTORGUI "Curve-Machining/2D-Curve-Profile.003.ptf" EDIT PAR 'CurveThickness' $overburn EDIT PAR 'Tolerance' ".001" EDIT PAR 'AreaClearance.Rest.Active' '0' EDIT PAR 'AreaClearance.Profile.CutDirection' 'climb' EDIT PAR 'Thickness' "0" STRING pattern = $entity('pattern','').name $toolpath.Pattern = $pattern

Re: Need macro command for a set value in the surface default tab

kukelyk — Tue, 04 Apr 2023 18:47:10 GMT

As I remember, the last row can cause error, instead of

$toolpath.Pattern = $pattern

try

EDIT PAR "Pattern" $pattern

at least older versions of pmill.

Betreff: Need macro command for a set value in the surface default tab

old_snickers — Wed, 05 Apr 2023 05:14:22 GMT

I found something interesting here by looking for how to capture the RGB-values of a surface...

Try this instead of your first line:

REAL overburn = 0
EDIT THICKNESS DEFAULTLIST UPDATE\r 5 NEW

// Capture the value using a tracefile into file C:\Temp\thickness.txt
ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT
TRACEFILE OPEN "C:\Temp\thickness.txt"
PRINT formvalue Thickness.Shell.ThickDef.Radial
TRACEFILE CLOSE

// Read the first line of the Tracefile into variable $overburn
FILE OPEN "C:\Temp\thickness.txt" FOR READ AS input
FILE READ $overburn FROM input
FILE CLOSE input

EDIT PAR 'CurveThickness' $overburn

Re: Need macro command for a set value in the surface default tab

kevin.hammond3WX4X — Wed, 05 Apr 2023 08:54:34 GMT

Replace your first line with this

EDIT THICKNESS DEFAULTLIST UPDATE\r 5 NEW
Real Overburn = $widget("Thickness.Shell.ThickDef.Radial").value

Re: Need macro command for a set value in the surface default tab

iamcdn79 — Wed, 05 Apr 2023 11:15:08 GMT

@kukelyk wrote:
As I remember, the last row can cause error, instead of

$toolpath.Pattern = $pattern

try

EDIT PAR "Pattern" $pattern

at least older versions of pmill.

In 2023 that's no problem

Re: Need macro command for a set value in the surface default tab

old_snickers — Wed, 05 Apr 2023 17:00:51 GMT

That's very much cleaner 👍! Tomorrow I'll try this method with my RGB-issue also.