段=(角度/180)*pi*半径
在LISP中:
(defun c:ark (/ ip rad seg ang)
(if (and (setq ip (getpoint "\nSpecify Center of Arc: ")
rad (getpoint ip "\nSpecify Start Point of Arc: ")
seg (getdist rad "\nSpecify Segment Length: ")))
(progn
(setq ang (/ (* 180.0 seg) (* pi (distance ip rad))))
(command "_arc" "_C" ip rad "_A" ang))
(princ "\n<!> Something Specified Wrong <!>"))
(princ))
使用地块线起点(距离死胡同中心35’处)和死胡同中心处的中心,使用绘制圆弧;终点的精确点并不重要。然后使用使用“总”选项的“延长”命令使弧长为144.32’。
页:
1
[2]