Cómo poner todos los vertices en la cota 0/Proyectar dibujo

[InnerCity]

Se exponen varios metodos

De SpeedCAD

Si modificas el archivo acad.mnu ya sea para personalizar tus menus, se supone que deberas cargarlo con el comando MENU y al hacer esto se renombrara el archivo acad.mns y por lo tanto se borrara tu barra personalizada. Para que no se borre tu barra personalizada debes hacer lo siguiente despues de haber creado tu barra personalizada:

Abre el archivo acad.mnu y acad.mns, luego vas a la seccion de TOOLBARS del archivo acad.mns o simplemante buscar el texto Z0 que sera el nombre de la barra de herramientas que haz creado, bueno al encontrarlo deberia pararecer lo siguiente:

**Z0
ID_Z0_0 [_Toolbar("Z0", _Floating, _Show, 400, 50, 1)]
ID__0 [_Button("pasar todos los objetos a Z = 0", "ICON4664.bmp", "ICON_16_BLANK")]^C^C_move;_all;;0,0,0;0,0,1e99;_move;_p;;0,0,0;0,0,-1e99

Ese codigo lo copias completo y lo pegas en el archivo acad.mnu, como referencia lo debes poner despues de la barra de herramientas llamada **TB_WEB o **TB_ZOOM y luego de pegarla solo le agregas el TB aso, TB_Z0, luego guardas los cambios en el archiv acad.mnu y lo cierras, al igual que el archivo acad.mns tambien lo cierras. Ahora estando en AutoCAD vualve a cargar el archivo acad.mnu y veras que el boton Z0 no desaparecera, si no que se mostrara como flotante y tu solo debes ponerlo en su lugar...

De MDpilo1Egg para polilineas

command> CHANGE
select objects: ALL < aqui le dices que seleccione todos los objetos

select objects ENTER <darle un nuevo enter aqui para finalizar seleccion
properties/<change point> P <properties

(Change what property Color/Elev/LAyer/LType/ltScale/Thickness) ? E <elevation
New elevation (xxxx ) 0 <aqui le das el cero
ENTER <aqui le damos otro enter para confirmar y finalizar comando, y listo, esta todo en la cota cero...

espero que se entienda: lo que esta en MAYUSCULAS son el comando y los parámatros a ingresar, el resto son los prompts que te da el autocad.

Mediante las ExpressTools
tambien puedes usar el comando flatten, de las ExpressTools (Herramientas Express), que te proyectara cualkier cosa sobre el plano de cota z=0
esta ultima opcion es la mas sencilla, y lo mismo deja en el plano de cota 0 polilineas con elevacion que vertices singulares de lineas, 3dpolilineas, etc
para esto es necesario que previamente hayas instalado estas herramientas
el comando lo puedes ejecutar directamente escribiendolo en la linea de comandos o en 'express/modify/flatten objects'

Mediante rutinas LISP

Code: Select all

; ////////////////////////////////////////////////////////////////
; ////////////////////////////////////////////////////////////////
; Esta rutina, creada por JMR, pretende facilitar algunas operaciones
; que se ejecutan asiduamente en AutoCAD.
; La rutina puede ser utilizada, copiada, modificada, distribuida
; libremente.
; Agradecería que me informasen de los fallos que encuentren o las
; mejoras que realicen sobre la rutina.
; Si quiere ponerse en contacto conmigo y/o mandarme alguna rutina
; puede hacerlo a la dirección de correo electrónico:
; jm00020@jazzfree.es
; ////////////////////////////////////////////////////
; JMR
; ZZ v.1
; 22/05/00 Desplaza los objetos seleccionados a cota 0 (por el punto principal)
; 06/07/00 Se corrige, para que cambie la coordenada Z de cada punto
; Se solicita la coordenada Z a la que se desea mover los objetos
; ////////////////////////////////////////////////////

(DEFUN *ERROR* (msg)
(PRINC "Error >> ")
(princ msg)
(if (= msg "Función cancelada") (princ "\nSe ha cancelado la función"))
(final)
) ;defun error


(defun inicio ()
(setq menueco (getvar "cmdecho"))
(if (= 1 menueco) (setvar "cmdecho" 0)) ; Oculta mensajes de las órdenes
(setq refenti (getvar "osmode"))
(setvar "osmode" 0) ; Desactiva referencia a entidades
(command "deshacer" "inicio")
) ;defun inicio

(defun final ()
(command "deshacer" "fin")
(setvar "cmdecho" menueco)
(setvar "osmode" refenti)
(princ)
) ;defun final

; metering prompt
(defun gc_meter (gcm_pr gc_num gc_max)
(prompt
(strcat "\r" gcm_pr " ("
(rtos(*(/(float(1+ gc_num))(float gc_max))100)2 0)
"%)"
) ;strcat
) ;prompt
) ;defun


(defun c:ZZ ()

(inicio)
(if (not cotaz) (setq cotaz 0))
(setq mensaje (strcat "\nIndique cota Z del plano donde desea ubicar los objetos: <" (rtos cotaz) ">: "))
(setq pcota (getreal mensaje))
(if (/= pcota nil) (setq cotaz pcota))
(princ (strcat "\nDesigne objetos a desplazar a cota " (rtos cotaz)": "))
(setq entidades (ssget))
(if (/= entidades nil)
(progn

(setq repite (sslength entidades)) ; Crea la variable repite = nº. entidades seleccionadas

(setq ord 0)

(repeat repite ; repite tantas veces como entidades seleccionadas
(setq noment (ssname entidades ord)) ; noment = nombre de entidad seleccionada (ord = contador)
(setq listado (entget noment)) ; recupera datos del objeto
(setq puntoins (cdr (assoc 10 listado))) ; punto
(redraw noment 3)
(if (= (cdr (assoc 0 listado)) "LWPOLYLINE") ; SI LA ENTIDAD ES UNA POLILÍNEA
(progn
; (setq Zins (cdr (assoc 38 listado))) ; altura
; (command "desplaza" noment "" ".xy" puntoins Zins ".xy" puntoins "0,0,0")

(setq listado (subst (cons 38 cotaz) (assoc 38 listado) listado))
(entmod listado)
(entupd noment)

) ;progn
) ;if
; (if (= (cdr (assoc 0 listado)) "LINE") ; SI LA ENTIDAD ES UNA LÍNEA
(progn
(setq campo 10)
(while (and (> campo 9) (< campo 19))
(if (assoc campo listado) ; si existe el campo en cuestión
(ponez0)
) ;if
(setq campo (+ campo 1))
) ;while
) ;progn
; (command "desplaza" noment "" puntoins ".xy" puntoins "0")
; ) ;if

(gc_meter "Realizado " ord (sslength entidades))
(redraw noment 4)
(setq ord (+ 1 ord))
) ;repeat

) ;progn

) ;if

(final)
) ;defun

(defun ponez0 ()
(setq pt (cdr (assoc campo listado))) ; punto final de linea
(setq coordx (car pt))
(setq coordy (cadr pt))
(setq coordz (caddr pt))
(if (or (/= coordz nil) (/= coordz cotaz))
(progn
(setq ptnuevo (list coordx coordy cotaz))
(setq listado (subst (cons campo ptnuevo) (assoc campo listado) listado))
(entmod listado)
(entupd noment)
) ;progn
) ;if
) ;defun


(princ "\n--- JMR ---")
(princ)

Otras rutinas LISP

http://www.itspanish.org/archivos/PROJECT.LSP

http://www.itspanish.org/archivos/FLATTEN.LSP

Como obtener una proyección en 2d de un dibujo realizado en 3d (AutoCAD 2000)
Se añade el plotter "AutoCAD DXB File". Para ello, se va a [Options] y se pulsa en "Add or configure", se escoge la opción de "Add a Plotter Wizard" y se le da a [Enter] hasta llegar al diálogo de "Plotter Model", donde se encuentra "AutoCAD DXB File". Se selecciona y se le da a "Siguiente", otra vez en "siguiente", en "Ports" se ubica en "Plot to File", y en "Ploter name" se le pone el nombre por el que lo encontraremos en lo sucesivo. Y se da a "Finalizar"
Cerramos los cuadros de diálogo y en plot se escoge el plotter que acabamos de definir, escogemos en que carpeta queremos guradar el dibujo que genera, que tendrá una extensión [DXB].
Para importarlo se teclea [_DXBIN] y lo ubicamos en donde deseemos. Queda como un dibujo [DXF], con la ventaja de que va a ser planimétrico y la desventaja de que todas las lineas y arcos quedan en la misma capa y con igual color
De esta forma podemos plotear a [DXB] las vistas isométricas, axonométricas o perspectivas.