(defun c:abc ()
(setq a (cdr (assoc 1 (entget (ssname (ssget ":s") 0))))
         b (substr a 1 2)
         c (substr a (- (strlen a) 1) 2))
)

(setq a (ssget)
      a (ssname a 0)
      a (entget a)
      a (cdr (assoc 1 a))
      b (substr a 1 2)
      c (substr a (- (strlen a) 1) 2))
)

(setq a "8%%13816"
         b (substr a 1 (vl-string-search "%%138" a))
         c (substr a (+ (vl-string-search "%%138" a) 6)))

(defun c:abdd ()
  (setq h   (cdr (assoc 1 (entget (ssname (ssget ":s") 0))))
        b1  (substr h 1 (vl-string-search "%%138" h))
        c1  (substr h
              (+ (vl-string-search "%%138" h) 6)
              (- (vl-string-search "l=" h) (+ (vl-string-search "%%138" h) 5)))
        d1  (substr h (+ (vl-string-search "l=" h) 3))
        ss1 (getpoint))
  (entmake (list (cons 0 "text") (cons 10 ss1) (cons 40 10) (cons 50 0) (cons 1 b1)))
  (entmake (list (cons 0 "text") (cons 10 ss1) (cons 40 10) (cons 50 0) (cons 1 c1)))
  (entmake (list (cons 0 "text") (cons 10 ss1) (cons 40 10) (cons 50 0) (cons 1 d1)))
)