For your acaddoc.lsp
Code:
;;; loads on first use QuickFillet.lsp
(autoload "QuickFillet.lsp" '("fr" "sf" "f0"))
The lisp:
Code:
;;; QuickFillet.lsp version 1.0
;;; Created to set a temporary, a permanent, and a temporary zero
;;; FILLET radius.
;;; Copyright 01/29/01 by Tod Winn
;;;
;;; Version 1.1 05/08/01 to fix a minor bug, remove UNDO marks,
;;; and add a looping of the fillet function.
;;;
;;; Error function definition
;;;
(defun |filleterror| (|msg|)
(if (or (= |msg| "Function cancelled")
(= |msg| "quit / exit abort")
)
(princ (strcat "\nError: " |msg|))
)
(setvar "cmdecho" |cmdecho|)
(setvar "filletrad" |filletrad|)
(setq *error* |olderror|)
(princ)
)
;;; For FILLET with a temporary radius. Radius is not permanently
;;; stored.
;;;
(defun c:fr (/ |enta| |entb| |filletrad|
|lunits| |luprec| |newfilletrad|
|olderror|
)
(setq |olderror| *error*)
(setq *error* |filleterror|)
(setq |cmdecho| (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq |filletrad| (getvar "filletrad"))
(setq |lunits| (getvar "lunits"))
(setq |luprec| (getvar "luprec"))
(initget 4 "|filletrad|")
(setq |newfilletrad|
(getreal (strcat "\nEnter Temporary Fillet Radius <"
(rtos |filletrad| |lunits| |luprec|)
">: "
)
)
)
(if (= |newfilletrad| nil)
(setq |newfilletrad| |filletrad|)
)
(setvar "filletrad" |newfilletrad|)
(setq |enta| (entsel "\nSelect first object: "))
(redraw (car |enta|) 3)
(while (/= |enta| nil)
(setq |entb| (entsel "\nSelect second object: "))
(command "fillet" |enta| |entb|)
(setq |enta| (entsel "\nSelect first object <Return to Exit>: "))
(redraw (car |enta|) 3)
)
(setvar "cmdecho" |cmdecho|)
(setvar "filletrad" |filletrad|)
(setq *error* |olderror|)
(princ)
)
;;; For setting a new FILLET radius.
;;;
(defun c:sf (/ |filletrad| |lunits| |luprec| |newfilletrad| |olderror|)
(setq |olderror| *error*)
(setq *error* |filleterror|)
(setq |cmdecho| (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq |filletrad| (getvar "filletrad"))
(setq |lunits| (getvar "lunits"))
(setq |luprec| (getvar "luprec"))
(initget 4 "|filletrad|")
(setq |newfilletrad|
(getreal (strcat "\nEnter New Fillet Radius <"
(rtos |filletrad| |lunits| |luprec|)
">: "
)
)
)
(if (= |newfilletrad| nil)
(setq |newfilletrad| |filletrad|)
)
(setvar "filletrad" |newfilletrad|)
(princ (strcat "\Fillet Radius now set to: <"
(rtos |newfilletrad| |lunits| |luprec|)
"> "
)
)
(setvar "cmdecho" |cmdecho|)
(setq *error* |olderror|)
(princ)
)
;;; For setting a temporary FILLET radius of zero.
;;;
(defun c:f0 (/ |enta| |entb| |filletrad| |lunits| |luprec| |olderror|)
(setq |olderror| *error*)
(setq *error* |filleterror|)
(setq |cmdecho| (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq |filletrad| (getvar "filletrad"))
(setq |lunits| (getvar "lunits"))
(setq |luprec| (getvar "luprec"))
(setvar "filletrad" 0.00000000)
(princ (strcat "\nFillet Radius Temporarily Set To: <"
(rtos (getvar "filletrad") |lunits| |luprec|)
"> \n"
)
)
(setq |enta| (entsel "\nSelect first object: "))
(redraw (car |enta|) 3)
(while (/= |enta| nil)
(setq |entb| (entsel "\nSelect second object: "))
(command "fillet" |enta| |entb|)
(setq |enta| (entsel "\nSelect first object <Return to Exit>: "))
(redraw (car |enta|) 3)
)
(setvar "cmdecho" |cmdecho|)
(setvar "filletrad" |filletrad|)
(setq *error* |olderror|)
(princ)
)
;;; eof