Hola Antonio.

Ahora dibujando un perfil transversal me he dado cuenta de ciertas carencias de Autocad.

Por ejemplo, cuando dibujamos un perfil longitudinal, generalmente la escala vertical sera diferente a la escala horizontal, es decir, existe una deformacion vertical (H:V), o dicho de otra manera la escala vertical es mas grande que la escala horizontal.

Para medir distancias verticalmente o de forma alineada sobre el mismo perfil esto supone un problema, lo mismo sucede para el tema de acotaciones(verticales o alineadas).

Yo propongo una herramienta para medir distancias estableciendo a priori la escala horizontal y vertical para dar la distancia correcta, lo mismo para el tema de acotaciones para que ponga el valor correctamente en la acotacion.

He pensado un poco como podria hacerse la herramienta.

Por ejemplo podria llamarse DIST-ESCALA

En el apartado de configuracion de ARKITool, para esta herramienta pondria la opcion "deformacion vertical (H:V)" para introducir el valor de deformacion que queramos.
Si por ejemplo tenemos la escala horizontal 1/1000 y la escala vertical 1/250, la deformacion vertical=4

Entonces, en la linea de comandos al usar la herramienta dijera:
Precise primer punto (deformacion vertical=4):

Si queremos cambiar el valor pues tendriamos que hacerlo desde la configuracion pero creo que eso es mas practico que tener que poner el valor cada vez que queramos medir o pulsar intro para aceptar el valor guardado de la ultima vez.

Alguien me dijo que normalmente la deformacion vertical deberia ser 10 veces superior a la escala horizontal, aunque yo a veces hago el doble o cuadruplicado.

Para el tema de calculos, pues lo que tendria que hacer la herramienta es tomar el incremento de Y y dividirlo entre el valor de deformacion vertical y luego ya con el incremento de X e Y, por Pitagoras calcular la distancia.

Aprovechando esta herramienta (ya que si ponemos el valor de deformacion de escala vertical=1 actuaria normal), y tal como comente en otros temas, podria ofrecer ya el valor en 2D y 3D en la linea de comandos;
Distancia(2D):.... Distancia(3D):....


Sobre el tema de acotaciones en perfiles con escala vertical diferente a la horizontal, no se si hay que poner la medida correcta o dejarla tal cual con ese escalado, habria que preguntar a delineantes o arquitectos que dice la normativa al respecto.

Hola Antonio.

Me han echado una mano a hacer un lisp aunque yo estoy demasiado verde (he hecho programacion VB.NET pero nunca me he metido con los autolisp)


Me han pasado este codigo y funciona:

(defun c:vldist(/ p1 p2 d2d df d3d)
(setq p1 (getpoint "\nPrecise primer punto:")
p2 (getpoint "\nPrecise segundo punto:")
f (getreal "\nFactor(H/V):")
d3d (distance p1 p2)
d2d (distance (list (car p1) (cadr p1) 0.0)
(list (car p2) (cadr p2) 0.0)
)
df (sqrt (+ (expt (- (car p2) (car p1)) 2.0)
(expt (/ (- (cadr p2) (cadr p1)) f) 2.0)
)
)
)
(princ (strcat "\nDistancia 2D : " (rtos d2d 2 6) "\nDistancia 3D : " (rtos d3d 2 6) "\nDistancia con factor : " (rtos df 2 6)))
(textscr)
)

aunque hay pequenas cosas a mejorar:
-que no abra la ventana de texto de Autocad (lo muestre solo en la linea de comandos).
-que aparezca la linea temporalmente de unir los 2 puntos, tal como hace "dist".
-El valor de distancia en factor viene siempre acompanado por "nil".
-*tema de decimales, que no coincide con el que ponga en "units" aunque si siempre es fijo (3 dcimales) tengo suficiente.
-Ofrecer los incrementos de X,Y y Z tal como hace el comando "dist" ya que ese comando lo dejare aparcado.

Como es un poco pesado que siempre vaya pidiendo el factor, habia pensado en que hayan 2 utilidades por separado, por ejemplo la herramienta INF-DIST2D3D y la herramienta INF-DISTPER

Obviamente en el menu de Informacion;
La herramienta INF-DIST2D3D no pediria el factor (serviria para hacer mediciones como hemos hecho siempre con el "dist")

La herramienta INF-DIST2D3D pediria el factor y solo mostraria la "distancia en factor", a su vez el incremento de Y seria con el factor tambien.
esta herramienta la usariamos en perfiles con diferentes escalas en H y V.

Al final me lo han pasado hecho:

Para el caso de INF-DIST2D3D

(defun c:DIST2D3D (/ p1 p2 d2d >x >y >z d3d)
(setq p1 (getpoint "\nPrecise primer punto:")
p2 (getpoint p1 "\nPrecise segundo punto:")
>x (- (car p2) (car p1))
>y (- (cadr p2) (cadr p1))
>z (- (nth 2 p2) (nth 2 p1))
d3d (distance p1 p2)
d2d (distance (list (car p1) (cadr p1) 0.0)
(list (car p2) (cadr p2) 0.0)
)
)
(setq dmz (getvar "DIMZIN"))
(setvar "DIMZIN" 0)
(prompt (strcat "\nIncremento X = "
(rtos >x 2 3)
", Incremento Y = "
(rtos >y 2 3)
", Incremento Z = "
(rtos >z 2 3)
"\nDistancia(2D) = "
(rtos d2d 2 3)
" Distancia(3D) = "
(rtos d3d 2 3)
)
)
(setvar "DIMZIN" dmz)
(princ)
)



Para el caso de INF-DISTPERFIL

(defun c:DISTPERFIL (/ p1 p2 d2d df d3d >x >y)
(setq p1 (getpoint "\nPrecise primer punto:")
p2 (getpoint p1 "\nPrecise segundo punto:")
f (getreal "\nFactor(H/V):")
>x (- (car p2) (car p1))
>y (/ (- (cadr p2) (cadr p1)) f)
df (sqrt (+ (expt >x 2.0)
(expt >y 2.0)
)
)
)
(setq dmz (getvar "DIMZIN"))
(setvar "DIMZIN" 0)
(prompt (strcat "\nIncremento X = "
(rtos >x 2 3)
", Incremento Y con factor = "
(rtos >y 2 3)
"\nDistancia con factor = "
(rtos df 2 3)
)
)
(setvar "DIMZIN" dmz)
(princ)
)




Esta fijado a 3 decimales,asi que no va enlazado con las unidades del dibujo, si se quiere se puede hacer que concuerde.