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

Topic author
latinroger
Usuario Principiante
Usuario Principiante
Mensajes: 3
Registrado: Jue Feb 03, 2011 11:23 am

#1

Jue Ago 16, 2012 9:52 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:

Vinculos Patrocinados:


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

#2

Lun Oct 07, 2013 5:38 pm

interesante rutina muchas gracias por el aporte

Responder
  • Temas similares
    Respuestas
    Vistas
    Último mensaje

Volver a “Archivos (Carga y Descarga)”

  • Información