(defun c:PTL () (vl-load-com)
    (setq act  (vla-get-activedocument (vlax-get-acad-object))
          ms (vla-get-modelspace act))
    (if (setq psec (ssget (list (cons 0 "POINT"))))
            (if (setq lsec (entsel "\nÇizgiyi seçin:"))
                (progn
            (setq c 0 say (sslength psec) ndata (vlax-ename->vla-object (car lsec)))
            (vla-startundomark act)
            (while (< c say)
                (setq tek (ssname psec c)
                      pn (cdr (assoc 10 (entget tek)))
                      dnok (vlax-curve-getclosestpointto ndata pn t))
                (vla-addline ms (vlax-3d-point pn)(vlax-3d-point dnok))
                (setq c (1+ c)))
            (vla-endundomark act))))(princ))