June 27, 2019, 08:34:09 AM
Robotforum | Industrial Robots Community

  perform the welding of an arc only entering the arcOn point

normal_post 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
Read 350 times
Offline

guido.nunezv



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
Reply #1

Advertisement

Guest

October 24, 2018, 04:35:43 PM
Reply #1
Offline

Leon


Please read pinned topic "read first"!.
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
Reply #2
Offline

guido.nunezv



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
         ;Make your modifications here
         
      ;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=
;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)
;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


Share via facebook Share via linkedin Share via pinterest Share via reddit Share via twitter

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

Started by RoboticsMan on KUKA Robot Forum

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

Started by Trek552 on ABB Robot Forum

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

Started by TH beanery on Fanuc Robot Forum

1 Replies
379 Views
Last post August 27, 2018, 10:20:11 PM
by robotero
xx
Add a welding point

Started by biagiodim on Manuals, Software and Tools for ABB Robots

2 Replies
3279 Views
Last post June 19, 2015, 12:05:30 PM
by afernando