(defun c:ns (/ ss xs ls i ob n so)
  (vl-load-com)
  (if (setq ss (ssget "_I"))
    (progn
      (setq xs (ssget "_x" (list (cons 410 (getvar 'CTAB))))
    ls (ssadd)
    i  (sslength ss)
      )
      (repeat i
(setq ls (ssadd (setq ob (ssname ss (setq i (1- i)))) ls))
(repeat (setq n (sslength xs))
  (if
    (and
      (vlax-write-enabled-p
(vlax-ename->vla-object
  (setq so (ssname xs (setq n (1- n))))
)
      )
      (not
(minusp
  (cdr
    (assoc
      62
      (entget
(tblobjname "Layer" (cdr (assoc 8 (entget so))))
      )
    )
  )
)
      )
      (vlax-write-enabled-p (vlax-ename->vla-object ob))
      (VxGetIntersZ0
(vlax-ename->vla-object ob)
(vlax-ename->vla-object so)
acExtendNone
      )
    )
     (setq ls (ssadd so ls))
  )
)
      )
      (sssetfirst nil ls)
      (princ "\nSelect ")
      (princ (sslength ls))
      (princ " primitives")
    )
    (alert "Please, select primives first")
  )
  (princ)
)

;;;;
;;;; -- Function VxGetInters
;;;; Returns all intersection points between two objects.
;;;; Copyright:
;;;;    2000 MENZI ENGINEERING GmbH, Switzerland
;;;; Arguments [Type]:
;;;;   Fst = First object [VLA-OBJECT]
;;;;   Nxt = Second object [VLA-OBJECT]
;;;;   Mde = Intersection mode [INT]
;;;;         Constants:
;;;;         - acExtendNone           Does not extend either object.
;;;;         - acExtendThisEntity     Extends the Fst object.
;;;;         - acExtendOtherEntity    Extends the Nxt object.
;;;;         - acExtendBoth           Extends both objects.
;;;; Return [Type]:
;;;;   > List of points '((1.0 1.0 0.0)...[list]
;;;;   > Nil if no intersection found
;;;; Notes:
;;;;   - None
;;;;
(defun VxGetIntersZ0 (Fst Nxt Mde / IntLst PntLst Fst1 Nxt1)
  (setq Fst1 (vla-copy Fst)
Nxt1 (vla-copy Nxt)
  )
  (foreach n '(1e99 -1e99)
    (vla-move Fst1
      (vlax-3d-point (list 0 0 0))
      (vlax-3d-point (list 0 0 n))
    )
    (vla-move Nxt1
      (vlax-3d-point (list 0 0 0))
      (vlax-3d-point (list 0 0 n))
    )
  )
  (vl-catch-all-apply
    '(lambda ()
       (setq IntLst (vlax-invoke Fst1 'IntersectWith Nxt1 Mde))
     )
  )
  (vla-delete Fst1)
  (vla-delete Nxt1)
  (cond
    (IntLst
     (repeat (/ (length IntLst) 3)
       (setq PntLst (cons
      (list
(car IntLst)
(cadr IntLst)
(caddr IntLst)
      )
      PntLst
    )
     IntLst (cdddr IntLst)
       )
     )
    )
    (T nil)
  )
  (reverse PntLst)
)

(ssget "_x" (list (cons 0 "LINE,POLYLINE,ARC,CIRCLE,POINT,TEXT,MTEXT,insert")))