Sotto si trova il codice che permette con pocchisime tastate di ottenere una delle coordinate, quando le altre 2 sono fissate (l'esempio e' per X,Y fissi, ma si puo' rifare facilmente anche per altre coordinate).
Settaggi:
- In XT,YT,ZT,IT,JT,KT si inseriscono le coordinate e i vettori "teorici" - solo XT e YT devono essere precisi, tutto il resto puo' essre molto, molto approssimativo...
- Nei settaggi di PUNTO1 puoi' aggiustare se vuoi il distianzatore (Ricordati che in questo punto numero Perm DEV'ESSERE 3!)
- Nella condizione IF GOTO puoi aggiustare la precisione che ti serve (e' il valore della somma degli errori ammessa sulle coordinate fisse)

Risultato:
Lo trovi nel PUNTO2 dopo che il programma esse dal ciclo.

Saluti,
Alex
 
Vedi se vuoi anche il programma allegato...
 
 
 
            COMMENTO/DOC,NO,=========DATI INIZIALI==========================
            ASSEGNA/XT = 3
            ASSEGNA/YT = 3
            ASSEGNA/ZT = 8
            ASSEGNA/IT = 0
            ASSEGNA/JT = 0
            ASSEGNA/KT = 1
PUNTO1     =AUTO/PUNTO SUPERFICIE,MOSTRATUTTIPARAM = SĖ
            TEOR/XT,YT,ZT,IT,JT,KT
            REALE/2.2908,2.3173,7.2423,0.3435137,0.3352966,0.877254
            DEST/XT,YT,ZT,IT,JT,KT
            SPESSORE TEOR = 0,RETT,AGGANCIA = NO,$
            MOVIM AUTO = NO,DISTANZA = 30,MISREL = Nessuno,Nessuno,Nessuno,$
            INIZ = 0,PERM = 3,DISTANZ = 1
            ASSEGNA/ZT = PUNTO1.Z
            ASSEGNA/IT = PUNTO1.I
            ASSEGNA/JT = PUNTO1.J
            ASSEGNA/KT = PUNTO1.K
L1         =ETICH/
PUNTO2     =AUTO/PUNTO VETTORE,MOSTRATUTTIPARAM = SĖ
            TEOR/XT,YT,ZT,IT,JT,KT
            REALE/2.9975,2.9976,6.7137,0.3434873,0.3352876,0.8772677
            DEST/XT,YT,ZT,IT,JT,KT
            SPESSORE TEOR = 0,RETT,AGGANCIA = SĖ,$
            MOVIM AUTO = NO,DISTANZA = 30
            ASSEGNA/ZT = PUNTO2.Z
            ASSEGNA/IT = PUNTO2.I
            ASSEGNA/JT = PUNTO2.J
            ASSEGNA/KT = PUNTO2.K
            IF GOTO/ABS(XT-PUNTO2.X)+ABS(YT-PUNTO2.Y)>0.005,GOTO = L1
            COMMENTO/DOC,NO,========================================================