I got tired of trying to figure all that out ronjonp (WAY above my head), SO I went a little different route. this is what I have now and it actually works. . . . well for the most part. It trims the lines correctly and inserts the block, the only problem it has is the blocks are just a little off (yeah I know just like me), instead of it inserting the blocks at a rotation of 0 and 90 it inserts them at 359.51 and 87.63 I'm cornfused
(DEFUN C:fe2 ()
(setq line1 (entsel "\nPick first line: "))
(setq line2 (entsel "\nPick Second line: "))
(cdr (assoc 0 (setq el1 (entget (car line1)))))
(cdr (assoc 0 (setq el2 (entget (car line2)))))
(setq p1 (cdr (assoc 10 el1))
p2 (cdr (assoc 11 el1))
p3 (cdr (assoc 10 el2))
p4 (cdr (assoc 11 el2))
ip (inters p1 p2 p3 p4 nil)
ang1 (* 180.0 (/ (angle ip (cadr line1)) pi))
ang2 (* 180.0 (/ (angle ip (cadr line2)) pi))
)
(setvar 'clayer (cdr (assoc 8 (entget (car line1)))))
(command "-insert"
"TIC"
"s"
(getvar 'dimscale)
ip
ang1
)
(command "-insert"
"TIC"
"s"
(getvar 'dimscale)
ip
ang2
)
(command "_.fillet" line1 line2)
(command "layerp")
(princ)
)
including a dwg that shows what it is doing
<edit: code tags added by CAB>