Rutina en autolisp para generar retícula de planos

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 conlineas 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 esaopción.
;Autor: Carlos Alberto Faz Alcalá
;Fecha: Febrero de 2008
(defun c:ret ()
(setq ocmd (getvar "cmdecho")
oblp (getvar "blipmode")
oosm (getvar "osmode")
)
(setvar"cmdecho" 0)
(setvar "blipmode" 0)
(command "_LAYER" "_m" "RETICULA" "_c" "8" "" "")
(initget 1)
(setq p1 (getpoint "1ra. Esquina:"))
(terpri)
(initget 1)
(setq p2 (getcorner p1 "2da.Esquina:"))
(terpri)
(initget (+ 2 4))
(setq ancho (getint "Distancia entre cotas <100>: "))
(terpri)
(if (= ancho nil)
(setq ancho 100)
)
(initget (+ 2 4))
(setq ht(getreal "Altura del texto <2.5>: "))
(terpri)
(if (= ht nil)
(setq ht 2.5)
)
(setq xmin (min (car p1) (car p2)))
(setq ymin (min (cadr p1) (cadr p2)))
(setq xmax (max (carp1) (car p2)))
(setq ymax (max (cadr p1) (cadr p2)))
(if (< xmin 0)
(setq ix1 (* (fix (/ xmin ancho)) ancho))
(setq ix1 (+ (* (fix (/ xmin ancho)) ancho) ancho))
)
(if (<xmax 0)
(setq ix2 (- (* (fix (/ xmax ancho)) ancho) ancho))
(setq ix2 (* (fix (/ xmax ancho)) ancho))
)
(if (< ymin 0)
(setq iy1 (* (fix (/ ymin ancho)) ancho))
(setq iy1(+ (* (fix (/ ymin ancho)) ancho) ancho))
)
(if (< ymax 0)
(setq iy2 (- (* (fix (/ ymax ancho)) ancho) ancho))
(setq iy2 (* (fix (/ ymax ancho)) ancho))
)
(initget "Cruz...