HELP MACRO

[phocvet]

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

[old_snickers]

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".

[phocvet]

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

[phocvet]

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

[kevin.hammond3WX4X]

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

[phocvet]

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

[kevin.hammond3WX4X]

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

[phocvet]

thanks, i solved the problem

[phocvet · Accepted solution]

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