Código lisp genera coordenadas XYZ

Adjunta documentos e imagenes. Comparte con todos lo que tengas. Para descargar archivos, debes de estar registrado en los foros.
Reglas del Foro
No subir Libros Completos propiedad de terceros. Si alguien necesita algo en especifico, se permite subir la copia de solo unas paginas del libro.
Responder
latinroger
Usuario Principiante
Usuario Principiante
Mensajes: 3
Registrado: Jue Feb 03, 2011 11:23 am

Código lisp que genera las coordenadas xyz de un punto y las anota en pantalla.

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")
Prueben a ver como les va jejeje

:escr: :escr: :escr: :escr: :escr:
joch115
Usuario Principiante
Usuario Principiante
Mensajes: 1
Registrado: Lun Sep 13, 2010 3:03 pm

interesante rutina muchas gracias por el aporte
Responder

Volver a “Archivos (Carga y Descarga)”

  • Información