繪製圖形需要計算的話，想要快速繪製出來的話，需要一些小外掛。已知弧長及弧度繪製圓弧的話，載入一個小外掛就可以快速繪製了。

;弧長及弧度繪製圓弧

(defun C:tes ( / &dis1 &p1 c40 c51)

(if (and

(setq &dis1 (getdist "\n請輸入弧長"))

(> &dis1 0)

(setq c51 (getdist (strcat "\n請輸入0到" (rtos (* pi 2)) "弧度值")))

(> c51 0)

(

(setq &p1 (getpoint "\n請指定圓弧的圓心"))

)

(progn

(setq c40 (/ &dis1 c51));計算出半徑

(entmake (list "(0 . "ARC") (cons 10 &p1) (cons 40 c40) "(50 . 0) (cons 51 c51)));繪製圓弧

)

)

(princ)

);複製到記事本,以【.lsp】為字尾命名,開啟CAD，autolisp載入，命令【TES】