(defun c:b1 (/ ns bn dc n) (vl-load-com)
  (if (setq ns (ssget '((0 . "*polyline"))))
    (if (/= (setq bn (getstring T "\nBlock name:")) "")
      (if (tblobjname "block" bn)
        (progn
          (vla-startundomark (setq dc (vla-get-activedocument (vlax-get-acad-object))))
          (repeat (setq n (sslength ns))
            (foreach m (mapcar 'cdr (vl-remove-if '(lambda(a) (/= (car a) 10)) (entget
                (ssname ns (setq n (1- n))))))
              (entmake (list '(0 . "insert") (cons 2 bn) (cons 10 m))))
          ) (vla-endundomark dc)
        ) (alert (strcat "ERROR\n" """ bn """ " was not found"))
      )
    )
  ) (princ)
)


(defun c:b2 (/ ns bn dc k m) (vl-load-com)
  (if (ssget '((0 . "*polyline")))
    (if (/= (setq bn (getstring T "\nBlock name:")) "")
      (if (tblobjname "block" bn)
        (progn
          (vla-startundomark (setq dc (vla-get-activedocument (vlax-get-acad-object))))
          (vlax-for n (vla-get-activeselectionset dc)
            (setq k -1 m (fix (vlax-curve-getendparam n)))
            (repeat (if (= (cdr (assoc 70 (entget (vlax-vla-object->ename n)))) 1) m
                (1+ m))
              (vla-InsertBlock (vla-get-modelspace dc) (vlax-3d-point
                (vlax-curve-getpointatparam n (setq k (1+ k)))) bn 1 1 1 0))
          ) (vla-endundomark dc)
        ) (alert (strcat "ERROR\n" """ bn """ " was not found"))
      )
    )
  ) (princ)
)

(defun c:b3 (/ ns bn dc n m ls en) (vl-load-com)
  (defun m1 (p1 p2 /) (entmake (list '(0 . "insert") (cons 2 bn) (cons 10 p1)
    (cons 50 p2))))
  (if (setq ns (ssget '((0 . "*polyline"))))
    (if (/= (setq bn (getstring T "\nBlock name:")) "")
      (if (tblobjname "block" bn)
        (progn
          (vla-startundomark (setq dc (vla-get-activedocument (vlax-get-acad-object))))
          (repeat (setq n (sslength ns)) (setq m -1)
            (repeat (1- (length (setq ls (mapcar 'cdr (vl-remove-if '(lambda(a)
                (/= (car a) 10)) (setq en (entget (ssname ns (setq n (1- n))))))))))
              (m1 (nth (setq m (1+ m)) ls) (angle (nth m ls) (nth (1+ m) ls))))
            (m1 (last ls) (if (= (cdr (assoc 70 en)) 0) (angle (nth m ls) (last ls))
              (angle (last ls) (car ls))))
          ) (vla-endundomark dc)
        ) (alert (strcat "ERROR\n" """ bn """ " was not found"))
      )
    )
  ) (princ)
)