Set Fillet to certain Radius, then set it back to 0 afterwards

[Mr Cory]

Hay guys im trying to write a lisp the will fillet the selected line work to a given radius then reset filletrad back to 0. Here what i have got from peicing together a few lisps. Probably way off base lol

(defun c:aecfillet10 ()
(setq ss1 (ssget) ; Get selection set.
) ;_ End setq.
(command "aecfillet" "r" "10")
(SETQ FRR 1)
(WHILE FRR
(IF (< (GETVAR "filletrad") 0) (COMMAND PAUSE) (SETQ FRR NIL))
);END FRR
(princ)
) ;_ End C:aecfillet10.[ Moderator Action = ON ] What are [ CODE ] tags... (http://forums.augi.com/misc.php?do=bbcode#code) [ Moderator Action = OFF ]

[Adesu]

Hi Mr Cory,
I'm not sure this code would help you,because your code rather strange for me,especially "aecfillet",but this code

(defun c:aecfillet10 ()
(princ "\nPick a line")
(setq ss1 (ssget))
(setq ssn1 (ssname ss1 0))
(setq ss2 (ssget))
(setq ssn2 (ssname ss2 0))
;(command "aecfillet" "r" "10")
(command "_aecfillet" "r" 10 "_aecfillet" ssn1 ssn2 "")
(setq frr 1)
(while
frr
(if
(not (< (getvar "filletrad") 0))
(progn
(setvar "filletrad" 0)
(command "")
(setq frr nil)
) ; progn
) ; if
) ; while
(princ)
) ;_ end c:aecfillet10.



Hay guys im trying to write a lisp the will fillet the selected line work to a given radius then reset filletrad back to 0. Here what i have got from peicing together a few lisps. Probably way off base lol

Code:
(defun c:aecfillet10 ()
(setq ss1 (ssget) ; Get selection set.
) ;_ End setq.
(command "aecfillet" "r" "10")
(SETQ FRR 1)
(WHILE FRR
(IF (< (GETVAR "filletrad") 0) (COMMAND PAUSE) (SETQ FRR NIL))
);END FRR
(princ)
) ;_ End C:aecfillet10.

[Tom Beauford]

Hay guys im trying to write a lisp the will fillet the selected line work to a given radius then reset filletrad back to 0.FYI Not sure when they fixed it, but in the current versions of Autocad holding shift while selecting defaults the radius to 0. I used to use a routine like this in r14, but don't feel a need anymore.

[madcadder]

Here is mine.

SF - set fillet radius and forget it.
FR - set temp fillet radius, runs fillet, and resets to original radius when finished.
F0 - sets fillet radius to "0", runs fillet, and resets to original radius when finished.

[aaronic_abacus]

;One more for you Mr. Cory.
;This autolisp program first prompts for fillet radius, then resets to the original
; after the command is done.



(DEFUN C:AF (/ CMDE LP)
(PROMPT "\n*AUTOMATIC FILLET* ")
(SETQ FR (GETVAR "FILLETRAD"))
(SETQ CMDE (GETVAR "CMDECHO"))
(COMMAND "FILLET")
(SETVAR "CMDECHO" 1)
(COMMAND "R" PAUSE "FILLET")
(SETQ LP 1)
(WHILE LP
(IF (> (GETVAR "CMDACTIVE") 0) (COMMAND PAUSE) (SETQ LP NIL))
);END LP
(SETVAR "CMDECHO" CMDE)
(SETVAR "FILLETRAD" FR)
(PRINC)
);END AF

(DEFUN C:SFR ()
(PROMPT "\n*SET DEFAULT FILLET RADIUS* ")
(SETQ FR (GETREAL "\nEnter default fillet radius: "))
(SETVAR "FILLETRAD" FR)
(PRINC)
);END SFR

[Mr Cory]

Cricky! Sooo Many lol cheers everyone! Now i gita try them all :lol:

[Mr Cory]

Hi Mr Cory,
I'm not sure this code would help you,because your code rather strange for me,especially "aecfillet",but this code

Aecfillet is an ADT command, we started using it once normal fillet went bung lol

[sinc]

You mean Autodesk has a version of FILLET that isn't persnickity? Why don't they move it to Vanilla?

FILLET used to work fine in 2004, but somewhere along the line they really hosed it... :cry:

[kennet.sjoberg]

You mean Autodesk has a version of FILLET. . .
Yes, there is more commands than fillet with same name but different issues in ADT
it may depend on that there is more object types in ADT.

: ) Happy Computing !

kennet

[Mr Cory]

Yea aecfillet works not only on line work etc with fillets walls and other aec objeccts. Fillet used to do this but one day it just gave up the ghost lol

[fgiorlando]

Cricky! Sooo Many lol cheers everyone! Now i gita try them all :lol:

Mr. Cory,

DId you ever find one of these to wrok because I tries all of these and I still can not seem to get it to work. I had a very simple routine that used to work fine in 2002 but now I can not seem to get any routine that fillets at zero and reset the filler radius back to what it was, to work consistently. I know you can hold down the shift key but the old way was still faster.

[Mr Cory]

To be honest i had got side tracked and never got around to having a proper look.

Just went through the ones i had and i couldnt get them to work either (sorry guys)

I think i should be able to do this myself now (copy and paste from other lisps) but im a lil bizi at the mo. Will get back to you though, less someone beats me to it... hint hint hint ;)

[Tom Beauford]

Add a seperate item for "Fillet 0". For the macro use: ^C^C^P_chamfer;T;T;D;0;0
Use Fillet_0.bmp for the image.

Same result as using fillet with a radius of 0, but does not affect the radius value.