lisp 发凹圆角_如何用autolisp语言编程，倒图中那几个圆角，圆角半径R=2？

这样啊，今天有空帮你改。

如下：

(defun c:abc()

(setq os (getvar "osmode"))

(setvar "osmode" 0)

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

(setq L (getreal"\n输入轴肩宽度L"))

(setq D (getreal"\n输入轴直径D"))

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

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

(setq a3 (polar a2 0 (- (* L 2) 4)))

(setq a4 (polar a3 (/ pi 4) (* 2 (sqrt 2.0))))

(setq a5 (polar a4 0 (- (* L 2) 2)))

(setq a6 (polar a5 (/ pi 4) (* 2 (sqrt 2.0))))

(setq a7 (polar a6 0 L))

(setq a8 (polar a7 (/ pi -4) (* 2 (sqrt 2.0))))

(setq a9 (polar a8 0 (- L 4)))

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

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

(setq b2 (polar a2 (/ pi -2) D))

(setq b4 (polar a4 (/ pi -2) (+ D 4)))

(setq b6 (polar a6 (/