| Geometría métrica . Ejercicios comentados | Comentarios sobre los ejercicios | |
| Determinar
los ejes de una elipse conocidos los focos y un punto de la misma. |
Descargar
ejercicio comentado>>>>>>. Fichero 1.DOC (Comprimido 1.zip) |
 |
| Hallar
el punto del eje radical, de dos circunferencias dadas, desde el que se
ve bajo un ángulo de 60° el segmento OO´. |
Descargar
ejercicio comentado>>>>>>. Fichero 2.DOC (Comprimido 2.zip) |
|
| Trazar
las circunferencias tangentes a la circunferencia dada de centro O y a la
recta r, conocido el punto de tangencia T en la circunferencia. Resuelto
por inversión. |
Descargar
ejercicio comentado>>>>>>. Fichero 3.DOC (Comprimido 3.zip) |
|
| Rutinas Lisp comentadas | Comentarios sobre la función Lisp | |
|
(defun C:ESCALERA1 () |
Comienza
la definición del nuevo comando: escalera1 |
|
| (COMMAND
"OSMODE" 0) (COMMAND "PICKBOX" 0) (COMMAND "COLOR" "_BYLAYER") |
Modificamos algunos valores de variables. No es imprescindible, podemos eliminar estas líneas. | |
| (setq
PINICIO (getpoint "\nPunto de inicio :")) (INITGET 7) (setq ALTURA (getdist "\nAltura a salvar en m: ")) (INITGET 7) (setq LONGITUD (getdist "\nLongitud a salvar en m: ")) (INITGET 7) (setq ESCALONES (getint "\nNº de escalones: ")) |
Nos
solicita una serie de valores que definen la escalera. Punto inicial, altura
a salvar, longitud y número de escalones. |
|
| (INITGET
1 "D I") (setq SENTIDO (getkword "\nDerecha Izquierda :")) |
Solicita el SENTIDO de la escalera con (INITGET 1 "D I") evitamos que se pueda introducir un valor diferente a D o a I. | |
| (setq
P1 pinicio) (setq h (- (/ altura escalones) 0.03)) (setq l (+ (/ longitud escalones) 0.03)) |
Obtenemos los diferentes valores de la escalera, Punto de inicio, h ( altura) y l (longitud ). Restamos 0.03 a la altura y sumamos 0.03 a la longitud valores que se corresponden con el grosor y el vuelo que deseemos dar al peldaño. | |
| (if
(= sentido "D") (derecha) (izquierda)) |
Según el SENTIDO que se indique llama a la función DERECHA o IZQUIERDA. | |
| (COMMAND
"OSMODE" 33) (COMMAND "PICKBOX" 5) (princ) ) |
Modificamos
algunos valores de variables. No es imprescindible, podemos eliminar estas
líneas. Finaliza la definición del comando escalera1. |
|
|
(DEFUN DERECHA () (REPEAT ESCALONES (setq P2 (polar P1 (/ PI 2) h)) (setq p3 (polar p2 PI 0.03)) (setq p4 (polar p3 (/ PI 2) 0.03)) (setq p5 (polar p4 0 l)) (command "_LINE" P1 P2 P3 P4 P5 "") (setq P1 P5) ) ) |
Define la función DERECHA y realiza el dibujo de los escalones según la animación. | |
(DEFUN IZQUIERDA () (REPEAT ESCALONES (setq P2 (polar P1 (/ PI 2) h)) (setq p3 (polar p2 0 0.03)) (setq p4 (polar p3 (/PI 2) 0.03)) (setq p5 (polar p4 PI l)) (command "_LINE" P1 P2 P3 P4 P5 "") (setq P1 P5) ) ) |
Define la función IZQUIERDA y realiza el dibujo de los escalones según la animación. | |
| Como crear texto circular con altura de extrusión | Descargar documento con los pasos a seguir | |
Proceso para crear texto con altura de extrusión. Breve tutorial
|
|
|
| Aplicación en VB para calcular radio de un arco conocida la cuerda y el porcentaje de aumento del arco sobre la cuerda. |  |
|