CAD drawing clean out using lisp

(defun c:info(/ ent dxf)
(setq ent (entsel))
(setq dxf (entget (car ent)))
)
(defun c:iii(/ ent dxf)
(setq ent (entsel))
(setq dxf (entget (car ent)))
)
(defun c:ss()
(command "ltscale" "10")
(command "layereval" "0")
(command "psltscale" "1")
(command "msltscale" "1")
(command "celtscale" "1")
(command "visretain" "1")
(command "backgroundplot" "0")
(command "cannoscale")
)
(defun c:v0()
(command "visretain" "0")
)
(defun c:v1()
(command "visretain" "1")
)
(defun c:ll(/ e n i j x1 y1 x2 y2 xC1 yC1 xC2 yC2)
(setq e (ssget '((0 . "LINE"))) ;??? ??
n (sslength e) ;?? ????? ?? ??
i 0 ;???? '0'?? ??
j 0 ;???? '0'?? ??
)
(repeat n
(setq var (entget (ssname e i)) ;???? DXF ????
start (assoc 10 var) ;???? ??
x1 (cadr start) ;x1? ?
y1 (caddr start) ;y1? ?
xC1 (rtos X1 2 0) ;x1? ?
yC1 (rtos Y1 2 0) ;y1? ?
)
(setq chg (subst (list 10 (atoi xC1) (atoi yC1) 0.0) start var))
(entmod chg)
(setq i (1+ i)) ;???? +1
)
(repeat n
(setq var (entget (ssname e j)) ;???? DXF ????
end (assoc 11 var) ;??? ??
x2 (cadr end) ;x2? ?
y2 (caddr end) ;y2? ?
xC2 (rtos X2 2 0) ;x2? ?
yC2 (rtos Y2 2 0) ;y2? ?
)
(setq chg (subst (list 11 (atoi xC2) (atoi yC2) 0.0) end var))
(entmod chg)
(setq j (1+ j)) ;???? +1
)
(princ)
)
(defun c:bb(/ e n i j x1 y1 x2 y2 xC1 yC1 xC2 yC2)
(setq e (ssget '((0 . "INSERT"))) ;??? ??
n (sslength e) ;?? ????? ?? ??
i 0 ;???? '0'?? ??
j 0 ;???? '0'?? ??
)
(repeat n
(setq var (entget (ssname e i)) ;???? DXF ????
start (assoc 10 var) ;???? ??
x1 (cadr start) ;x1? ?
y1 (caddr start) ;y1? ?
xC1 (rtos X1 2 0) ;x1? ?
yC1 (rtos Y1 2 0) ;y1? ?
)
(setq chg (subst (list 10 (atoi xC1) (atoi yC1) 0.0) start var))
(entmod chg)
(setq i (1+ i)) ;???? +1
)
(princ)
)