연장선 그려주는 리습

안녕하세요 오랜만에 글 올립니다.
하기는 교차점에 포인트 그려주는 리습인데 교차점까지 5번레이어로 연장선을 그려주는 리습으로 가능할까요

(원하는 내용) 챔퍼나 필렛사용한 경우 새로운 선(5번 레이어)으로 교차점까지의 새로운 라인 그려주는리습을 원합니다. 그림파일 올리고 싶은데 첨부가 안되네요!!

가능할것 같은데 고수님들 도움 절실합니다.

(defun c:foo (/ _bar p1 p2 p3)
  ;; RJP ≫ 2019-08-21
  (defun _bar (ename pt / ang clpt e param)
    (if (and (= ‘ename (type ename))
      (= ‘real (type (vl-catch-all-apply ‘vlax-curve-getendparam (list ename))))
      (setq clpt (vlax-curve-getclosestpointto ename pt))
      (setq param (vlax-curve-getparamatpoint ename clpt))
      (setq ang (angle ‘(0 0 0) (vlax-curve-getfirstderiv ename param)))
 )
      (list clpt (polar clpt ang 1e-8))
    )
  )
  (cond ((and (setq p1 (entsel “nPick first line: “))
       (setq p2 (entsel “nPick second line: “))
       (setq p1 (_bar (car p1) (cadr p1)))
       (setq p2 (_bar (car p2) (cadr p2)))
       (setq p3 (inters (car p1) (cadr p1) (car p2) (cadr p2) nil))
  )
  (grdraw (car p1) p3 1)
  (grdraw (car p2) p3 2)
  (entmakex (list ‘(0 . “point”) (cons 10 p3) ‘(8 . “Intersect”)))
 )
  )
  (princ)
)