(defun c:dk()   (setq en    (entget(car(entsel)))             pnt1 (cdr(assoc 10 en))             pnt2 (cdr(assoc 11 en))            stn   (ssget "C" pnt1 pnt2(list(cons 0 "line")))             stnl  (sslength stn)             n     0   )   (repeat stnl       (setq stne(ssname stn n)                 stnen(entget stne)                pnt3(cdr(assoc 10 stnen))                 pnt4(cdr(assoc 11 stnen))                intpnt(inters pnt1 pnt2 pnt3 pnt4)       )       (command "break" stne  "non"intpnt "non"intpnt)          (setq n(1+ n))   ))

Why should a CAD tech use this routine?