TO: kimsunhoi

(defun xx_1 (#aa / #a #b #c #index #d)
(setq #a(vl-string->list(vla-get-textstring #aa))
#b t
#index 0
);;setq
(repeat (length #a)
(setq #c(nth #index #a))
(if(and #b (and(> #c 47)(< #c 58)))
(setq #d(append #d (list #c) ‘(43)) #b nil)
(setq #d(append #d (list #c))
#b(if(not(and(> #c 47)(< #c 58)))t)
);;setq
);;if
(setq #index(1+ #index))
);;repeat
(vla-put-textstring #aa (vl-list->string #d))
);;defun
;;========================================
(defun c:xx (/ #a #index )
(vl-load-com)
(setq #a(ssget ‘((0 . “text”))))
(setq #index 0)
(repeat (sslength #a)
(xx_1(vlax-ename->vla-object(ssname #a #index)))
(setq #index(1+ #index))
);;repeat
(princ “Designed by nonno”)
(princ)
);;defun