help me

[Anonymous]

Who can help me convert the LSP code to VBA code. Thanks

(defun LM:ss->ent ( ss / i l )
(if ss
(repeat (setq i (sslength ss))
(setq l (cons (ssname ss (setq i (1- i))) l))
)
)
)
(defun dxf (code e) (cdr (assoc code (entget e))))
(defun ss<dis(ss dis_iso / lst ss_sel e pt num con i ei pt_i dis)
(setq lst (LM:ss->ent ss))
(setq ss_sel (ssadd))
(while (setq e (car lst))
(setq
pt (dxf 10 e)
lst (cdr lst)
)
(foreach ei lst
(setq pt_i (dxf 10 ei))
(setq dis (distance pt pt_i))
(if (< dis dis_iso) (setq ss_sel (ssadd ei ss_sel) lst (vl-remove ei lst)))
)
)
ss_sel
)
(defun C:xoa(/ dis_iso ss)
(setq dis_iso (getdist "\nNhap khoang cach"))
(setq ss (ssget '((0 . "INSERT"))))
(command "erase" (ss<dis ss dis_iso) "")
)