Saludos nanok. Gracias por tu ayuda, pero ya logre realizar el código, para el que algún día lo necesite es. (Defun c:cc ().
(Setvar dimzin 1).
(Setque punto (getpoint introducir el punto: )).
(Setque puntox (car punto)).
(Setque puntoy (car (cdr punto))).
(Setque fy (/ puntoy 10)).
(Setque finy (+ fy 600)).
(Setque impx (rtos puntox 2 2)).
(Setque impy (rtos finy 2 2)).
(Command _text tc punto 0 impy).
(Command _text tc (list puntox (- Puntoy 1.4)) 0 impx )).
Esto e ahorrar horas de trabajo.
Pero igual sigo con la intriga de la polilínea, es posible crear algún comando que me coloco puntos en cada vértice de una polilínea? Gracias.