lisp 画双线带倒圆角_如何用autolisp语言编程，倒图中那几个圆角，圆角半径R=2？...

匿名用户

1级

2014-05-20 回答

倒角也是2吧。

好眼熟。http://zhidao.baidu.com/question/541224131?&oldq=1

程序如下：

(defun c:abc() ;定义函数

(setvar "osmode" 0)

(setq a0 (getpoint"输入基点"))

(setq L2 (getreal"\n输入L2"))

(setq D (getreal"\n输入D"))

;确定L0 、L1、 L3

(setq L0 (* 6 L2))

(setq L1 (* 2 L2))

(setq L3 (* 5 L2))

;用相对极坐标法确定点坐标

(setq a1 (polar a0 (/ pi 2) (- (/ D 2) 2)))

(setq a2 (polar a1 (/ pi 4) (* 2 (sqrt 2.0))))

(setq a3 (polar a2 0 (- L1 2)))

(setq a4 (polar a3 (/ pi 2) (/ D 20.0)))

(setq a5 (polar a4 0 (- L3 L1 L2)))

(setq a6 (polar a5 (/ pi 2) (/ D 20.0)))

(setq a7 (polar a6 0 L2))

(setq a8 (polar a7 (/ pi -2) (/ D 20.0)))

(setq a9 (polar a8 0 (- L0 L3 2)))

(setq a10 (polar a9 (/ pi -4.0) (* 2 (sqrt 2.0))))<