将半径加入弧长尺寸

(defun c:TEst (/ _massoc obj dic arc)
  (defun _massoc (x lst)
    (if lst
      (if (eq (caar lst) x)
        (cons (car lst) (_massoc x (cdr lst)))
        (_massoc x (cdr lst))
      )
    )
  )
  (setq obj (entlast))
  (command "_.dimarc")
  (while (eq (logand 1 (getvar 'CMDACTIVE)) 1) (command PAUSE))
  (if (and (not (equal obj (setq obj (entlast))))
           (eq (vla-get-HasExtensionDictionary (setq obj (vlax-ename->vla-object obj))) :vlax-true)
           (setq dic (vla-getExtensionDictionary obj)
                 arc (vlax-ename->vla-object
                       (cdar (vl-remove-if-not
                               (function (lambda (x) (member (cdr (assoc 0 (entget (cdr x)))) '("ARC" "LWPOLYLINE"))))
                               (_massoc 331 (entget (vlax-vla-object->ename (vla-getobject dic "ACAD_DIMASSOC"))))
                             )
                       )
                     )
           )
      )
    (vla-put-textoverride
      obj
      (strcat "L= \\PR= %%).Radius \\f "%lu2">%"
      )
    )
  )
  (princ)
)
(vl-load-com)
(princ)