June 27, 2019, 08:34:09 AM

# perform the welding of an arc only entering the arcOn point

### Author Topic:   perform the welding of an arc only entering the arcOn point  (Read 350 times)

0 Members and 1 Guest are viewing this topic.

October 24, 2018, 04:27:29 PM

#### guido.nunezv

##### perform the welding of an arc only entering the arcOn point

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

Today at 08:34:09 AM

Guest
##### Re:   perform the welding of an arc only entering the arcOn point

October 24, 2018, 04:35:43 PM

#### Leon

##### Re: perform the welding of an arc only entering the arcOn point
Also please rephrase your question because i have no idea what you want.
Every problem has a solution, that isn't the problem. The problem is the solution.

October 24, 2018, 04:47:55 PM

#### guido.nunezv

##### soldering an arc entering the arcOn point

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 WORKVISUAL

DEF  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

;ENDFOLD (USER INI)
;ENDFOLD (INI)

;Angulo_de_Mesa=XP3.E2

NumSECTORES=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=
;Params IgnitionErrorStrategy=1; WeldErrorStrategy=1
;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
PTP XP3
Arc_On(1, AS_WDAT1, ATBg_StartErrSetField[1], AW_WDAT1, WV_WDAT1, ATBg_WeldErrSetField[1], #StdArcOn, " ")
;ENDFOLD

XP4.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)
;ENDFOLD

XP6=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
;ENDFOLD

XP7=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
;ENDFOLD

END

### Similar Topics

###### Unable to perform 4-point tcp-calibration on KR5 sixx R850

Started by RoboticsMan on KUKA Robot Forum

3 Replies
2556 Views
March 22, 2013, 02:58:59 PM
by RoboticsMan
###### ABB S4CPLIUS ARCON/OFF

Started by Trek552 on ABB Robot Forum

3 Replies
2130 Views
August 21, 2014, 07:01:25 AM
by onr_brk
###### entering data in karel position

Started by TH beanery on Fanuc Robot Forum

1 Replies
379 Views
August 27, 2018, 10:20:11 PM
by robotero