Leaderboard

I'd approach this old school and draw it out as we would have done with pencil and paper. That part of the drawing seems to me to be double-dimensioned, (or over dimensioned if you prefer) which is always bad practice. As this thread shows because that double-dimensioning is throwing things into doubt. In my opinion the dia 4 should be marked 'ref', so I'm not using it in the construction. Instead I'm assuming that all the arcs are tangential. I admit that I could be wrong in that assumption though, and there may be a small straight section between the R22 and R10. (Or alternatively the R22 and R4 may not meet at a true tangent). Start with the R4 and the R12.5 the centres of which are given. The R22's are tangental to the R4 so from that centre draw a construction circle with R18 (22-4). The centre of the R22 will lie on that circle. Next draw a construction line parallel to the centre line and offset either side by 16 (22-12/2), Where they cross the R18 circle is the centre point of the R22 so you can now draw those in. The R10 is tangental to the R22 so from the centre of the R22 draw a construction circle of R32 (22+10). The centre of the R10 lies on that construction circle. The R10 is also tangential to the R12.5 so draw another construction circle from the centre of the R12.5 with R22.5 (12.5+10). Where the two construction circles intersect is the centre of the R10 so you can now draw those in. Hopefully that should automatically give you something like dia 4 between the two R10's. I haven't drawn it out to check (don't have cad on this laptop) but it's probably not exactly dia 4 - because it's double-dimensioned.

Give this a shot and let me know. (defun c:Test (/ int sel str ent get) ;; Tharwat - 23.Dec.2021 ;; (and (setq sel (car (entsel "\nPick Text or Mtext : "))) (or (wcmatch (cdr (assoc 0 (entget sel))) "MTEXT,TEXT") (alert "invalid object selected. Try again") ) (setq str (cdr (assoc 1 (entget sel)))) (princ (strcat "\nSelect Blocks to replace < HDV1_CONVERT > to replace < " str " > with all attributes with :" ) ) (setq int -1 sel (ssget "_:L" '((0 . "INSERT") (66 . 1) (2 . "HDV1_CONVERT")) ) ) (while (setq int (1+ int) ent (ssname sel int) ) (while (and (setq ent (entnext ent)) (not (eq (cdr (assoc 0 (setq get (entget ent)))) "SEQEND")) ) (and (wcmatch (cdr (assoc 2 get)) "DESC2,DESC3") (entmod (subst (cons 1 str) (assoc 1 get) get)) ) ) ) ) (princ) )