Multiple fillet - Radius 0 / Radius (value)

[Lukasvop1]

Hi guys, can you write 2 simple lisps that allow quick Multiple Fillet

(I mean without pressing enter after use command Fillet) (in 2D/3D) :

F0 - Multiple - Fillet - Radius [0]
FR - Multiple - Fillet - Radius [User_add_value]

[ВeekeeCZ]

Really, not capable of something that simple... geez

[Lukasvop1]

Yep, I wrote 2 "simple" lisps.. I know it's trivial for you.

[ВeekeeCZ]

No, it is trivial for anybody. Just basic scripting.

[Lukasvop1]

Well, but I know nothing about scripning.  That's the point..

[ВeekeeCZ]

Yeah, you know nothing. What a great excuse.

All you should need to know is that it's powerful enough and easy to learn. Period. 

[Kent1Cooper]

Since I already have something I've used for years for the zero-radius version, that is attached.  It restores whatever the current Fillet radius setting was, after it's done.

Study the functions involved in the AutoLisp Reference, and also look at (getdist), and you should be able to figure out how to adapt it for a User-input radius.

[komondormrex · Accepted solution]

hey there,

for lwplines

(defun c:f0 nil
	(mapcar '(lambda (pline) (vl-cmdf "_fillet" "_p" "_r" 0 pline))
			 (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget '((0 . "lwpolyline"))))))
	)
	(princ)
)

(defun c:fr (/ radius)
	(mapcar '(lambda (pline) (vl-cmdf "_fillet" "_p" "_r" 
									  (if (null (setq radius (if (null radius) (getreal (strcat "\nEnter radius to fillet with <" (rtos (getvar 'filletrad)) ">: ")) radius)))
										  (setq radius (getvar 'filletrad))
										  radius
									  )
									  pline
							 )
			 )
			 (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget '((0 . "lwpolyline"))))))
	)
	(princ)
)

[Lukasvop1]

Thank you

[Lukasvop1]

But something is wrong, I can't select object (Line/PLine).

[komondormrex]

you mean selecting in pairs line/pline - line/pline?

[Lukasvop1]

For example, but I can't select Line at all, and when select PLine nothing happend.. 

[ВeekeeCZ · Accepted solution]

If you keep on blindly adopting advanced codes, then you will never learn anything.

This is what I had in mind. 

(defun c:f0 ()
  (command "filletrad" 0)
  (command-s "fillet" "u")
  (princ)
  )

(defun c:fr ()
  (command "filletrad" pause)
  (command-s "fillet" "u")
  (princ)
  )

[Lukasvop1]

Yes, this is exactly I wanted.

[Lukasvop1]

But I've no idea how you get this..

[Kent1Cooper]

You may be interested in FilletMult.lsp, >here<.  It defines an F0 command that works the same as my FZ command posted earlier.  And it defines F1 through F9 commands in which you can set whatever radius values you want, if you have radii that you use regularly.  Each one lets you Fillet as many things of as many different kinds as you want, and remembers the value set in it, to offer as default on subsequent use, even after exiting AutoCAD completely.  So you can set [for example] 215.3594 as a radius into [for example] the F8 command, Fillet things with it and conclude, and next time you want to Fillet things at that radius, just type in F8, and it will offer that as the default, so you don't need to enter it again.  [And you can change the value in any of them any time by entering something instead of accepting the offered default.]  And they all restore whatever regular Fillet's radius setting was, after you use them.  You would want to keep a list somewhere of what radii you have set for each command.

[komondormrex]

well, it was intended for having at least two segments lwplines only.

check another ones.

(defun c:f0 nil
	(setvar 'filletrad 0)
	(while (null (command-s "_fillet")))
)

(defun c:fr (/ radius)
  	(if (setq radius (if (null radius) 
						(getreal (strcat "\nEnter radius to fillet with <" (rtos (getvar 'filletrad)) ">: ")) 
						(getvar 'filletrad)
					 )
		)
  		  (setvar 'filletrad radius)
	)
  	(while (null (command-s "_fillet")))
)

[ВeekeeCZ]

He will not like you for this.

(while (null (command-s ...)))

[ВeekeeCZ]

---

@Lukasvop1 wrote:

But I've no idea how you get this..

---

Of course not, because you know nothing.

https://www.youtube.com/watch?v=JS5ThafEpFs

[Lukasvop1]

Thank you, this is great starting point of scripting lisp.