[原创]（更新v1.3版） 随心所欲，向undo说不---> 动态框选倒角

无痕

软件升级到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/

 

GNJLISP

zml84 发表于 2007-8-2 09:34

你这个可以加个重复使用吗？没有退出命令之前可以一直倒，而不是倒一次就退出了

gwar

谢谢楼上的分享

纳铭m

没看懂，先收藏。

无痕

本论坛的下载地址:

版本更新v1.3

BDYCAD

效果很棒!

zml84

以框选的两个角点和该点附近的对象，构成双元表进行倒角操作；
若在拖动中对象改变，则撤销上一步操作，对新的对象进行倒角；
直至退出！

fawn_lgc

有创意

zml84

;;;=========================================
;;功能：圆角 使用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
;;;=========================================

gjh

很好的创意!

小妹丁

好用！

无痕

软件升级到1.3版
v1.3 消除半径过大及无法倒角引起中断退出。
v1.2 支持单选亮显.支持设置倒角半径.支持回退(undo)
v1.1 消除一些bug,支持连续操作(相当于fillet的m选项)

到2楼下载新程序

nonsmall

请问：

在lisp中，调用command执行fillet，经常会出现倒角发生错误的情况。

而前台鼠标选择不会错误（autocad2004）

这种情况是怎么改进的？