You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
82 lines
2.3 KiB
82 lines
2.3 KiB
&ACCESS RVP |
|
&REL 1 |
|
&PARAM TEMPLATE = C:\KRC\Roboter\Template\ExpertVorgabe |
|
&PARAM EDITMASK = * |
|
DEF kvt_{{artikel}}( ) |
|
|
|
;- Kuka src file, generated by FreeCAD LaserCladding WorkBench (by KVT) |
|
|
|
E6POS refpose |
|
E6POS pulverstart |
|
REAL WELDSPEED |
|
REAL TRAVELSPEED |
|
REAL LASERPOWER |
|
INT POWDEROUT |
|
|
|
;------------- definitions ------------ |
|
EXT BAS (BAS_COMMAND :IN,REAL :IN ) ;set base to World |
|
BAS (#INITMOV,0 ) ;Initialicing the defaults for Vel and so on |
|
BAS (#TOOL,{{tool}}) ;Initialicing the defaults for Vel and so on |
|
BAS (#BASE,{{base}}) ;Initialicing the defaults for Vel and so on |
|
|
|
; Home Pos |
|
PTP {A1 -33.31, A2 -104.71, A3 114.60, A4 282.66, A5 -39.21, A6 -104.87, E1 -90, E2 1.0} |
|
|
|
; hier teach punkt eingeben |
|
;FOLD PTP P1 Vel=25 % PDAT1 Tool[6]:LASER Base[6]:Laser;%{PE}%R 8.2.24,%MKUKATPBASIS,%CMOVE,%VPTP,%P 1:PTP, 2:P1, 3:, 5:25, 7:PDAT1 |
|
$BWDSTART=FALSE |
|
PDAT_ACT=PPDAT1 |
|
FDAT_ACT=FP1 |
|
BAS(#PTP_PARAMS,25) |
|
PTP XP1 |
|
;ENDFOLD |
|
|
|
|
|
;------------- main part ------------ |
|
|
|
;- Process Parameters (change here) |
|
TRAVELSPEED = {{vmax}} ; m/s |
|
WELDSPEED = {{vproc}}; m/s |
|
LASERPOWER = {{laserpower}} ; Set laser power |
|
POWDEROUT = {{powder_out}} |
|
|
|
;- Movement parameters |
|
$VEL.CP = TRAVELSPEED ; m/s ; m/s |
|
$APO.CDIS = 2.300000 ; mm |
|
$APO.CVEL = 95.000000 ; percent |
|
|
|
;- Input/Output settings |
|
$ANOUT[1] = LASERPOWER ; Set laser power |
|
$OUT[{{laser_out}}] = FALSE ; Set Laser off |
|
$OUT[2] = TRUE ; Set Laser activation on |
|
$OUT[POWDER_OUT] = FALSE ; Set powder on |
|
$OUT[{{inert_gas_out}}] = FALSE ; Set inert gas on |
|
|
|
;- Ab hier nicht mehr aendern! |
|
;- Starting point |
|
refpose=$POS_ACT |
|
pulverstart = {X -110.0, Y 0.0, Z 0.0, A 0.0000, B 0.0000, C 0.0000, E1 0.0000, E2 0.0000} |
|
pulverstart.S = refpose.S |
|
pulverstart.T = refpose.T |
|
LIN refpose:pulverstart C_VEL; GENERATED |
|
WAIT SEC 7.0 |
|
$OUT[2] = TRUE ; Set Laser activation on |
|
$OUT[POWDEROUT] = TRUE ; Set powder on |
|
$OUT[{{inert_gas_out}}] = TRUE ; Set inert gas on |
|
;- ============================= |
|
;- == generated poses == |
|
{{paths}} |
|
|
|
|
|
|
|
;- ============================= |
|
$OUT[{{laser_out}}] = FALSE ; Set Laser off |
|
$OUT[2] = FALSE ; Set Laser activation on |
|
$OUT[POWDEROUT] = FALSE ; Set powder on |
|
$OUT[{{inert_gas_out}}] = FALSE ; Set inert gas on |
|
$VEL.CP = 0.100000 ; m/s ; m/s |
|
;- Move to HOME position |
|
PTP {A1 -33.31, A2 -104.71, A3 114.60, A4 282.66, A5 -39.21, A6 -104.87, E1 -90, E2 1.0} |
|
|
|
;------------- end ------------ |
|
END
|
|
|