|
 |
Lisp »Tips 'n Tricks »Tipi di variabili Un sorgente che mostra i tipi di variabili in AutoLISP
;|
Funzione: c:vars
Descrizione: tipi di variabili
Variabili: ni numero intero
nr numero reale
sc stringa di caratteri
pt punto digitato con il mouse
Valore restitituito: nil |;
(defun c:vars ( / ni nr sc pt)
(setq ni (getint "\nInserire un numero intero: "))
(setq nr (getreal "\nInserire un numero reale: "))
(setq sc (getstring "\nInserire una stringa: "))
(setq pt (getpoint "\nClicca un punto con il mouse:"))
; Mostra tipo e contenuto di ogni variabile
(textscr)
(princ "\n------------------------------------\n")
(princ (type ni))
(princ " ")
(princ ni)
(terpri)
(princ (type nr))
(princ " ")
(princ nr)
(terpri)
(princ (type sc))
(princ " ")
(princ sc)
(terpri)
(princ (type pt))
(princ " ")
(princ pt)
(terpri)
(princ "\n------------------------------------\n")
(princ)
)
;eof
|
|