I'll post code here for a change, if there is some suggestions they are welcomed... (Firstly thought to do it in show stuff forum, but then not logged members can't see it - and maybe someone can not be member - sign up denied)
Now to the code - it's almost the same as fillet, only there is no radius and extension to arc, but arc is drawn from end of first entity to end of second, and there is one little trick - you have to adjust positions of connecting pieces to touch end points with connected arc... So little tweaking and that's it... Think this can be helpful routine also... Only had problems when using join command - don't know jet why - vertices are the same - tried picking and stretching with mouse and it shows single common vertex - 2 vertices...
;; Coplanar-p - Lee Mac
;; Returns T if points p1,p2,p3,p4 are coplanar
(defun LM:Coplanar
-p
( p1 p2 p3 p4
) (
1e-8
)
)
)
)
)
)
(defun marc
( c p1 p2
/ dxf10 dxf40 dxf210 dxf50 dxf51 uz
) (entmake (list '
(0 .
"ARC") '
(100 .
"AcDbEntity") '
(100 .
"AcDbCircle") (cons 10 dxf10
) (cons 40 dxf40
) (cons 210 dxf210
) '
(100 .
"AcDbArc") (cons 50 dxf50
) (cons 51 dxf51
))) )
(defun c:ca
( / e1 e2 ent1 ent2 p1 p2 par1 par2 der1 der2 p11 p22 nor n1 n2 p111 p222 c
) (setq e1
(entsel "\nPick first end point - first curve for connection with arc")) (setq e2
(entsel "\nPick second end point - second curve for connection with arc")) )
)
(alert "\nTangents on picked end points are colinear or parallel - unable to connect with arc") (if (LM:Coplanar
-p p1 p2 p11 p22
) (marc c p1 p2)
)
(alert "\nTangents on picked end points aren't coplanar - unable to connect with arc") )
)
)
)
HTH, M.R.
