Good day everyone,
     I've copied this LISP online that lets me do exactly what I need, I select two lines and it creates a point on theoretical corners, using   Co-Pilot I'm able to add circle within that point (as seen in yellow). My question is, can I also add the red phantom lines similar to the image below, I've searched online but nothing seems to work, and I'm only starting to learn about lisp. Please see the code and the image for your reference. Thanks in advance

(defun c:IN2L (/ l1 l2 intersection radius)
  (setq l1 (car (entsel "\\nFirst Line 1"))
        l2 (car (entsel "\\nSecond Line 2")))
  (setq intersection (inters (list (car (cdr (assoc 10 (entget l1))))
                                   (cadr (cdr (assoc 10 (entget l1)))))
                             (list (car (cdr (assoc 11 (entget l1))))
                                   (cadr (cdr (assoc 11 (entget l1)))))
                             (list (car (cdr (assoc 10 (entget l2))))
                                   (cadr (cdr (assoc 10 (entget l2)))))
                             (list (car (cdr (assoc 11 (entget l2))))
                                   (cadr (cdr (assoc 11 (entget l2)))))
                             nil))
  ; Calculate the circle radius based on dimension style properties
  (setq radius (* 0.5 (getvar "DIMTXT"))) ; Example: half of text height
  (command "._circle" intersection radius)
  (command "._chprop" "L" "" "lineSTyle" "DASHED" "COLOR" "50" "lineSCale" "0.01") ; Set the linestyle to "Dashed,yellow,0.01"
)