Dibujar puntos desde listas

Buen día señores.

Escribí una pequeña rutina por medio de la cual pretendo dibujar puntos con sus tres coordenadas, pero no he podido dar con el error, de hecho no se si esté bien planteada.

No tengo dwg, ya que voy a dibujar esos puntos. de un listado que apenas me van a pasar, pero con necesito adelantar.

Esta es la rutina que escribí, espero me ayuden a corregirla, gracias a todos.

Código:


(vl-load-com)
(defun dibpunto(/ lista1 lista2 lista3)
  (entmake '((0 . "point")
   (cons 10 . z)
   )
   )
  )
  (defun c:zpuntos()
    (setq zlista (list (list lista1'(446 203 185))
       (list lista2'(512 173 190))
       (list lista3'(580 200 195))
       )
  )
    (foreach z zlista
      (dibpunto z)
      )
    )


O si tienen alguna opción que funcione... bienvenida...

Saludos y gracias

Muchas gracias maestro.... saludos

Otra opción, tabla de excel
https://we.tl/t-yQF58NPpS1
Bernardo Corradine

Opción muy interesante Bernie67, gracias por compartirla.

Una pregunta.... tu programaste la macro?

Saludos y gracias

Hola eliasp, no la verdad no se mucho de programación, fue una hoja que conseguí en algún sitio, pero si tengo algunas otras tablas para inserción de puntos que se explica como se inserta con el comando. Si tienes un correo te puedo enviar algunos ejemplos de como hacerlo con excel, con lisp y con bloques con atributos

Gracias, ya las vi y también están interesantes.

mi correo es eliaspelayo@gmail.com

Saludos y gracias

Con mucho gusto te comparto lo que tenia. Poco y nada de programar
Saludos y espero que te sirva de base para tus necesidades
Quedo atento si necesitas algo mas
Bernardo Corradine