(defun c:te()
  (setq cen1 (getpoint "\n 中心点:"))
  (setq rr (getdist "\n 圆半径:"))
  (setq nn (getint "\n 等分数:"))
  (if (= nn nil) (setq nn 10))
  (setq ang (/ pi nn 0.5))
  (setq pt1 (polar cen1 0 rr))
  (setq pt2 (polar cen1 ang rr))
  (command "pline" cen1 pt1 "a" "a" 180 pt2 "")
  (command "array" (entlast) cen1 "" "p" cen1 nn "" "")
 )
