yang686526

lisp倒圆角问题
www.dimcax.com
lisp倒圆角问题
刚开始学习学习lisp，遇到一个倒圆角问题，希望高手帮忙解决。
(command "fillet" "r" r p4 p2)
p2 p4为用pline命令画的两相交线上的点，r为之前已通过输入计算得到值的变量，不知道什么原因运行后无法得到圆角，希望得到帮助。

你用的是autocad2007其他版本应无问题.
gbg

我用的是autocad2004，谢谢顾老师！

不行啊，
我想验证一下怎么用这个命令，如下：
(defun c:1()
(setq r (getreal "r"))
(setq p1 (list 100 100))
(setq p2 (list 110,110))
(setq p3 (list 120,110))
(setq p4 (list 120,120))
(setq p5 (list 130,120))
(command "pline" p1 p2 p3 "")
(command "pline" p3 p4 p5 "")
(command "fillet" "r" r p2 p4)
)
想得到下图。

可是运行的时候却是这样：

如果把"r" r 去掉的话，结果又是这样，在选择要倒圆角的线段又出现问题了，还请帮忙解决......

;; (command "fillet" "r" r p2 p4)
(setvar "filletrad" r)
;; 此处需考量画面大小 ===>
(command "fillet" p2p3的中点 p3p4的中点) ;; 线段中的点

谢谢andyes的回答，问题解决了！！！

帮你顶，请高手出面解决，以便大家学习

(command "fillet" "r" r p4 p2)
p2 p4为用pline命令画的两相交线上的点，r为之前已通过输入计算得到值的变量，不知道什么原因运行后无法得到圆角，希望得到帮助。
你的问题可用(command "fillet" "r" r "fillet" p4 p2)
也可用(setvar "fillenrad" r) (command "fillet" p4 p2)
我编了一个程序倒园角：
你将dj.rar考到你的cad下解压，是一个原程序，在命令下输入(load"dj")回车就可使用，在命令下输入dj回车
，你输入要倒园角的值，同时显示上次的圆角值，不输入回车就是上次的圆角值。在倒角内给一点，再在要倒角的外给一点，程序就给你园了，
如你倒角内给一点不给，回车你用鼠标去点两边，如不选就退出。
它是循环的不倒了回两次车。
2
gbg