Ciao, non so spiegarti perché a te il copia ed incolla ti crea questi tipi di problemi.
Ho provato ad eseguire un copia ed incolla dal file pdf che hai postato e me lo esegue in maniera normale sia su word che su notepad.
Se è solo quella pagina che ti interessa, te la incollo qui:
Il Mio Lisp
"accept"
"(setq testo (get_tile \"txt\")) (done_dialog 1)")
(setq tastoPremuto (start_dialog))
(if (= tastoPremuto 1)
(progn
...
)
)
(unload_dialog dcl_id)
(prin1)
)
Si ricordi sempre che, la funzione 'action_tile' richiede due parametri, nel primo
viene specificato il nome del tile su cui agire, il secondo contiene il codice Lisp da
eseguire. Proprio parlando delle istruzioni Lisp utilizzate con questa funzione è
fondamentale utilizzare la coppia \" al posto del semplice ".
Giunti a questo punto, manca solamente l'inserimento del codice per la
cancellazione della casella di testo tramite il tasto 'Svuota', il disegno del testo
indicato e l'impostazione del suo colore :
(defun c:InserisciTesto ( / testo dcl_id tastoPremuto)
(setq dcl_id (load_dialog "esempio1.dcl"))
(if (not (new_dialog "testorosso" dcl_id))
(exit)
)
(action_tile "svuotatxt" "(set_tile \"txt\" \"\")")
(action_tile
"accept"
"(setq testo (get_tile \"txt\")) (done_dialog 1)")
(setq tastoPremuto (start_dialog))
(if (= tastoPremuto 1)
(progn
(command "_text" pause "2" "0" testo)
(command "_change" "_last" "" "_p" "_c" "_red" "")
)
)
(unload_dialog dcl_id)
(prin1)
)
Per svuotare la casella di testo 'txt', è sufficiente utilizzare la funzione 'set_tile', la
quale permette di impostare la proprietà 'value' di un qualsiasi tile. Nel caso della
nostra 'edit_box' ciò si traduce nella scrittura di un testo al suo interno,
ovviamente, per svuotarla, imposteremo il testo pari ad una stringa vuota (set_tile
Pagina 114
