Robtarget im Programm kopieren

Wenn ich das richtig verstanden habe...

nimmst du mit CrobT die aktuelle Position auf (beispielsweise in eine PERS pTemp)....dann kannst du vergleichen ob es dieses target schon gibt (hierzu würden ja die trans und rot werde ggfs. reichen) ... falls diese prüfung negativ ausfällt kannst du es ggfs. als neues RobTarget erstellen.... da bin ich allerdings überfragt - allerdings könnte dir eventuell dieser thread hier weiterhelfen
https://www.roboterforum.de/ro…laufzeit-erstellen/13705/

Ich denke nicht, dass man dynamisch Robtargets anlegen kann. Du kannst aber ein Array von robtargets sozusagen als Buffer anlegen und dann da neue targets on-the-fly reinschreiben. Musst dann aber schauen, dass du nicht alte Werte überschreibst oder undefinierte targets liest.

Hallo

Mit dem Befehl SetDataSearch kannst du nach Daten suchen
weiter Befehle GetNextSym , SetDataVal ..

Neue Module erstellen :

SearchBase_Mod:= " "+SearchSetBase_Vorbelegung{SearchBase_ModNr};
IF ModExist(SearchBase_Mod) THEN
!(Datei vorhanden )
ELSE
!(Datei nicht vorhanden )
!neues Modul erstellen
CreateBase_Mod:=SearchBase_Mod+".mod" ;
UIMsgBox\Header:="Neues Module "+SearchBase_Mod ,
"Soll das Module erzeugt werden?"
\Buttons:=btnOk
\Icon:=iconINFO
\Result:=t_Answer;
IF t_Answer=resOk THEN
TPErase ;
TPWrite "Erzeuge Module "+CreateBase_Mod ;
! Textdatei erzeugen:
Open diskhome\File:=""+CreateBase_Mod,t_deDatei;
Write t_deDatei,"MODULE "+SearchBase_Mod;
Write t_deDatei,"! Points are read in order of declaration. ";
Write t_deDatei,"! Please do not change the order of points ";
Write t_deDatei,"";
Write t_deDatei,"LOCAL PERS robtarget pWobj_U_PointX1:="\NoNewLine;
Write t_deDatei,"[[0,0,0],[1,0,0,0],[0,0,0,0],[9E9,9E9,9E9,9E9,9E9,9E9]];";
Write t_deDatei,"LOCAL PERS robtarget pWobj_U_PointX2:="\NoNewLine;
Write t_deDatei,"[[0,0,0],[1,0,0,0],[0,0,0,0],[9E9,9E9,9E9,9E9,9E9,9E9]];";
Write t_deDatei,"LOCAL PERS robtarget pWobj_U_PointY1:="\NoNewLine;
Write t_deDatei,"[[0,0,0],[1,0,0,0],[0,0,0,0],[9E9,9E9,9E9,9E9,9E9,9E9]];";
Write t_deDatei,"";
Write t_deDatei,"";
Write t_deDatei,"ENDMODULE";
CLOSE t_deDatei;
IF ModExist(SearchBase_Mod) EraseModule SearchBase_Mod;
Load diskhome\File:=CreateBase_Mod;
TPWrite "Module "+CreateBase_Mod+" erfolgreich erstellt " ;
WaitTime 3 ;
TPErase;
ELSE
TPErase ;
TPWrite "Programmneustart " ;
WaitUntil FALSE ;
ENDIF
ENDIF

Probiers mal ,
Viel Spass Bernhard