kuervo
Principiante
Jul 1, 2007, 11:30 AM
Mensaje #6 de 9
(6732 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)
)
|
Boletín de Arquitectura
RSS
Twitter
Facebook
INDICE
BUSCAR
USUARIOS 
ACCESO A
ayudenme
Re: [hk3mcm] ayudenme
[
