软件升级到1.3版
v1.3 消除半径过大及无法倒角引起中断退出。
v1.2 支持单选亮显.支持设置倒角半径.支持回退(undo)
v1.1 消除一些bug,支持连续操作(相当于fillet的m选项)
2楼程序已更新
｛引子｝
画图的都知道，在进行fillet倒角的时候，常常遇到如下问题：
.选错物体（通常是第二个），麻烦，要undo回去，重新操作，费时费工，影响心情。
现在好了，让我们一起向undo说“不”。
;|
xxdf (动态框选倒角)
----by lxx.2007.8
功能: 动态对曲线倒角,支持 line,arc,ellipse,spline,*polyline
特点: 1.智能选线.可框选多个,自动找最靠近的曲线进行倒角.
2.动态.框选时随鼠标移动,实时动态显示倒角结果,可以放弃操作,但绝对不会倒错.
杜绝因错误倒角导致返工.
倒角半径由"filletrad" 系统变量决定.也可先输入fillet命令,选r,调整半径.
返回: nil.倒角过程中命令行无不爽的重复提示.
版本：
v1.3 消除半径过大及无法倒角引起中断退出。
v1.2 支持单选亮显.支持设置倒角半径.支持回退(undo)
v1.1 消除一些bug,支持连续操作(相当于fillet的m选项)
版本: v1.0
|;
补充说明：实时显示，想画错都难！
因实时显示结果，合适就点鼠标左键确定，或都没有合适的，可以回车退出or在不影响原图的变换位置点左键，hehe，想画错都难啊！！
同时，程序保留了分别点取2个曲线的功能，即如果第一点点在曲线上，下一个提问不是问框选的另一点，而是问选第二条曲线，不过，这个就没有实时显示功能了。
拟下一版本可中途响应修改倒角半径的要求，并可连续操作。
感兴趣的可到下面链接或2楼下载:
http://dreamskylxx.ys168.com/
网友答:
zml84 发表于 2007-8-2 09:34
你这个可以加个重复使用吗？没有退出命令之前可以一直倒，而不是倒一次就退出了网友答: 插件功能不错，就是老是弹框有点不好网友答: 谢谢楼上的分享网友答: 本帖最后由 作者 于 2007-8-5 5:29:24 编辑
本论坛的下载地址:
版本更新v1.3
网友答: 效果很棒!网友答: 以框选的两个角点和该点附近的对象，构成双元表进行倒角操作；若在拖动中对象改变，则撤销上一步操作，对新的对象进行倒角；
直至退出！
网友答: 有创意网友答:
;;;=========================================
;;功能：圆角 使用getpoint模拟框选
;;日期：zml84 于 2007-08-01 22:00
(defun C:FF (/ TEST PT1 PT2 A B)
;;选择对象1
(setq TEST t)
(while TEST
(if (setq PT1 (getpoint "\n选择对象:"))
(if (and
(setq PT2 (getcorner PT1 " >>>第二点:"))
(setq SS (ssget "c" PT1 PT2))
)
(progn
(setq A (list (ssname SS 0) PT1)
TEST NIL
)
(if (>= (sslength SS) 2)
(setq B (list (ssname SS 1) PT2))
)
)
)
(setq TEST NIL)
)
)
;;选择对象2
(setq TEST t)
(if (and A (= B NIL))
(while TEST
(if (setq PT1 (getpoint "\n选择对象:"))
(if (and
(setq PT2 (getcorner PT1 " >>>第二点:"))
(setq SS (ssget "c" PT1 PT2))
)
(setq B (list (ssname SS 0) PT1)
TEST NIL
)
)
(setq TEST NIL)
)
)
)
;;圆角操作
(if (and A B)
(command "_.fillet" A B)
)
(princ)
) ;_结束 defun
;;;=========================================
软件升级到1.3版
v1.3 消除半径过大及无法倒角引起中断退出。
v1.2 支持单选亮显.支持设置倒角半径.支持回退(undo)
v1.1 消除一些bug,支持连续操作(相当于fillet的m选项)
到2楼下载新程序
网友答:请问：
在lisp中，调用command执行fillet，经常会出现倒角发生错误的情况。
而前台鼠标选择不会错误（autocad2004）
这种情况是怎么改进的？