FILLET lines continuous with crossing window ?

[gashaglava]

Tharwat,

 

I still have that single click to repeat the command ...

[alanjt]

Basically what pbe posted (too lazy to look)...

 

(defun c:FC2 (/)
 (command "_.fillet" "_multiple")
 (while (eq (logand 1 (getvar 'CMDACTIVE)) 1) (command "_C" pause pause))
 (princ)
)

[gashaglava]

alanjt, that's it

 

thanks !

[Tharwat]

Tharwat,

 

I still have that single click to repeat the command ...

 

Do you mean non-stop running till hit enter ?

[gashaglava]

Do you mean non-stop running till hit enter ?

 

no, it runs the command, fillets the lines using crossing window, and then ends the command ... it doesn't offer to continue selecting lines ... ?

[gashaglava]

it works with running "multiple" before "test" though ...

[pBe]

[color=blue](while[/color]
[color=blue]   (cond ((and (princ[/color]
[color=blue]                     "\n ***** Select only two lines to connect *****")[/color]
[color=blue]               (setq a (getpoint "\n First point:"))[/color]
[color=blue]               (setq b (getcorner "\n Second point:" a))[/color]
[color=blue]               (setq ss (ssget "_c" a b))[/color]
[color=blue]               (eq (sslength ss) 2)[/color]
[color=blue]               )[/color]
[color=blue]          )[/color]
[color=blue]         )[/color]
[color=slategray](progn
      (setq sn1 (ssname ss 0))
      (setq sn2 (ssname ss 1))[/color]