Asnath: New page:

 // This macro is intended for AC Tools // Macro will ask for Number of Woodplane you want to use, and quantity of wood to use. // Please compute exact qte of wood, cause I did not ro...

2009-05-15T12:29:09Z

New page: <PRE> // This macro is intended for AC Tools // Macro will ask for Number of Woodplane you want to use, and quantity of wood to use. // Please compute exact qte of wood, cause I did not ro...

New page

<PRE>
// This macro is intended for AC Tools
// Macro will ask for Number of Woodplane you want to use, and quantity of wood to use.
// Please compute exact qte of wood, cause I did not round up figures.
// Please close chat tab before starting.
// It should work on any screen resolution / view / zoom, as long as you can see and reach all carpentry shops from where you are.
// Macro does not change blades when broken but will when I'll find time to do it.

constants
Nbplanche = 0
Nbplan = 0
MouseCoordX = 0
MouseCoordY = 0
NbofWoodplane = 6
QtofWood = 60
Scrwidth=0
Nbtime = 0
I=1
x=0
y=0
totalloop=0
end

Form Plan, Settings
ed1=Editbox:Nombre de plans de bois:2
ed2=Editbox:Nombre de planches:2
END

Constructs
ListeX=List
ListeY=List
OEOffset=List
File1=File
File2=File
end

FormLoad Plan, Plan.frm

if ShowForm Plan
Set Nbplan = Plan[ed1]
Set Nbplanche = Plan[ed2]
Set totalloop=0
else
stop
end

FormSave Plan, Plan.frm

SetActiveWindow eGenesis Client
Delay 500

FileOpen File1, c:\coordx.txt
Fileopen File2, C:\coordy.txt

FileRewrite File1
FileRewrite File2

Loop $nbplan
Delay 3500
FileAppend File1
FileAppend File2
Setconst x={MouseX}
Setconst y={MouseY}
FileWrite File1,$x
FileWrite File2,$y
Compute totalloop=$totalloop+1
keys {RETURN}
If $totalloop<$nbplan
Say Place mouse on next plane
Else
Say Thanks, do not touch anything anymore
End
END
keys {RETURN}

FileClose File1
FileClose File2

Compute Nbtime = $Nbplanche/$Nbplan

ListLoad ListeX, c:\coordX.txt
ListLoad ListeY, c:\coordY.txt

Loop $nbtime
Call Cutboard
Setconst I=1
End
//-------------------------------------------------

Procedure Cutboard
Loop $Nbplan
Setconst MousecoordX = ListeX[$I]
Setconst MousecoordY = ListeY[$I]
Mousepos $MouseCoordx,$MouseCoordY
Delay 100
Keys p
Delay 1200
Compute I=$I+1
End
End
//--------------------------------------------------
</PRE>

User:Asnath/Boards - Revision history

Asnath: New page:
// This macro is intended for AC Tools // Macro will ask for Number of Woodplane you want to use, and quantity of wood to use. // Please compute exact qte of wood, cause I did not ro...