使用 tkz-euclide 查找长度

Question

我正在尝试进行这种构造，但我无法继续，因为我找不到线段 CL 的长度

这是我的代码

\documentclass{standalone} 
\usepackage{tkz-euclide}
\usetkzobj{all}

\begin{document}

\begin{tikzpicture}[scale = 1]

    \tkzDefPoint(2,2){A}
    \tkzDefPoint(0,0){B}
    \tkzDefPoint(-2,2){C}
    \tkzDefPoint(0,4){D}
    \tkzDefPoint(4,2){E}
    \tkzDrawSegments[dashed](C,A D,B)

    % circumcircle
    \tkzCircumCenter(A,B,C)\tkzGetPoint{O}
    \tkzDrawPoint(O)

    \tkzDrawCircle(O,A)
    \tkzDrawCircle[dashed](D,O)

    \tkzInterCC[R](O,2 cm)(D,2 cm) \tkzGetPoints{M1}{M2}

    \tkzDrawCircle[dashed](B,M2)

    \tkzInterCC(O,A)(D,O) \tkzGetPoints{1}{2}
    \tkzInterLC(A,E)(B,M1) \tkzGetSecondPoint{M3}

    \tkzDrawCircle[dashed](M3,D)
    \tkzInterLC(O,C)(M3,D) \tkzGetSecondPoint{L}
    \tkzDrawSegments(C,L)

    \tkzDrawPoints(A,B,C,D,E,M1,M2,M3,O,L)

    \tkzDrawSegments(O,E)

    %\tkzDrawArc[delta=10,compass style/.append style={<->},thick](C,L)(D)

    \tkzLabelPoints(A,B,C,D,E,M1,M2,M3,O,L)

\end{tikzpicture}



\end{document}

但我需要它看起来像这样，其中 D-P1 是圆规画出的弧，延伸到线段 D-P1 的长度时

任何帮助，将不胜感激。