kuervo
Principiante
Jul 1, 2007, 11:30 AM
Mensaje #6 de 9
(8653 visitas)
Link
|
Hola, ya he encontrado el codigo lisp. Cambia el color y tipo de línea de los objetos de porcapa a propio. Si no sabes como cargar una rutina lisp utiliza la ayuda de autocad, ahi explica como hacerlo, y bueno además es distinto en cada version de autocad, o al menos algo distinto. En general puede servirte que vayas al menu Herramientas, y busques donde indica Cargar aplicación. Un archivo lisp, es en realidad un archivo del Bloc de notas de windows con extensión .lsp en lugar de .txt o sea que si quieres revisar el codigo no tienes mas que abrirlo con ese programa o cualquier editor de texto. Bueno, aclarado este punto, decirte que la rutina no la hice yo, sino un tal Leonid Nemirovsky en 1998 y no la he probado en autocad 2007. Te pongo el codigo, si quieres el archivo te lo puedo enviar a algun mail, pero es lo mismo que te pongo aqui. Este es el texto (lo copias y lo pegas en Bloc de notas y lo guardas con el nombre BNT.lsp y lo cargas en autocad): ; ;================================================================= ; BTN Better Than Nothing AutoLISP by Leonid Nemirovsky Jan.1998 ; Program will change color and line type of every entity in dwg. ; created by layer to byentity assuming Layer color and layer ; linetype for appropriate entity. ; Version 1.0 ;================================================================= (defun c:bnt (/ ent1 en1 layr col ltyp enl colr ltp) (princ "\nWorking....Please Wait\n") (setq ent1 (entnext)) (setq en1 (entget ent1)) (setq layr (cdr (assoc 8 en1))) (setq col (cdr (assoc 62 en1))) (setq ltyp (cdr (assoc 6 en1))) (if (= col nil) (progn (setq enl (tblsearch "layer" layr)) (setq colr (assoc 62 enl)) (setq ltp (assoc 6 enl)) (setq en1 (append en1 (list colr))) (entmod en1) ) ) (if (= ltyp nil) (progn (setq enl (tblsearch "layer" layr)) (setq colr (assoc 62 enl)) (setq ltp (assoc 6 enl)) (setq en1 (append en1 (list ltp))) (entmod en1) ) ) ;............................................................... (while (setq ent1 (entnext ent1)) (setq en1 (entget ent1)) (setq layr (cdr (assoc 8 en1))) (setq col (cdr (assoc 62 en1))) (setq ltyp (cdr (assoc 6 en1))) (if (= col nil) (progn (setq enl (tblsearch "layer" layr)) (setq colr (assoc 62 enl)) (setq ltp (assoc 6 enl)) (setq en1 (append en1 (list colr))) (entmod en1) ) ) (if (= ltyp nil) (progn (setq enl (tblsearch "layer" layr)) (setq colr (assoc 62 enl)) (setq ltp (assoc 6 enl)) (setq en1 (append en1 (list ltp))) (entmod en1) ) ) (princ "\rO\r-") ) ;............................................................... (command "_regenall") (princ "\nD O N E") (princ) )
|