（XD::POLYLINE:IsCircArc）判断多段线是否是圆或弧

newer

(defun XD::POLYLINE:IsCircArc (e / crvlst ge len ret)
    (if (and
          (setq ge (xdge::constructor e))
          (= (xdge::type ge) "kCompositeCrv3d")
        )
      (progn
        (setq crvlst (xdge::getpropertyvalue ge "getcurvelist")
              len (length crvlst)
        )
        (cond
          ((and
             (= len 2)
             (= (xdge::type (car crvlst)) "kCircArc3d")
             (= (xdge::type (cadr crvlst)) "kCircArc3d")
             (equal (abs (xdge::getpropertyvalue (car crvlst) "bulge")) 1.0
                    1e-3
             )
             (equal (abs (xdge::getpropertyvalue (cadr crvlst) "bulge")) 1.0
                    1e-3
             )
           )
            (setq ret (xdge::getpropertyvalue (car crvlst) "center" "radius"))
          )
          ((and
             (= len 1)
             (= (xdge::type (car crvlst)) "kCircArc3d")
           )
            (setq ret (xdge::getpropertyvalue (car crvlst) "center" "radius"
                                              "startang" "endang"
                      )
            )
          )
        )
      )
    )
    (xdge::free ge crvlst)
    ret
  )

wenyish

可不可以搞成一个专辑，分门别类的介绍一些功能。