AutoLISP Code : Write a text

;;; Function: writext ;
;;;--------------------------------------------------------------------;
;;; Description: This function writes and creates the text chosen ;
;;; ;
;;;------------------------------------------------------------------- ;

(defun writext (POINT H title / SYS)
(setq SYS (getvar "dtexted"))
(command "setvar" "dtexted" "1")
(command "_text" "j" "m" POINT H "0" title)
(command "SETVAR" "DTEXTED" SYS)
)