Beiträge von Lapi2000

    [Version]
    Option=UserTech
    Version=V2.1.0
    Build=4
    Date=20050413


    Ich denke das macht keinen Unterschied. Habe die aktuelle Doku gelesen und die ist genauso spartanisch wie die alte! Es ist eine Version, die schon auf Office 5.2 gelaufen ist. Habe schon auf mehreren Robotern in den letzten Jahren diese Version eingesetzt und diese läuft nun auch auf der 5.5. Hast du eine Idee wie ich den Code gestallten kann das ich direkt in eine Datei speichern kann. Und zwar viele gleiche Punkte immer wieder überschreiben!?!?!?

    Hallo Leute


    Kaue hier an einem kleinen Problem. Ich möchte mittels Taste am KCP einen Punkt in eine globale datenliste schreiben. Nicht nur einen sondern viele :-(. Habe aber nun das Problem, diesen Punkt abzuspeichern. Folgender Code (nur Teilweise):


    DECL PARAM aktpositionx = {VALUE {FREE: DEFAULT[] ""}}
    DECL PARAM aktpositiony = {VALUE {FREE: DEFAULT[] ""}}
    DECL PARAM aktpositionz = {VALUE {FREE: DEFAULT[] ""}}
    DECL PARAM aktpositiona = {VALUE {FREE: DEFAULT[] ""}}
    DECL PARAM aktpositionb = {VALUE {FREE: DEFAULT[] ""}}
    DECL PARAM aktpositionc = {VALUE {FREE: DEFAULT[] ""}}
    DECL PARAM aktpositions = {VALUE {FREE: DEFAULT[] ""}}
    DECL PARAM aktpositiont = {VALUE {FREE: DEFAULT[] ""}}



    DefScript AKTUELLEPOSITION
    SHOWVAR(FULLPATH[] "$POS_ACT.x", PARAM aktpositionx)
    SHOWVAR(FULLPATH[] "$POS_ACT.y", PARAM aktpositiony)
    SHOWVAR(FULLPATH[] "$POS_ACT.z", PARAM aktpositionz)
    SHOWVAR(FULLPATH[] "$POS_ACT.a", PARAM aktpositiona)
    SHOWVAR(FULLPATH[] "$POS_ACT.b", PARAM aktpositionb)
    SHOWVAR(FULLPATH[] "$POS_ACT.c", PARAM aktpositionc)
    SHOWVAR(FULLPATH[] "$POS_ACT.s", PARAM aktpositions)
    SHOWVAR(FULLPATH[] "$POS_ACT.t", PARAM aktpositiont)
    endscript


    ;***************************************Fuer Taste 4*******************************************
    DefScript Aufnahme;Hier wird ein Flag gesetzt, welches in der sps.sub ein Unterprogramm aufruft
    SetVar(fullpath[] "saveposition_flag", Value[] "TRUE")
    Set Key4={CenterText[] "", picture[] "c:\krc\tp\usertech\template\bitmaps\Logo_rot.bmp"}
    Message "Aufnahmepunkt wurde erfolgreich angelegt"
    ; SHOWVAR(FULLPATH[] "$POS_ACT", PARAM aktposition)
    DO AKTUELLEPOSITION
    message "Toll"
    message "%aktpositionx"
    message "%aktpositiony"
    message "%aktpositionz"
    message "%aktpositiona"
    message "%aktpositionb"
    message "%aktpositionc"
    message "%aktpositions"
    message "%aktpositiont"
    REDECL(PATH[] "KoehlPublic.dat", DECLARATION[] "DECL E6POS XSP_AUFN_VORPOS={x %aktpositionx ,y %aktpositiony ,z %aktpositionz ,a %aktpositiona ,b %aktpositionb ,c %aktpositionc ,s %aktpositions ,t %aktpositiont }")
    endscript



    Und dann bekomme ich folgende Fehlermeldung!


    REDECL ( PATH[] "PUBLIC.DAT", DECLARATION[] "DECL E6POS XSP_AUFN_VORPOS={X 2436.000,Y 0.0,Z 1945.000,A 0.0,B 89.99999,C 0.0,S 2,T 2}" ) fehlgeschlagen. Script "AUFNAHME" abgebrochen.



    Ich habe schon mit dem Abspeicherungsort gespielt aber nix. Soll eigentlich auch ein globaler Punkt in einer globalen Liste sein aber erst mal so!
    Wäre echt super wenn sich einer dem Problem annehmen könnte. Denn sonnst muß ich es anders machen. Wäre so eigentlich sehr schön für meinen Zweck!