[编程交流] 具有100值的自动圆角

 
;; written by ASMI
;; edited 2/10/13 
(defun c:mulf(/ frad sset)
 (if(not filrad)
   (setq filrad 100.0)
   )
 (setq frad filrad
filrad (getdist
  (strcat "\nSpecify fillet radius <"
   (rtos filrad)
   ">: "))
)
 (if(not filrad)
   (setq filrad frad)
   )
 
 (princ "\n<<< Select polylines to fillet >>> ")
 (if
   (setq sset
    (ssget "_X" '((0 . "LWPOLYLINE");|(70 . 1)|)); commented to select only closed plines
   (progn
     
     (setvar "FILLETRAD" filrad)
     (command "_.undo" "_be")
     (setvar "CMDECHO" 0)
     (command "_zoom" "_E")
     (foreach x(vl-remove-if 'listp
                    (mapcar 'cadr(ssnamex sset)))
(vl-catch-all-apply '(lambda()
 (command "_.fillet" "_p"(list x(cdr(assoc 10(entget x)))))))
 ); end foreach
     (command "_zoom" "_P")
     (command "_.undo" "_e")
     (setvar "CMDECHO" 1)
     ); end progn
   ); end if
 (princ)
 ); end of c:mulf