Vielen Dank für die Antwort.
Tatsächlich habe ich mir als Behelf folgendes zusammengebaut
Code
PROC RotJoint(\switch Conc,\identno ID,\switch NoEOffs,num nJoint,num nDeltaAngle,Speeddata Speed,\num V|num T,Zonedata Zone,\Stoppointdata Inpos,PERS Tooldata Tool,\PERS wobjdata WObj)
VAR jointtarget jtCurrent;
VAR num nActAngle;
jtCurrent:=CJointT();
TEST nJoint
CASE 1:
jtCurrent.robax.rax_1:=jtCurrent.robax.rax_1+nDeltaAngle;
nActAngle:=jtCurrent.robax.rax_1;
CASE 2:
jtCurrent.robax.rax_2:=jtCurrent.robax.rax_2+nDeltaAngle;
nActAngle:=jtCurrent.robax.rax_2;
CASE 3:
jtCurrent.robax.rax_3:=jtCurrent.robax.rax_3+nDeltaAngle;
nActAngle:=jtCurrent.robax.rax_3;
CASE 4:
jtCurrent.robax.rax_4:=jtCurrent.robax.rax_4+nDeltaAngle;
nActAngle:=jtCurrent.robax.rax_4;
CASE 5:
jtCurrent.robax.rax_5:=jtCurrent.robax.rax_5+nDeltaAngle;
nActAngle:=jtCurrent.robax.rax_5;
CASE 6:
jtCurrent.robax.rax_6:=jtCurrent.robax.rax_6+nDeltaAngle;
nActAngle:=jtCurrent.robax.rax_6;
CASE 7:
jtCurrent.extax.eax_a:=jtCurrent.extax.eax_a+nDeltaAngle;
nActAngle:=jtCurrent.extax.eax_a;
DEFAULT:
TPWrite "Ungültige Parameter!";
RETURN ;
ENDTEST
MoveAbsJ\Conc?Conc,jtCurrent,\ID?ID,\NoEOffs?NoEOffs,Speed,\V?V\T?T,Zone,\Inpos?Inpos,Tool,\WObj?WObj;
ENDPROC
Alles anzeigen
Das ganze wird Systemweit geteilt und dann über
aufgerufen. Funktioniert soweit auch - dann wird aus meinem Not-Behelf wohl eine Routine in der Bibliothek