|
 |
Lisp »Tips 'n Tricks »Numera righi Questo lisp numera le linee di codice di un sorgente Lisp.
;| NRIGO.LSP
(C) by Claudio Piccini (6/08/2003)
|;
(defun c:nrigo ( / nomeDir f1 f2 nf1 nf2 rigo nRig)
(setq nRig 1)
;|
con getfiled cerco il lisp (lsp)
|;
(setq nf1 (getfiled "Numera Righi" "" "lsp" 0))
(if (/= nf1 nil)
(progn
;|
apre il lisp
|;
(setq f1 (open nf1 "r"))
;| crea nella cartella dove è aperto il file DWG
il file LISP.TXT (se presente ci scrive sopra)
e stampa i righi numerati del sorgente lisp.
|;
(setq nomeDir (getvar "dwgprefix"))
(setq nf2 (strcat nomeDir "lisp.txt"))
(setq f2 (open nf2 "w"))
(setq rigo " ")
(while (/= rigo nil)
(setq rigo (read-line f1))
(if (/= rigo nil)
(progn
(princ nRig f2)
(princ " " f2)
(princ rigo f2)
(princ "\n" f2)
(setq nRig (+ nRig 1))
)
)
)
; chiude i files LSP e TXT
(close f1)
(close f2)
)
(princ "\nFile non trovato")
)
(princ)
)
; eof
|
|