Try this ; ; ; (defun C:writco( / x tt) (command "osmode" 33) (setq x (getpoint " Pick point : ")) (setq tt (strcat (rtos (car x)) " " (rtos (cadr x)) " " (rtos (caddr x)))) (setq x (getpoint " Text where ? : ")) (command "_text" x "" "" tt ) (terpri) ) ; ; ; Good luck Jochen [URL="http://www.black-cad.de"]www.black-cad.de[/URL]