Lisp in a lisp...

I have an existing routine called XX. How can I create a new routine, called FF that does the following:

(defun C:FF ()
(command "._fillet" "r" "0")
(command "._fillet")
***Now I want to run the XX routine***
(prince)
)

Thanks!

 

Assuming you defun'd the XX function as C:XX, it's

(defun C:FF ()
(command "._fillet" "r" "0")
(command "._fillet")
;;;The following 3 lines allow the fillet command to finish:
(while (= (logand (getvar "cmdactive") 1) 1)
(command pause)
);;while
;;;The following calls the XX function:
(c:xx)
(princ)
)
___

 

Assuming that there's a (c:xx) function in a file xx.lsp, available on the search path:

(defun C:FF ()
(command "._fillet" "r" "0")
(command "._fillet")
(if (not c:xx)
(load "xx.lsp"))
(c:xx)
(princ)
)

 

Paul, good catch on finishing the fillet command.

 

yeah that's the problem I was running into. I kept skipping right to the XX routine. Thanks guys! Now to try it....