(defun c:SL ()
(setvar "cmdecho" 0)
(princ "\n         Seleziona le LINEE da spezzare...")
(setq gr-selez(ssget '((0 . "LINE"))))
(setq i 0)
(repeat (sslength gr-selez)
(setq eei(ssname gr-selez i))
(setq Pi1(cdr(assoc 10(entget eei))))
(setq Pi2(cdr(assoc 11(entget eei))))
(setq k (+ i 1))
(repeat (- (sslength gr-selez) i 1)
(setq eek(ssname gr-selez k))
(setq Pk1(cdr(assoc 10(entget eek))))
(setq Pk2(cdr(assoc 11(entget eek))))
(if (setq Pint(inters Pi1 Pi2 Pk1 Pk2))
(progn
(command "_break" (eval eei) Pint "@")
(command "_break" (eval eek) Pint "@")
)
)
(setq k(1+ k))
)
(setq i(1+ i))
)
(princ "\n Lavoro eseguito!")
(princ)
)
(princ "\n <Copyright: ing. Claudio Granuzzo> ")
(princ "\n Digitare SL per lanciare il programma.")
(princ)