Pomoc

[Maroslav]

Mohl by mě někdo pomoci s jedním podprogramem?Přikládám ho zde.Potřeboval bych jen poradit jak se v něm trochu orientovat.Iso kód znám ale tohle je vcelku šílenost.Je tam použito parametrické programování.Některé parametry jsou tam popsány ale v němčine.Byl bych rád kdyby my to někdo jen trošku vysvětlil.Jedná se o podprogram pro horizontální vrtání na dřevoobráběcím CNC stroji.

%T5XBF40 (*UPG horizontales Bohren mit starrem Bohrer*)

N8000 (*Interne, lokale Parameter:*)
N8005 P123=P123*1000 (*Vorschub in mm/min*)
N8010 $IF [V.G.WZ_INFO[17]+P80]>V.G.WZ_INFO[7]
N8015 P1201=P80+V.G.WZ_INFO[17]+P72
N8020 $ELSE
N8025 P1201=V.G.WZ_INFO[7]+P72
N8030 $ENDIF
N8035 $IF V.G.WZ_INFO[8]<0>80] AND [V.G.T_AKT<90>0
N8190 #ENABLE AX LINK[V.P.ActiveAxLink]
N8195 $ENDIF

N8200 #SET DEC LR SOLL (*Decoder fordert die aktuellen Sollposition der Achsen an *)

N8210 $IF P128!=0
N8215 $IF [P1210==1] AND [P1211==0]
N8220 $IF ["Z_IST1"<P1202] AND ["Z_IST2"<P1202]
N8221 G00 "Z2" P1202 "Z3" P1202
N8222 $ENDIF
N8223 $IF "Z_IST1"<P1202
N8224 G00 "Z2" P1202
N8225 $ENDIF
N8226 $IF "Z_IST2"<P1202
N8227 G00 "Z3" P1202
N8230 $ENDIF
N8235 $ELSE
N8240 $IF "Z_IST1"<P1202>400
N8410 P1220=0.0 P1221=0.0
N8415 $ENDIF
N8420 $IF V.G.T_AKT<83>84
N8440 G00 "Z3" P43+P1221 G60 (*absenken*)
N8445 $ENDIF
N8450 $IF [V.G.T_AKT==83] OR [V.G.T_AKT==84]
N8455 G00 "Z2" P43+P1220 "Z3" P43+P1221 G60 (*absenken*)
N8460 $ENDIF
N8465 $ELSE
N8470 $IF P1211==1 (Kopf auf Z-Achse 2 *)
N8475 G00 "Z2" P43 G60
N8480 $ELSE (Kopf auf Z-Achse 1 *)
N8485 G00 "Z" P43 G60
N8490 $ENDIF
N8495 $ENDIF

N8500 $FOR P1230=P1206,1,-1
N8505 P1205=P80+V.G.WZ_INFO[17]-P74/P1230 (*Abstand beim Bohren*)
N8510 $IF P1230==1
N8515 P1208=P1201
N8520 $ENDIF
N8525 $IF P1210==1 (* 2 Bohrkoepfe*)
N8530 G01 "X" P41-P1205*P1204 "Y2" P42-P1205*P1203 "Y3" P42+P46-P1205*P1203 FP123 G60 (*bohren*)
N8535 GP1207 "X" P41-P1208*P1204 "Y2" P42-P1208*P1203 "Y3" P42+P46-P1208*P1203 (*auf Sicherheitsabs. abfahren*)
N8540 $ELSE (* 1 Bohrkopf *)
N8545 G01 "X" P41-P1205*P1204 "Y" P42-P1205*P1203 FP123 G60 (*bohren*)
N8550 GP1207 "X" P41-P1208*P1204 "Y" P42-P1208*P1203 (*auf Sicherheitsabs. abfahren*)
N8555 $ENDIF
N8560 $ENDFOR

N8600 $IF P127!=0
N8605 $IF [P1210==1] AND [P1211==0]
N8610 $IF V.G.T_AKT<83>84
N8630 G00 "Z3" P1202 (*auf Ueberfahrhoehe fahren*)
N8635 $ENDIF
N8640 $IF [V.G.T_AKT==83] OR [V.G.T_AKT==84]
N8645 G00 "Z2" P1202 "Z3" P1202 (*auf Ueberfahrhoehe fahren*)
N8650 $ENDIF
N8655 $ELSE
N8660 $IF P1211==1
N8665 G00 "Z2" P1202 (*auf Ueberfahrhoehe fahren*)
N8670 $ELSE
N8675 G00 "Z" P1202 (*auf Ueberfahrhoehe fahren*)
N8680 $ENDIF
N8685 $ENDIF
N8690 $IF P127==4
N8695 M16
N8700 $ENDIF
N8705 $ENDIF

N8800 $IF V.P.ActiveAxLink>0
N8805 #DISABLE AX LINK
N8810 $ENDIF
N8815 V.G.WZL=P9999

N8900 M17

#COMMENT BEGIN
(- WEEKE / Power control -)
(- Version: 2.00.00 -)
(- Datum : 13.01.06 -)

(*Uebergabeparameter*)
(*P41 = Xwert des Startpunktes*)
(*P42 = Y1-Wert des Startpunktes*)
(*P43 = Zwert des Startpunktes*)
(*P44 = Cwert des Werkzeugs*)
(*P46 = Y-Abstand*)
(*P72 = Anfahrabstand*)
(*P74 = Tiefe*)
(*P80 = Bohrerlaenge*)
(*P96 = Z-Ueberfahrhoehe*)
(*P123= Vorschub*)
(*P127= 1=> am Ende Z hoch*)
(*P128= 1=> am Beginn Z hoch*)
#COMMENT END

[Radek-B]

jen neumis nemecky nebo to neni uplne jasne ??

v podstate je to jednoduche , jen je to trosku slozity a blby priklad.

co presne neni jasne ?? je tam definice vrtacich hlav , vytazeni systemovych promennych pro Z . Prevzeti novych hodnot pro Z . Definice rroviny rychloposuvu, bezpecna vzdalenost, koncova hloubka, po kolika se ma vrtat, kam se ma vracet rychloposuvem pri vrtani.

Pak je tam i definice pole bodu.
Je to zajimavy podprogram, ten co ho delal musel dobre vedet co pise.
Co to je za system ??

RADEK

[Maroslav]

Je to řídící systém pro dřevoobráběcí stroj Weeke.Je určen pro výrobu nábytku.Programuje se v něm v programu Wood wop je to software vyvíjený přímo na tenhle stroj.Je vytvořen jednoduše aby se v něm stolaři kteří nemají zkušenosti s cnc vyznaly.Tak frézování, vrtání a řezání atd. je definováno makry a ty zadáváš jen souřadnice kam to makro vložit.Ale máš možnost si makra upravovat.Třeba v tomhle poprogramu bych chtěl upravit vrtání tak aby mi to vrtalo s výplachem, ale absolultně nevím kde to tady najít.Dřív jsem psával programy ručne ale jen jednoduché věci a program byl snadno čitelný N.. G.. X.. Y.. Z.. A parametrické programování jsem nepoužíval.