绘制图形需要计算的话,想要快速绘制出来的话,需要一些小插件。已知弧长及弧度绘制圆弧的话,加载一个小插件就可以快速绘制了。
;弧长及弧度绘制圆弧
(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)
(< c51 (* pi 2))
(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】
不需要,只要你知道弧与角度之间的关系,要画是很容易的。我的百度空间里有解答。
不用了
不用