Ciao a tutti, c'è un modo per trasferire in un file txt l'elenco dei layer di un dwg, così da poterlo stampare?
PS Non ho voglia di trascrivermi i nomi di 120 layer....
Grazie in anticipo a tutti!!!
magh : [post n° 25455]
elenco layer
un metoto senza usare nessun programma specifico è quello di dare il comando -LAYER ? , quando hai tutto il listato lo selezionii nella finestra di testo con F2 , lo incolli in Blocco Note e lo salvi in un file .txt
ciao
ciao
magh, prova questo e vedi se ti va bene
Con Notepad copi il contenuto dalla prima parentesi all'ultima in un file e gli dai l' estensione .LSP
una volta caricato in AutoCAD il comando è LNL
---------------------------------------------------------
(defun creat (fname / lname record lafile)
(if appnder
(setq lafile (open fname "a"))
(setq lafile (open fname "w")))
(princ "\n" lafile)
(Setq dte(rtos(getvar"cdate")2 4)yr(substr dte 1 4)mo(substr dte 5 2)
dy(substr dte 7 2)sdate(strcat dy "-" mo "-" yr "\t"))
(princ sdate lafile)
(princ (strcat "\t\tfile: " nomedis) lafile)
(princ "\n\n" lafile)
(setq record (tblnext "layer" T))
(while record
(setq lname (cdr(assoc 2 record)))
(princ lname lafile)
(princ "\n" lafile)
(setq record (tblnext "layer")))
(princ(strcat "\n\tElencati nel file --> " fname))
(close lafile))
(defun c:LNL (/ fname appnder)
(setq nomedis (getvar "DWGNAME") fname "LAYER.ELE" )
(SETQ appnder (OPEN FNAME "r"))
(creat fname)(princ))
Con Notepad copi il contenuto dalla prima parentesi all'ultima in un file e gli dai l' estensione .LSP
una volta caricato in AutoCAD il comando è LNL
---------------------------------------------------------
(defun creat (fname / lname record lafile)
(if appnder
(setq lafile (open fname "a"))
(setq lafile (open fname "w")))
(princ "\n" lafile)
(Setq dte(rtos(getvar"cdate")2 4)yr(substr dte 1 4)mo(substr dte 5 2)
dy(substr dte 7 2)sdate(strcat dy "-" mo "-" yr "\t"))
(princ sdate lafile)
(princ (strcat "\t\tfile: " nomedis) lafile)
(princ "\n\n" lafile)
(setq record (tblnext "layer" T))
(while record
(setq lname (cdr(assoc 2 record)))
(princ lname lafile)
(princ "\n" lafile)
(setq record (tblnext "layer")))
(princ(strcat "\n\tElencati nel file --> " fname))
(close lafile))
(defun c:LNL (/ fname appnder)
(setq nomedis (getvar "DWGNAME") fname "LAYER.ELE" )
(SETQ appnder (OPEN FNAME "r"))
(creat fname)(princ))
