topic Re: How to add multiple defun c: function in Visual LISP, AutoLISP and General Customization Forum

How to add multiple defun c: function

Anonymous — Fri, 09 Oct 2020 05:07:00 GMT

How to add single lisp command multiple defun c: function command

For example: (defun c:DIMX(dimension) if(not(defun c:DIMY)

Looking forward your kind support

Re: How to add multiple defun c: function

Moshe-A — Fri, 09 Oct 2020 07:25:18 GMT

@Anonymous hi,

that's very easy to do cause we are dealing with Lisp/Autolisp and every thing can be put in lists

this example will define c:dimy as a command

(setq c:dimy nil) ; just make sure c:dimy is not defined (defun c:dimx () (if (null c:dimy) (list (defun c:dimy () (prompt "\nhello from C:DIMY\n") )) (prompt "\nhello from C:DIMX\n") ) )

and this, will also invoke dimy

(setq c:dimy nil) ; disbale c:dimy (defun c:dimx () (if (null c:dimy) (eval (list (defun c:dimy () (prompt "\nhello from C:DIMY\n") ))) (prompt "\nhello from C:DIMX\n") ) )

cheers

Moshe

Re: How to add multiple defun c: function

Moshe-A — Sat, 10 Oct 2020 09:43:02 GMT

@Anonymous hi,

please close this thread but if you still did not got the answer you expected, elaborate more on the issue.

Moshe