Как из точки построить отрезки к вершинам полилинии ?

(defun get_vertices (obj / i verts)
  (setq i (vlax-curve-getendparam obj))
  (while (>= i 0)
    (setq verts  (cons (vlax-curve-getpointatparam obj i) verts)
    i  (- i 1)
    )
  )
 verts
) 
;|======================================================================================= 
*    Функция возвращает vla-активное пространство (лист / модель). 
*    Параметры вызова: 
*   Нет 
*    Примеры вызова: 
(_kpblc-get-active-space-obj) 
=======================================================================================|; 
(defun _kpblc-get-active-space-obj () 
   (setq    *kpblc-acad*   (vlax-get-acad-object)
            *kpblc-activedoc* (vla-get-activedocument *kpblc-acad*)    
    ) ;_ end of setq
    (if (and (zerop (vla-get-activespace *kpblc-activedoc*)) 
      (= :vlax-false (vla-get-mspace *kpblc-activedoc*)) 
      ) ;_ end of and 
    (vla-get-paperspace *kpblc-activedoc*) 
    (vla-get-modelspace *kpblc-activedoc*) 
    ) ;_ end of if 
  ) ;_ end of defun

(defun draw-polyline (lst) ; Функция отрисовки полилинии по заданному списку
;;; Преобразовываем полученный список точек в гарантированно ;;; список 3Д-точек и сразу преобразовываем его в одномерный
  (setq lst (apply 'append
                   (mapcar '(lambda (x)
                              (list (car x)
                                    (cadr x)
                                    (cond ((caddr x))
                                          (t 0.)
                                          ) ;_ end of cond
                                    ) ;_ end of list
                              ) ;_ end of lambda
                           lst
                           ) ;_ end of mapcar
                   ) ;_ end of apply
        ) ;_ end of setq
  (vla-addpolyline ; добавляем полилинию
    (_kpblc-get-active-space-obj) 
      (vlax-make-variant ; создаем вариант
      (vlax-safearray-fill ; из заполняемого безопасного массива
        (vlax-make-safearray ; создаем безопасный массив
          vlax-vbdouble ; с элементами типа Double (числа двойной точности)
          (cons 0 (1- (length lst))) ; длиной в полученный lst.
          ) ;_ end of vlax-make-safearray
        lst ; и заполняем данными из списка
        ) ;_ end of vlax-safearray-fill
      ) ;_ end of vlax-make-variant
    ) ;_ end of vla-AddPolyline
  ) ;_ end of defun

(defun c:point-poly ( / )
 (vl-load-com)
 (setq obj_one nil)
   (setq lst_sectPoly nil)
    (setq obj_one (car (entsel "\nУкажите полилинию <Отмена> : ")))
             (if (= obj_one nil) (princ "\nНичего не выбрано..."))
         (setq obj_one (vlax-ename->vla-object obj_one)) 
  (setq vert_poly (get_vertices obj_one))
 (setq pointPly (getpoint "\nУкажите точку <Отмена> : "))
  (foreach item vert_poly 
  (draw-polyline (list item  pointPly))
    )           
 )