Código lisp genera coordenadas XYZ
Publicado: Jue Ago 16, 2012 9:52 am
Código lisp que genera las coordenadas xyz de un punto y las anota en pantalla.
Prueben a ver como les va jejeje
Código: Seleccionar todo
defun c:CXYZ()
(setq pt (getpoint "\nDesigna Punto: "))
(setq x (car pt))
(setq y (cadr pt))
(setq z (caddr pt))
(setq xt (strcat "X = " (rtos x 2 3)))
(setq yt (strcat "Y = " (rtos y 2 3)))
(setq zt (strcat "Z = " (rtos z 2 3)))
(setq pt1 (getpoint pt "\nDesigna posición del texto: "))
(command "_leader" pt pt1 "" xt yt zt "" )
(princ)
)
(prompt "\nTeclea CXYZ para llamar al comando")