[求助]对cad的倒角命令进行改进

cq_qg

对cad的倒角命令进行改进

对cad的倒角命令进行改进
我用的是2006，其倒角命令比以前好用了，可以选择多个或多义线，多义线这个选项是以前没有的。很好用，可以一次性把一条多义线都倒好。但是这两个不能同时选择，即选择了多义线就不能选择多个，要是能同时选择就好了，比如选多个，又选择多义线，这样一框选就可以把所有的多义线一下子都倒角，真的要方便很多。
不知道能不能实现这样的功能？

狂刀无痕

2. ;; mf 对多个多义线倒角  by lxx.2007.8
3. (defun c:mf(/ ss i e)
4.   (command ".undo" "be")
5.   (setq ss (ssget '((0 . "*polyline")))
6. i -1)
7.   (while (setq e (ssname ss (setq i(1+ i))))
8.     (command ".fillet" "p" e)
9.   )
10.   (command ".undo" "e")
11.   (princ)
12. )

;; mf 对多个多义线倒角  by lxx.2007.8 (defun c:mf(/ ss i e)   (command ".undo" "be")   (setq ss (ssget '((0 . "*polyline"))) i -1)   (while (setq e (ssname ss (setq i(1+ i))))     (command ".fillet" "p" e)   )   (command ".undo" "e")   (princ) )