topic Re: Multiple fillet - Radius 0 / Radius (value) in Visual LISP, AutoLISP and General Customization Forum

Multiple fillet - Radius 0 / Radius (value)

Lukasvop1 — Wed, 10 Jan 2024 10:01:44 GMT

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]

Re: Multiple fillet - Radius 0 / Radius (value)

ВeekeeCZ — Wed, 10 Jan 2024 10:17:48 GMT

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

Re: Multiple fillet - Radius 0 / Radius (value)

Lukasvop1 — Wed, 10 Jan 2024 10:24:24 GMT

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

Re: Multiple fillet - Radius 0 / Radius (value)

ВeekeeCZ — Wed, 10 Jan 2024 10:32:20 GMT

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

Re: Multiple fillet - Radius 0 / Radius (value)

Lukasvop1 — Wed, 10 Jan 2024 10:40:18 GMT

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

Re: Multiple fillet - Radius 0 / Radius (value)

ВeekeeCZ — Wed, 10 Jan 2024 10:54:01 GMT

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.

Re: Multiple fillet - Radius 0 / Radius (value)

Kent1Cooper — Wed, 10 Jan 2024 11:29:43 GMT

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.

Re: Multiple fillet - Radius 0 / Radius (value)

komondormrex — Wed, 10 Jan 2024 12:33:25 GMT

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

Re: Multiple fillet - Radius 0 / Radius (value)

Lukasvop1 — Wed, 10 Jan 2024 12:45:05 GMT

Thank you

Re: Multiple fillet - Radius 0 / Radius (value)

Lukasvop1 — Wed, 10 Jan 2024 12:55:18 GMT

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

Re: Multiple fillet - Radius 0 / Radius (value)

komondormrex — Wed, 10 Jan 2024 13:06:39 GMT

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

Re: Multiple fillet - Radius 0 / Radius (value)

Lukasvop1 — Wed, 10 Jan 2024 13:11:43 GMT

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

Re: Multiple fillet - Radius 0 / Radius (value)

ВeekeeCZ — Wed, 10 Jan 2024 13:16:15 GMT

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

Re: Multiple fillet - Radius 0 / Radius (value)

Lukasvop1 — Wed, 10 Jan 2024 13:26:43 GMT

Yes, this is exactly I wanted.

Re: Multiple fillet - Radius 0 / Radius (value)

Lukasvop1 — Wed, 10 Jan 2024 13:38:27 GMT

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

Re: Multiple fillet - Radius 0 / Radius (value)

Kent1Cooper — Wed, 10 Jan 2024 13:45:17 GMT

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.

Re: Multiple fillet - Radius 0 / Radius (value)

komondormrex — Wed, 10 Jan 2024 14:13:22 GMT

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"))) )

Re: Multiple fillet - Radius 0 / Radius (value)

ВeekeeCZ — Wed, 10 Jan 2024 14:31:14 GMT

He will not like you for this.

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

Re: Multiple fillet - Radius 0 / Radius (value)

ВeekeeCZ — Wed, 10 Jan 2024 14:45:50 GMT

@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

Re: Multiple fillet - Radius 0 / Radius (value)

Lukasvop1 — Wed, 10 Jan 2024 16:01:34 GMT

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