;|

DIMARC.LSP - Dimension an arc with length, rather than angle
(c) 1998 Tee Square Graphics

|;

(defun C:DIMARC (/ arc ent obj l)
  (setq cmd (getvar "cmdecho")
        arc (entsel "\nPick ARC to dimension: ")
        ent (entget (car arc))
        obj (cdr (assoc 0 ent)))
  (if (= obj "ARC")
    (progn
      (setvar "cmdecho" 1)
      (setq l (* (cdr (assoc 40 ent))
                 (if (minusp (setq l (- (cdr (assoc 51 ent))
                                        (cdr (assoc 50 ent)))))
                   (+ pi pi l) l)))
      (command "_.dimangular" arc "_t" (rtos l))
      (while (= (logand (getvar "cmdactive") 1) 1)
        (command pause))
      (setvar "cmdecho" cmd))
    (alert "Object selected is not an ARC."))
  (princ)
)