请求封闭多义线修改Ｒ角

qwesxqe

2. (defun c:fff ()
   
3.   (print "选择需要倒角的多线段")
   
4.   (setq ss (ssget '((0 . "LWPOLYLINE"))))
   
5.   (princ"\n")
   
6.   (setq r (getreal " 输入半径:"))
   
7.   (setq i 0)
   
8.   (repeat (sslength ss)
   
9.     (setq sss (ssname ss i))
   
10.     (command "fillet" "p" "r" r sss )
    
11.     (setq i (1+ i))
    
12.   )
    
13.   (princ)
    
14. )

(defun c:fff ()<br />   (print "选择需要倒角的多线段")<br />   (setq ss (ssget '((0 . "LWPOLYLINE"))))<br />   (princ"\n")<br />   (setq r (getreal " 输入半径:"))<br />   (setq i 0)<br />   (repeat (sslength ss)<br />     (setq sss (ssname ss i))<br />     (command "fillet" "p" "r" r sss )<br />     (setq i (1+ i))<br />   )<br />   (princ)<br /> )