(defun c:qs (/ dc tx ts rx tz n0)
            (vl-load-com)
  (if (and (setq dc (vla-get-ActiveDocument
             (vlax-get-acad-object)))
        (/= (setq tx (getstring T
              "\nEnter the text string:")) ""))
    (if (and (= (strlen tx) 1)
          (or (<= 65 (setq ts (ascii tx)) 90)
            (<= 97 ts 122)))
      (progn
        (setq ts (1- ts)
          rx '(0. 0. 0.))
        (vla-StartUndomark dc)
        (while (setq ts (1+ ts)
            ts (cond ((= ts 91) 97)
                     ((= ts 123) 65)
                     (ts))
              tz (vlax-ename->vla-object (entmakex
                   (list '(0 . "Text") (cons 1 (chr ts))
                     '(8 . "Katman") (cons 10 rx) (cons 11 rx)
                        '(40 . 5) '(71 . 0) '(72 . 1) '(73 . 2)))))
          (while (/= 3 (car (setq n0 (grread T 1 0))))
            (setq n0 (cadr n0))
            (vla-TransformBy tz
              (vlax-tmatrix
                (list (list 1 0 0 (- (car n0) (car rx)))
                  (list 0 1 0 (- (cadr n0) (cadr rx)))
                    '(0 0 1 0) '(0 0 0 1))))
            (setq rx n0)
          )
        ) (vla-EndUndomark dc)
      )
    )
  ) (prin1)
)

(defun c:qw (/ dc tx ts rx tz n0)
            (vl-load-com)
  (defun ert (/)
    (defun *error* (msg)
      (if (not (wcmatch msg
            "*Function cancelled*,*bad argument type*"))
        (princ (strcat "\nError: " msg)))
      (entdel (entlast))
    )
  )
  (ert)
  (if (and (setq dc (vla-get-ActiveDocument
             (vlax-get-acad-object)))
        (/= (setq tx (getstring T
              "\nEnter the text string:")) ""))
    (if (and (= (strlen tx) 1)
          (or (<= 65 (setq ts (ascii tx)) 90)
            (<= 97 ts 122)))
      (progn
        (setq ts (1- ts)
          rx '(0. 0. 0.))
        (vla-StartUndomark dc)
        (while (setq ts (1+ ts)
            ts (cond ((= ts 91) 97)
                     ((= ts 123) 65)
                     (ts))
              tz (vlax-ename->vla-object (entmakex
                   (list '(0 . "Text") (cons 1 (chr ts))
                     '(8 . "Katman") (cons 10 rx) (cons 11 rx)
                        '(40 . 5) '(71 . 0) '(72 . 1) '(73 . 2)))))
          (while (/= 3 (car (setq n0 (grread T 1 0))))
            (setq n0 (cadr n0))
            (vla-TransformBy tz
              (vlax-tmatrix
                (list (list 1 0 0 (- (car n0) (car rx)))
                  (list 0 1 0 (- (cadr n0) (cadr rx)))
                    '(0 0 1 0) '(0 0 0 1))))
            (setq rx n0)
          )
        ) (vla-EndUndomark dc)
      )
    )
  ) (prin1)
)