(defun C:BKG (/	*ERROR*	ar OS OL LINE1 LN P1 P2	AN LINE2 P3 P4 IN BPT1 PBT2)
 (setvar "CMDECHO" 0)
 (setq OS (getvar "osmode"))
 (setvar "osmode" 0)
 (princ "\nDistance of gap <")
 (if (null ar1)
  (setq ar1 0.00)
 )
 (princ ar1)
 (setq ar (getdist ">: "))		; <~~~~~~~~~~~~~~~~~~~~~~ Set your size of gap here!

 (if (= ar nil)
  (setq ar ar1)
 )

 (setq ar1 ar)

 (setq OL (getvar "clayer"))

 (princ "\nSelect lines to break: ")
 (setq gru (ssget '((0 . "LINE"))))

 (if gru
  (progn
   (princ "\nSelect lines to cross over: ")
   (while (not (setq gru2 (ssget '((0 . "LINE")))))
    (princ "\nNull Selection please try again: ")
   )

   (repeat (setq indexx(sslength gru2))
    (setq LINE2 (entget (ssname gru2 (setq indexx(1- indexx)))))
    (setq P3 (trans (cdr (assoc 10 LINE2)) 0 1))
    (setq P4 (trans (cdr (assoc 11 LINE2)) 0 1))

    (setq index 0)
    (while (< index (sslength gru))
     (setq LINE1 (entget (ssname gru index)))
     (setq LN (cdr (assoc 8 LINE1)))
     (setq P1 (trans (cdr (assoc 10 LINE1)) 0 1))
     (setq P2 (trans (cdr (assoc 11 LINE1)) 0 1))
     (setq AN (angle P1 P2))
     (setq IN (inters P1 P2 P3 P4))
     (if IN
      (progn
       (setq BPT1 (polar IN AN (* AR 1)))
       (setq BPT2 (polar IN (+ AN pi) (* AR 1)))
       (command "_break" (ssname gru index) BPT1 BPT2)
       (ssadd (entlast) gru)
      ) 
     ) 
     (setq index(1+ index))
    )

   )
   
  )
 ) 

 (setvar "osmode" 1)
 (setq *error* nil)
 (princ)
)

;;; vers.2 - Selezione anche per lwpolyline e archi

(defun C:BKG (/	ar OS P1 P2 AN P3 P4 IN BPT1 PBT2)
 (setvar "CMDECHO" 0)
 (setq OS (getvar "osmode"))
 (setvar "osmode" 0)
 (princ "\nDistance of gap <")
 (if (null ar1)
  (setq ar1 0.00)
 )
 (princ ar1)
 (setq ar (getdist ">: "))		; <~~~~~~~~~~~~~~~~~~~~~~ Set your size of gap here!

 (if (= ar nil)
  (setq ar ar1)
 )

 (setq ar1 ar)

 (princ "\nSelect entities to break: ")
 (setq gru (ssget '((0 . "LINE,LWPOLYLINE,ARC"))))

 (if gru
  (progn
   (princ "\nSelect entities to cross over: ")
   (while (not (setq gru2 (ssget '((0 . "LINE,LWPOLYLINE,ARC")))))
    (princ "\nNull Selection please try again: ")
   )

   (repeat (setq indexx(sslength gru2))
    (setq entita (vlax-ename->vla-object(ssname gru2 (setq indexx(1- indexx)))))
    
    (setq index 0)
    (while (< index (sslength gru))
     (setq inter(vla-IntersectWith entita (vlax-ename->vla-object(ssname gru index)) acExtendNone))

     (if (ver-variant inter)
      (progn
       (setq distanzainter(vlax-curve-getDistAtPoint (vlax-ename->vla-object(ssname gru index)) (car(variant2lista inter 3))))
       (setq BTP1(vlax-curve-getPointAtDist (vlax-ename->vla-object(ssname gru index)) (- distanzainter ar))
	     BTP2(vlax-curve-getPointAtDist (vlax-ename->vla-object(ssname gru index)) (+ distanzainter ar))
       )
       (command "_BREAK" (ssname gru index) btp1 btp2)
       (ssadd (entlast) gru)
      ) 
     )
     
     (setq index(1+ index))
    )

   )
   
  )
 ) 

 (setvar "osmode" 1)
 (setq *error* nil)
 (princ)
)

(princ "\nDigitare BKG per far partire il LISP")
(princ "\n      ***** vers.2 by Terminator *****")
(princ)
     
;;; ***************************FUNZIONE VER-VARIANT*********************************
;;; Verifica che un variant non abbia contenuto nil
(defun ver-variant (listavariant / verifica)
 (setq verifica (vl-catch-all-apply 'vlax-safearray->list (list (vlax-variant-value listavariant))))
 (if (= (type verifica) 'LIST)
  T
  nil
 )
)

;;; ***************************FUNZIONE VARIANT2LISTA*******************************
;;; Trasforma un variant in una lista a gruppi con numero elementi per gruppo
(defun variant2lista (listavariant numero / listaparz listafin)
 (setq listaparz '()
       listafin   '()
 )
 (foreach elemento (vlax-safearray->list (vlax-variant-value listavariant))
  (setq listaparz (append listaparz (list elemento)))
  (if (= (length listaparz) numero)
   (setq listafin  (append listafin (list listaparz))
	 listaparz '()
   )
  )
 )
 listafin
)