9
;FOLD LIN P4 Vel= 0.2 m/s CPDAT1 Tool[1] Base[0];%{PE}%R 5.4.27,%MKUKATPBASIS,%CMOVE,%VLIN,%P 1:LIN, 2:P4, 3:, 5:0.2, 7:CPDAT1
19
DECL E6POS XP4={X -25.1844196,Y 1122.42603,Z 1158.07996,A -14.3267002,B 0.537901878,C 179.028305,S 6,T 59,E1 0.0,E2 0.0,E3 0.0,E4 0.0,E5 0.0,E6 0.0}
20
DECL FDAT FP4={TOOL_NO 1,BASE_NO 0,IPO_FRAME #BASE,POINT2[] " "}
21
DECL LDAT LCPDAT1={VEL 2.0,ACC 100.0,APO_DIST 100.0,APO_FAC 50.0,ORI_TYP #VAR}
24
HeaderSrc = """&ACCESS RVP
26
&PARAM TEMPLATE = C:\KRC\Roboter\Template\ExpertVorgabe
31
def ExportCompactSub(Rob, Trak, FileName):
32
print(Rob, Trak, FileName)
33
Traj = Trak.Trajectory
35
SrcFile = open(FileName, "w")
37
SrcFile.write(HeaderSrc)
39
SrcFile.write("DEF " + Trak.Name + "( )\n\n")
40
SrcFile.write(";- Kuka src file, generated by FreeCAD (https://www.freecad.org)\n")
41
SrcFile.write(";- " + time.asctime() + "\n\n")
43
SrcFile.write(";------------- definitions ------------\n")
44
SrcFile.write("EXT BAS (BAS_COMMAND :IN,REAL :IN ) ;set base to World\n")
45
SrcFile.write("BAS (#INITMOV,0 ) ;Initialicing the defaults for Vel and so on \n\n")
47
SrcFile.write("\n;------------- main part ------------\n")
49
for w in Traj.Waypoints:
50
(X, Y, Z) = (w.Pos.Base.x, w.Pos.Base.x, w.Pos.Base.x)
51
(A, B, C) = w.Pos.Rotation.toEuler()
52
V = w.Velocity / 1000.0
53
SrcFile.write("$VEL.CP = %f ; m/s ; m/s \n" % V)
55
"LIN {X %.3f,Y %.3f,Z %.3f,A %.3f,B %.3f,C %.3f} ; %s\n"
56
% (w.Pos.Base.x, w.Pos.Base.y, w.Pos.Base.z, A, B, C, w.Name)
60
SrcFile.write("\n;------------- end ------------\n")
61
SrcFile.write("END \n\n")
74
def ExportFullSub(Rob, Trak, FileName):