perform the welding of an arc only entering the arcOn point using the form, the auxiliary and final point I wish to program them only by moving the external axis e2 that corresponds to the table, in order to reduce the time
perform the welding of an arc only entering the arcOn point
-
guido.nunezv -
October 24, 2018 at 6:27 PM -
Thread is marked as Resolved.
-
-
Please read pinned topic "read first"!.
Also please rephrase your question because i have no idea what you want. -
I want to weld a bow.
I want to introduce only the arcOn point, the auxiliary and final points of the arcOff I want to enter its coordinates based on the ArcOn point, that is to say only move the coordinate E2 that rotates the table
The program in WORKVISUALDEF SOLOP2 ( )
DECL INT NumSECTORES, Ang_SEC1, Ang_SEC2
DECL E6POS XP6,XP7
;DECL REAL Ang_Ini_E2,Angulo_de_Mesa;FOLD INI;%{PE}
;FOLD BASISTECH INI
GLOBAL INTERRUPT DECL 3 WHEN $STOPMESS==TRUE DO IR_STOPM ( )
INTERRUPT ON 3
BAS (#INITMOV,0 )
;ENDFOLD (BASISTECH INI)
;FOLD USER INI
;Make your modifications here
;ENDFOLD (USER INI)
;ENDFOLD (INI)
;Angulo_de_Mesa=XP3.E2NumSECTORES=4
Ang_SEC1=360/NumSECTORES
Ang_SEC2=360/NumSECTORES
;Ang_Ini_E2= Angulo_de_Mesa+180;*************************************** ASIGNACION DE PUNTOS SECTOR 1
;FORMULARIOS
;FOLD PTP P1 Vel=10 % PDAT1 Tool[1]:TIP Base[17]:Mx480_180_30_S0_440;%{PE}%R 8.3.40,%MKUKATPBASIS,%CMOVE,%VPTP,%P 1:PTP, 2:P1, 3:, 5:10, 7:PDAT1
$BWDSTART=FALSE
PDAT_ACT=PPDAT1
FDAT_ACT=FP1
BAS(#PTP_PARAMS,10)
PTP XP1
;ENDFOLD
;FOLD LIN P2 Vel=0.2 m/s CPDAT1 Tool[1]:TIP Base[17]:Mx480_180_30_S0_440;%{PE}%R 8.3.40,%MKUKATPBASIS,%CMOVE,%VLIN,%P 1:LIN, 2:P2, 3:, 5:0.2, 7:CPDAT1
$BWDSTART=FALSE
LDAT_ACT=LCPDAT1
FDAT_ACT=FP2
BAS(#CP_PARAMS,0.2)
LIN XP2
;ENDFOLD
;FOLD ARCON WDAT1 PTP P3 Vel=100 % PDAT2 Tool[1]:TIP Base[17]:Mx480_180_30_S0_440 ;%{PE}
;FOLD Parameters ;%{h}
;Params IlfProvider=kukaroboter.arctech.arconptp; Kuka.PointName=P3; Kuka.BlendingEnabled=False; Kuka.MoveDataPtpName=PDAT2; Kuka.VelocityPtp=100; Kuka.MovementParameterFieldEnabled=True; ArcTech.WdatVarName=WDAT1; ArcTech.SeamName=
;FOLD Parameters ArcTechAdvanced ;%{h}
;Params IgnitionErrorStrategy=1; WeldErrorStrategy=1
;ENDFOLD ArcTechAdvancedFoldEnd
;ENDFOLD
$BWDSTART = FALSE
PDAT_ACT = PPDAT2
FDAT_ACT = FP3
BAS(#PTP_PARAMS, 100.0)
TRIGGER WHEN DISTANCE = 1 DELAY = ATBg_PreDefinitionTime DO Arc_DefineStrikeParams(1, AS_WDAT1) PRIO = -1
Arc_DefineCpPattern(#OffInAdvance, WV_WDAT1, TRUE)
PTP XP3
Arc_On(1, AS_WDAT1, ATBg_StartErrSetField[1], AW_WDAT1, WV_WDAT1, ATBg_WeldErrSetField[1], #StdArcOn, " ")
Arc_DefineCpPattern(#OnInAdvance, WV_WDAT1, TRUE)
;ENDFOLDXP4.E2=XP3.E2+(Ang_SEC1/2)
XP5.E2=XP3.E2+Ang_SEC1
;FOLD ARCOFF WDAT3 CIRC P4 P5 CPDAT3 Tool[1]:TIP Base[17]:Mx480_180_30_S0_440 ;%{PE}
;FOLD Parameters ;%{h}
;Params IlfProvider=kukaroboter.arctech.arcoffcirc; Kuka.PointName=P5; Kuka.HelpPointName=P4; Kuka.BlendingEnabled=False; Kuka.MoveDataName=CPDAT3; Kuka.MovementParameterFieldEnabled=True; ArcTech.WdatVarName=WDAT3
;ENDFOLD
$BWDSTART = FALSE
LDAT_ACT = LCPDAT3
FDAT_ACT = FP5
BAS(#CP_PARAMS, ATBg_BAS_VELDefinition)
ATB_ArcOffGeneral()CIRC XP4, XP5
Arc_Off(1, AC_WDAT3)
;ENDFOLDXP6=XP5
XP6.Z=XP2.Z
;FOLD LIN P6 Vel=0.2 m/s CPDAT4 Tool[1]:TIP Base[17]:Mx480_180_30_S0_440;%{PE}%R 8.3.40,%MKUKATPBASIS,%CMOVE,%VLIN,%P 1:LIN, 2:P6, 3:, 5:0.2, 7:CPDAT4
$BWDSTART=FALSE
LDAT_ACT=LCPDAT4
FDAT_ACT=FP6
BAS(#CP_PARAMS,0.2)LIN XP6
;ENDFOLDXP7=XP5
XP7.Z=XP1.Z
;FOLD PTP P7 Vel=10 % PDAT5 Tool[1]:TIP Base[17]:Mx480_180_30_S0_440;%{PE}%R 8.3.40,%MKUKATPBASIS,%CMOVE,%VPTP,%P 1:PTP, 2:P7, 3:, 5:10, 7:PDAT5
$BWDSTART=FALSE
PDAT_ACT=PPDAT5
FDAT_ACT=FP7
BAS(#PTP_PARAMS,10)PTP XP7
;ENDFOLDEND