;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;幕匠LISP实验室;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;程序功能：求弧的长度  [备注：求弧的长度]
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(DEFUN C:MJ97 (/ sel el e r ang angs ange larc)
(setvar "CMDECHO" 0)
(setq sel (car (entsel "\nSelect ARC:<Exit> ")))
(terpri)
  (if (/= sel nil)
    (progn
      (setq el (entget sel))
      (setq e (assoc 0 el))
      (if (= "ARC" (cdr e))
        (progn
          (setq r (assoc 40 el))
          (setq r (cdr r))
          (setq angs (assoc 50 el))
          (setq angs (cdr angs))
          (setq ange (assoc 51 el))
          (setq ange (cdr ange))
          (setq ang (- ange angs))
          (if (< ang 0) (setq ang (- (* 2 pi) (abs ang))))
          (setq larc (* r ang))
          (princ "Angle = ")(prin1 (* (/ ang pi) 180))
          (princ " , Radius = ")(prin1 r) 
          (princ "\nLength of ARC is : ") 
          (prin1 larc)
        )
        (princ "Object is not a ARC !")
      )
    )
  )
(princ)
)
