男人的诱惑 发表于 2012-4-8 17:37:10

请问能这样倒圆角吗

请问能这样倒圆角吗

byghbcx 发表于 2012-4-8 17:47:22

按自己手工画的程序编写

男人的诱惑 发表于 2012-4-8 17:53:11

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

pb.v@163.com 发表于 2013-8-21 18:19:04

顶上去，我也想要这样全角的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)
    )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

页: [1]
查看完整版本: 请问能这样倒圆角吗