;;----------------------------------------------------------------------------;;
;; Copy Block from Insertion Point to Polylines Vertices
(defun C:Copy2Poly (/ blk BP SS cords)
  (setvar 'cmdecho 0)
  (if (setq blk (car (entsel "\nSelect Block to Copy")))
    (progn
      (redraw blk 3)
      (setq BP (cdr (assoc 10 (entget blk))))
      (if (setq SS (ssget ":L" '((0 . "*POLYLINE"))))
        (foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
          (setq z (cdr (assoc 38 (setq x (entget ent))))) ;elevation of 2d polyline
          (foreach pt (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) x))
            (setq pt (append pt (list z))) ;adds elevation of 2d polyline to point
            (command "_.Copy" blk "" "_non" BP "_non" pt)
          )
        )
      )
    )
    (prompt "\nNothing Selected try again")
  )
  (redraw blk 4)
  (setvar 'cmdecho 1)
  (princ)
)