既可以框选倒角，也可以点选倒角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
本帖最后由 左怀政 于 2013-6-23 16:33 编辑
效果如图片图中的线不管是直线还是多段线都行 框选或者点选的部分保留，另外一本分自动裁剪 ， 对直线还是多段线都能使用该命令 难点是你如何判断倒角的哪一边。 是否再加个功能，相交则修剪，不相交则倒0角 论坛上的大大们显显身吧，都2014啦 其实这个很实用，希望高手来帮忙修改一下，谢谢 没有设置倒角度数
页:
[1]