Hacer un LISP para Acotar en Ejes X e Y Respecto de 1 punto en AutoCAD

[adrielsimon]

Buenas tardes, 

Dos consultas:

La primera: Necesito un Lisp para utilizando dos estilos de cota distintos, acotar las diferencias en los dos ejes , para varios puntos de un plano. Adjunto uno imagen:

Segundo: Quiero iniciarme a programar Lisp, pero necesitaria aprender de 0. necesitaria alguna recomendación de algun curso introductorio como para poder empezar a meter manos. 

Agradeceria alguna devolución, 

Saludos

Simón

@adrielsimon  para una mayor claridad @joaquim.moral ha editado el título original: LISP - Acotar en Ejes X e Y Respecto de 1 punto

Recuerda consultar cómo escoger el mejor título para tu post. ¡Gracias por participar!

[joaquim.moral]

¡Hola @adrielsimon!
Gracias por participar en la Comunidad Autodesk.
Espero que pronto recibas una respuesta de la comunidad.

Respecto a las rutinas LISP; hay bastante información en el foro. Te paso un post dónde se habló bastantes de ellas y se mandaron manuales y vídeos sobre las mismas.

Te recomiendo que hagas una búsqueda en el foro para encontrar preguntas anteriores sobre el tema que sin duda te ayudarán con tu duda.

Espero que te ayude!

Gracias y hasta pronto,

[adrielsimon]

Gracias Joaquín.

Ya estuve buscando en el foro respecto a esta solución, pero no encontré la
solución partícular.

[bc.chiquito · Accepted solution]

Hola, @adrielsimon 

¡Bienvenido a la comunidad Autodesk!

El lisp que requieres tiene muchas características específicas y elementos que personalizar dentro de la rutina, mi recomendación que visites el foro de Visual LISP, AutoLISP and General Customization -en inglés-, y preguntes si algún especialista en el tema de te puede apoyar con lo que requieres.

Espero que te sea útil. ¡Saludos!

[calderg1000]

Saludos @adrielsimon 

Que bueno que nos haces llegar tu consulta sobre Autolisp; te comento que aunque la comunidad todavía no tiene el foro de Autolisp en español, algunos compañeros participan también dando respuestas a estas consultas. Te animo a seguir investigando e iniciarte en este apasionante mundo de la programación en Autolisp; seguro al inicio tendrás algunos inconvenientes pero te aseguro que tus esfuerzos serán recompensados.

Por mi parte he intentado lograr lo que estas requiriendo y he preparado una rutina que talvez te pueda ayudar y aunque no esta al 100% de lo que solicitas, creo que te puede dar una buena idea de lo que se puede hacer para llegar a tu objetivo. Y te aseguro que lo que requieres si es posible hacerlo con Autolisp; hay varios caminos para ello y solo hay que iniciar e ir sumando mas comandos para construir el objetivo tal cual lo necesitas.

Con mucho gusto estaré atento a tu replica y consultas sobre el funcionamiento de la rutina.

;;;Rutina Autolisp por Calderg1000; V01: 13-09-21
;;;Para dar respuesta en el foro de Autodesk en Español
;;;Selecciona un punto e imprime sus coordenadas en pantalla
;;;Esta rutina solo se ha probado para las condiciones mostradas en el video
;;;pero es posible que se pueda adaptar a otras condiciones particulares.
;;;-------------------------------------------------------------------------
(defun c:cxy (/ i x y px py stx x1 x2 sty y1 y2)
  (setq i 1)
  (while
  (setq p (getpoint "\nSeleccione un punto: "))
  (setq x (car p)
        y (cadr p)
  )
  (setq px (mapcar '+ p (list 3 0))
        py (mapcar '+ p '(0 -3));pto de insercion de texto Y
  )
  (vl-cmdf "Text"
           "j"
           "l"
           "none"
           px
           0.8
           90
           (strcat "X" (itoa i) " " (rtos x 2 2)))
(setq stx(vlax-ename->vla-object(entlast)))
(vla-getboundingbox stx 'x1 'x2)
(vl-cmdf "line" "none" px "none" (list (car px) (cadr (vlax-safearray->list x2)))"")             
  
(vl-cmdf "Text"
           "j"
           "l"
           "none"
           py
           0.8
           0
           (strcat "Y" (itoa i) " " (rtos y 2 2)))
(setq sty(vlax-ename->vla-object(entlast)))
(vla-getboundingbox sty 'y1 'y2)
(vl-cmdf "line" "none" py "none" (list  (car (vlax-safearray->list y2)) (cadr py))"")  
  
  (setq i(1+ i))
)
  )

Link del video screencast, https://knowledge.autodesk.com/es/support/civil-3d/learn-explore/caas/screencast/Main/Details/4a79a5...

---