Rutina en autolisp para generar retícula de planos

730 palabras 3 páginas
RETICULA EN AUTOLISP
A continuación se muestra el código fuente para la creación de una retícula para un plano topográfico ya sea de líneas o cruces, basado en 2 puntos capturados por el usuario, distancia entre cotas, altura del texto y tamaño de cruces en caso de elegir ésta opción.
;Archivo: RETICULA.LSP
;Funcion: RET
;Descripcion: Dibuja en pantalla una cuadricula ya sea con lineas o cruces
; de las coordenadas cerradas capturando para ello 2 puntos,
; distancia entre cotas, altura de texto y tamaño de cruces en
; caso de elegir esa opción.
;Autor: Carlos Alberto Faz Alcalá
;Fecha: Febrero de 2008
(defun c:ret () (setq ocmd (getvar "cmdecho") oblp (getvar
…ver más…
uz") (= op \n)) (cruz) (linea) ) (command "_pline" p1 (list (car p1) (cadr p2)) p2 (list (car p2) (cadr p1)) "_c") (command "_style" "" "" ht "" "" "" "" "") (if (= xmin (- ix1 ancho)) (setq ix1 xmin) ) (if (= xmax (+ ix2 ancho)) (setq ix2 xmax) ) (if (= ymin (- iy1 ancho)) (setq iy1 ymin) ) (if (= ymax (+ iy2 ancho)) (setq iy2 ymax) ) (setq ix ix1) (while (<= ix ix2) (setq tex (strcat "X=" (ponercomas ix))) (command "_text" "_mr" (list ix (- ymin 5.0)) '90.0 tex) (command "_change" "_l" "" "_P" "_C" "2" "") (setq ix (+ ix ancho)) ) (setq iy iy1) (while (<= iy iy2) (setq tex (strcat "Y=" (ponercomas iy))) (command "_text" "_mr" (list (- xmin 5.0) iy) '0.0 tex) (command "_change" "_l" "" "_P" "_C" "2" "") (setq iy (+ iy ancho)) )

(setvar "cmdecho" ocmd) (setvar "blipmode" oblp) (setvar "osmode" oosm) (princ)
)

(defun cruz () (initget (+ 2 4)) (setq tc (getreal "Tamaño de cruz <5>: ")) (terpri) (if (= tc nil) (setq tc 5.0) ) (setq tc (/ tc 2)) (setvar "osmode" 0) (if (= xmin (- ix1 ancho)) (setq ix1 xmin) ) (if (= xmax (+ ix2 ancho)) (setq ix2 xmax) ) (if (= ymin (- iy1 ancho)) (setq iy1 ymin) ) (if (= ymax (+ iy2 ancho)) (setq iy2 ymax) ) (setq ix ix1) (while (<= ix ix2) (setq iy iy1) (while (<= iy iy2) (setq x1 (- ix tc)

Documentos relacionados

  • Rutina en autolisp para generar retícula de planos
    730 palabras | 3 páginas
  • Localización de un punto en el plano cartesiano
    645 palabras | 3 páginas
  • Plano posiciones y centrages en estudios de tomografía
    1206 palabras | 5 páginas
  • Extracción y cuantificación de la rutina en sambucus nigra l., sauco mediante cromatografia en capa preparativa
    1095 palabras | 5 páginas
  • Planificacion Anual Actividades De Rutina En El Nivel Inicial
    933 palabras | 4 páginas
  • Tecnicas Para Generar Equipos Creativos
    1170 palabras | 5 páginas
  • Cinética de los cuerpos rígidos en el plano
    3912 palabras | 16 páginas
  • Rutina en c++
    672 palabras | 3 páginas
  • Laboratorio De Fisica Movimiento En Un Plano
    1821 palabras | 8 páginas
  • Resumen de Liderazgo para generar capacidades
    987 palabras | 4 páginas