请问能这样倒圆角吗

男人的诱惑

请问能这样倒圆角吗

byghbcx

按自己手工画的程序编写

男人的诱惑

我是想选两条直线，像倒圆角那样做，能做的出来吗

pb.v@163.com

顶上去，我也想要这样全角的LISP，我这里有一个但不好用。
求大师改进一下。感谢了。


(DEFUN C:jdk()  ;craft 1 绘制接刀口
    (COMMAND "OSNAP" "NEA")
    (setq pot   (getpoint "\n 请输入过切直线段的第一点:"))
    (setq pot1 (getpoint "\n 请输入过切直线段的第二点:"))  
    (setq ingh (getreal "过切的深度值<0.2>:"))
    (if (equal ingh nil)(setq ingh 0.2))
    (setq ang (/ pi 2))
    (setq ang1 (angle pot pot1))
    (setq pot2 (polar pot1 (+ ang1 ang) (- 0.5 ingh)))
    (setq pot3 (polar pot2 ang1 0.5))  
    (setq pot4 (polar pot1 (- ang1 ang) ingh))
    (setq pot5 (polar pot1 (+ ang1 pi) (sqrt (- (* 0.625 ingh) (* 0.390625 ingh ingh))) ))
    (setq pot6 (polar pot5  (- ang1 ang) (* 0.375 ingh) ))
    (setq pot7 (polar pot5  (+ ang1 pi) (* 0.6 (sqrt (- (* 0.625 ingh) (* 0.390625 ingh ingh)))) ))   
    (setq pot8 (polar pot7 (- ang1 ang) 0.3))
    (setvar "osmode" 0)
    (command "pline" pot3 "a" "s" pot4 pot6 "ce" pot8 pot7 "")
   (SETVAR "OSMODE" 183)
    )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;