既可以框选倒角，也可以点选倒角LSP，希望大师们完善下

左怀政

我在网站上找到一个可以倒角的LSP  ，可以框选（两根直线，一起框;也可以一根一根的框） 可以点选（选择一根直线，再选择1跟直线）   但是对多段线就不能框选，点选了 ，希望大师们能解决这个问题       可以达到既可以框选也可以点选，不管是直线还是多段线都可以      对T字形的线，还是十字形的线都能倒角  而且框选还是点选倒角保留的部分即是自己想要的    下面是我在网上下载的代码 是zml84大侠搞的  
;;;=========================================
;;功能：圆角 框选
;;日期：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

上面代码只能框选
下面的可以框选可以点选 但是都是对多段线不起作用 希望大侠们继续完善这个命令
(defun C:FF (/ SS)
    (if        (and (setq SS (ssget))
             (= (sslength SS) 2)
        )
        (command "_.fillet" (ssname SS 0) (ssname SS 1))
    )
    (princ)
) ;_结束 defun

左怀政

效果如图片  图中的线不管是直线还是多段线都行

左怀政

框选或者点选的部分保留，另外一本分自动裁剪 ， 对直线还是多段线都能使用该命令

crazylsp

难点是你如何判断倒角的哪一边。

669423907

是否再加个功能，相交则修剪，不相交则倒0角

caibaobao

论坛上的大大们显显身吧，都2014啦

lingduwx

其实这个很实用，希望高手来帮忙修改一下，谢谢

yiqisese

没有设置倒角度数