Routine lisp non funzionante

Angelo2449 · 8 Luglio 2018

Salve a tutti,
sto impazzendo per questa piccola routine che non funziona :

Codice:

   (defun C:PROVA (/ PuntoCliccato Cx Cy Cxx Cyy XYZ)

       (setq PuntoCliccato (getpoint "\nClicca il Punto"))
       (command "_circle" PuntoCliccato 0.15)

       (setq Cx (car PuntoCliccato))
       (setq Cy (cadr PuntoCliccato))

       (setq Cxx (+ Cx 0.20))
       (setq Cyy (+ Cy 0.25))

       (setq XYZ (list Cxx Cyy 0.00))

       (command "_circle" XYZ 0.40)
       (command "_change" "_last" "" "_p" "_c" "_red" "")

   )

aiuto, grazie.

Cristallo · 8 Luglio 2018

a me riga per riga funziona.
prova a togliere le variabili locali
(defun C: PROVA (/ PuntoCliccato Cx Cy Cxx Cyy XYZ) -> (defun C: PROVA ()

rpor66 · 8 Luglio 2018

Codice:

(defun C:PROVA (/ PuntoCliccato Cx Cy Cxx Cyy XYZ)

    (setq PuntoCliccato (getpoint "\nClicca il Punto"))

    (SetOsnapOnOFF "OFF")
    
    (command "_circle" PuntoCliccato 0.15)

    (setq Cx (car PuntoCliccato))
    (setq Cy (cadr PuntoCliccato))

    (setq Cxx (+ Cx 0.20))
    (setq Cyy (+ Cy 0.25))

    (setq XYZ (list Cxx Cyy 0.00))

    (command "_circle" XYZ 0.40)
    
    (command "_change" "_last" "" "_p" "_c" "_red" "")

    (SetOsnapOnOFF "ON")

)

; accende o spegne gli osnap, equivalente al tasto F3
(defun SetOsnapOnOFF(mode / osmode)       
    (setq osmode (getvar "osmode"))
    (if (= mode "ON")
        (if (> osmode 16384)
            (setvar "osmode" (- osmode 16384))
        )
        (if (< osmode 16384)
            (setvar "osmode" (+ osmode 16384))
        )       
    )
)

Devi fare attenzione agli osnap, se no ti fregano.

Cristallo · 8 Luglio 2018

Non avevo pensato all'osnap perchè in genere prima di ogni procedura inserisco
(setq OldOsMode (getvar "Osmode"))
(setvar "osmode" 0)

ed alla fine
(setvar "Osmode" OldOsmode)

in maniera che la procedura risulti assolutamente trasparente all'operatore e non influenzata dagli osnap.

GP. · 8 Luglio 2018

Apportando modifiche alle variabili di sistema sarebbe buona norma predisporre una gestione errori per il ripristino in caso di uscita forzata.
Per evitare... c'è sempre il buon "_non"
(command "_circle" "_non" XYZ 0.40)

Cristallo · 9 Luglio 2018

GP. ha detto:
una gestione errori per il ripristino in caso di uscita forzata.

Tipo?

Angelo2449 · 9 Luglio 2018

Certe volte il LISP mi lascia sconcertato, una routine funziona, un'altra simile non funziona!
Sono certo che sbaglio io ma la sinteticità del linguaggio, induce ad errori frequenti ma, che non sono così rilevabili in sede di programmazione.
Devo abituarmi.
A proposito, la routine funziona benissimo, improvvisamente, senza cambiare codice, funziona!

GP. · 11 Luglio 2018

Cristallo ha detto:
Tipo?

Codice:

(defun c:nomefunzione ( / *error* )

    (defun *error* ( msg )
        (if os (setvar 'osmode os))
        (if msg (prompt msg))
        (princ)
    )

    (setq os (getvar 'osmode))
    (setvar 'osmode 33)
    .............
    .............
    .............    
    (setvar 'osmode os)
    (princ
)

Cristallo · 12 Luglio 2018

vediamo se ho capito:
- definisci una funzione *error*
- prima del listato prelevi il valore di OSMODE
- in caso di errore di routine il lisp intercetta l'errore (come?), va in moto la funzione *error* che ripristina l'osmode e ti visulizza il messaggio di errore.

Quello che non comprendo è come il lisp intercetti l'errore, lanciando quindi la routine *error* in automatico.

GP. · 12 Luglio 2018

Una routine ha un inizio e una fine, quando questa si interrompe AutoLISP valuta sempre se esiste una funzione *error*

Cristallo · 13 Luglio 2018

Routine lisp non funzionante

Angelo2449

Utente Junior

Cristallo

Utente Standard

rpor66

Utente Standard

Cristallo

Utente Standard

GP.

Utente Senior

Cristallo

Utente Standard

Angelo2449

Utente Junior

GP.

Utente Senior

Cristallo

Utente Standard

GP.

Utente Senior

Cristallo

Utente Standard

Discussioni simili

Statistiche forum

Utenti online