Rutina en autolisp para generar retícula de planos

716 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

  • PLAN DE RUTINA DIARIA K9 UHR
    940 palabras | 4 páginas
  • El Saludo -Rutina Para 2 Payasos
    891 palabras | 4 páginas
  • Plan de trabajo para gimnasio
    3897 palabras | 16 páginas
  • Planeación para planear
    3937 palabras | 16 páginas
  • Plan de acción para motivar
    2001 palabras | 9 páginas
  • Plan De Contingencias Para Grifo
    6377 palabras | 26 páginas
  • Plan de mercadotecnia para pizzeria
    6602 palabras | 27 páginas
  • Requisitos Para Plano De Permisos
    1433 palabras | 6 páginas
  • Plan De Contingencia Para Inundaciones
    1628 palabras | 7 páginas
  • Tecnicas Para Generar Equipos Creativos
    1156 palabras | 5 páginas