Auto fillet with 100 value

[sajid]

Any body knows how to Auto fillet existing polyline in drawing.Or new pline also, when i end the polyline it should fillet automatically 100 value....i got many post from different forums but could be helpful for me.plz help.

Edited February 10, 2013 by sajid
typing mistake

[fixo]

Here you go

 
;; 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 

[sajid]

thanks fixo......this routine is not fillet all pline .i want to fillet all lines automatically .is it possible?

[fixo]

Upload small screenshot picture to see your drawing piece

I'm not sure I understand your problem right

[neophoible]

Fillet will already completely fillet a polyline in one go. Enter “FILLET R(adius) 100 P(olyline)” then select your polyline and you’re done. It would be a fairly simple matter to write an AutoLISP routine to make it loop if you wanted to process several polylines at once. You might be able to set up smth using the PLINE command to make fillets as you go, but it doesn’t sound like a very practical thing to do. What is your application for this?

[fixo]

Agreed completely, it's a good point