topic Re: HELP MACRO in PowerMill Forum

HELP MACRO

phocvet — Wed, 10 May 2023 02:43:46 GMT

HELLO EVERYONE, HAVE A GOOD DAY,
I HAVE A PROBLEM THAT NEED TO BE SOLVED,
I HAVE USE A PATTERN LINE WRITE MACRO, I've tried many ways but can't solve it, SO PLEASE PLEASE HELP ME WITH THIS PROBLEM

EDIT PATTERN ; CURVEEDITOR START
CURVEEDITOR MODE TEXT_HORIZONTAL
CURVEEDITOR COLOUR SELECTED 0.00000 1.00000 0.00000
CURVEEDITOR TEXT JUSTIFY CENTRE
CURVEEDITOR TEXT FRAME_ORIGIN CENTRE_CENTRE
CURVEEDITOR TEXT FONT_FACE "Delcam Gothic"
CURVEEDITOR TEXT FONT_SIZE "5"
MODE NOGUI COORDINPUT COORDINATES 0 45 0
string SS = $project_pathname(1)
CURVEEDITOR TEXT SET_TEXT "\V{1}\F{Delcam Sans Serif;TT}\C{ff000000}\H{2}\S{0}\B{1}\I{1}\U{0}"
print $SS
CURVEEDITOR TEXT INSERT $SS
MODE NOGUI COORDINPUT COORDINATES 0 35 0
INT a = block.Limits.Zmax
INT a1 = block.Limits.Zmin
INT z = ($a+$a1*-1)+0.5
string T = "T= "+$z+""
print $T
CURVEEDITOR TEXT INSERT $T
CURVEEDITOR FINISH ACCEPT
EDIT PATTERN ; FLATTEN
//Dialogs message off
//Dialogs error off

Betreff: HELP MACRO

old_snickers — Wed, 10 May 2023 17:23:04 GMT

I think in the lines...

INT a = block.Limits.Zmax
INT a1 = block.Limits.Zmin
INT z = ($a+$a1*-1)+0.5

... "INT" is the wrong variable type. Perhaps it will work with "REAL".

Betreff: HELP MACRO

phocvet — Thu, 11 May 2023 03:35:45 GMT

it still works fine, but it doesn't convert to integer, for example if the total height is 62 then it will print out 62, not round to 65, what i want to change here is to make the number even That is, in the frame of the total height 56-59, round 60, and 61-64 round up to 65

Re: HELP MACRO

phocvet — Thu, 11 May 2023 03:35:55 GMT

Re: HELP MACRO

kevin.hammond3WX4X — Thu, 11 May 2023 06:06:35 GMT

Try this....

EDIT PATTERN ; CURVEEDITOR START
CURVEEDITOR MODE TEXT_HORIZONTAL
CURVEEDITOR COLOUR SELECTED 0.00000 1.00000 0.00000
CURVEEDITOR TEXT JUSTIFY CENTRE
CURVEEDITOR TEXT FRAME_ORIGIN CENTRE_CENTRE
CURVEEDITOR TEXT FONT_FACE "Delcam Gothic"
CURVEEDITOR TEXT FONT_SIZE "5"
MODE NOGUI COORDINPUT COORDINATES 0 45 0
string SS = $project_pathname(1)
CURVEEDITOR TEXT SET_TEXT "\V{1}\F{Delcam Sans Serif;TT}\C{ff000000}\H{2}\S{0}\B{1}\I{1}\U{0}"
print $SS
CURVEEDITOR TEXT INSERT $SS
MODE NOGUI COORDINPUT COORDINATES 0 35 0
REAL a = block.Limits.Zmax
REAL a1 = block.Limits.Zmin
//use Round(input here,No of decimal places here)
REAL z = Round(($a+$a1*-1)+0.5,0)
string T = "T= "+$z+""
print $T
CURVEEDITOR TEXT INSERT $T
CURVEEDITOR FINISH ACCEPT
EDIT PATTERN ; FLATTEN

Regards Kevin

Re: HELP MACRO

phocvet — Thu, 11 May 2023 06:57:54 GMT

thank you, but this is still not what i was looking for,

Re: HELP MACRO

kevin.hammond3WX4X — Thu, 11 May 2023 11:27:55 GMT

test this..........

CURVEEDITOR TEXT JUSTIFY CENTRE
CURVEEDITOR TEXT FRAME_ORIGIN CENTRE_CENTRE
CURVEEDITOR TEXT FONT_FACE "Delcam Gothic"
CURVEEDITOR TEXT FONT_SIZE "5"
MODE NOGUI COORDINPUT COORDINATES 0 45 0
string SS = $project_pathname(1)
CURVEEDITOR TEXT SET_TEXT "\V{1}\F{Delcam Sans Serif;TT}\C{ff000000}\H{2}\S{0}\B{1}\I{1}\U{0}"
print $SS
CURVEEDITOR TEXT INSERT $SS
MODE NOGUI COORDINPUT COORDINATES 0 35 0
INT a = block.Limits.Zmax
INT a1 = block.Limits.Zmin
//use Round(input here,No of decimal places here)
INT z = ($a+$a1*-1)+0.5
INT z2 = $Z/5
INT Z3 = Z2*5
string T = "T= "+$z3+""
print $T
CURVEEDITOR TEXT INSERT $T
CURVEEDITOR FINISH ACCEPT
EDIT PATTERN ; FLATTEN

Regards Kevin

Re: HELP MACRO

phocvet — Thu, 11 May 2023 11:30:43 GMT

thanks, i solved the problem

Re: HELP MACRO

phocvet — Thu, 11 May 2023 11:31:32 GMT

EDIT PATTERN ; CURVEEDITOR START
CURVEEDITOR MODE TEXT_HORIZONTAL
CURVEEDITOR COLOUR SELECTED 0.00000 1.00000 0.00000
CURVEEDITOR TEXT JUSTIFY CENTRE
CURVEEDITOR TEXT FRAME_ORIGIN CENTRE_CENTRE
CURVEEDITOR TEXT FONT_FACE "Delcam Gothic"
CURVEEDITOR TEXT FONT_SIZE "5"
MODE NOGUI COORDINPUT COORDINATES 0 45 0
string SS = $project_pathname(1)
CURVEEDITOR TEXT SET_TEXT "\V{1}\F{Delcam Sans Serif;TT}\C{ff000000}\H{2}\S{0}\B{1}\I{1}\U{0}"
print $SS
CURVEEDITOR TEXT INSERT $SS
MODE NOGUI COORDINPUT COORDINATES 0 35 0
INT a = (int((Block.Limits.ZMax/5)+1))*5
INT a1 = block.Limits.Zmin
INT z = ($a+$a1)
string T = "T= "+$z+""
print $T
CURVEEDITOR TEXT INSERT $T
CURVEEDITOR FINISH ACCEPT