Hàm SPLIT và UBOUND trong AutoLisp

Copy đoạn code bên dưới :

(defun Split(strg find)
(vl-load-com)
(setq len (strlen find) lis nil)
(while (setq num (vl-string-search find strg))
(setq lis (append lis (list(substr strg 1 num)))
      strg(substr strg (+ num len 1))
      num (vl-string-search find strg)))
(append lis (list strg)))

(defun Uboun(lisd)
(setq i 0)
(while (nth i lisd)
(setq i(1+ i))) i)

Cộng đồng thư viện hàm Lisp di động - Thư viện hàm Lisp lập trình sẵn - Tải về và sử dụng