如果是您想要的线段长度,则有一个与线段长度、半径和角度相关的简单计算:
段=(角度/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))
|