Topic: execute a function from within another

[Mark]

Let's say I have a function loaded called 'hello' defined as;

Code: [Select]


(defun c:hello () (print "hello")(princ))

and I want to execute this function from another function (run-it), only the argument to the 'run-it' function is a string. i.e. "c:hello". How can I execute 'hello' from 'run-it'?

Example:

Code: [Select]


(defun run-it (cmd_str)
   ((read cmd_str)); does not work
   (command (read smd_str)); does not work
   )

 (run-it "c:hello")

[David Bethel]

Code: [Select]


(eval (list (read "c:hello")))


Should work.  -David

[Mark]

Thank you sir. Works like a champ!

[CAB]

Code: [Select]

(eval (substr cmd_str 3))

[JohnK]

wait a min. Why wont "(c:hello)" work?

...i dont get it.

[David Bethel]

S7

(command ...) won't evaluate a string. The paranethisis in the string are taken literally.  -David

[JohnK]

David, (sorry man) now im even more lost.

AutoCAD menu utilities loaded.
Command: (defun c:hello () (print "hello")(princ)) C:HELLO

Command: (defun tester (str)
(_> (cond ((eq str "c:hello")
(((_> (c:hello))
((_> )
(_> )
TESTER

Command: (tester "c:hello")

"hello"

Command: (tester "c:hell")
nil

[JohnK]

...Just slap me if im being to "simple minded" about all of this. I just dont see why a quick conditional wouldnt do just fine.

[David Bethel]

Se7en,

I was under the impression that Mark was looking for a generic loader based a function's string name:

Code: [Select]


(defun run (p)
   (eval (list (read p))))

(defun my_line ()
   (entmake '((0 . "LINE")(10 0 0 0)(11 1 1 0))))

(defun my_circle ()
   (entmake '((0 . "CIRCLE")(10 0 0 0)(40 . 1))))


Code: [Select]


  (initget 1 "Line Circle")
  (setq func (getkword "\nMake Line/Circle (L/C):   "))
  (run (strcat "my_" func))



Using a conditional test would require a statement for each program.

You could add some parameter testing to (run), but I haven't found a sure fired way to determtine if the parameter is a valid AutoLisp call

Code: [Select]


(and (= (type p) 'STR)
       (= (type (eval (list (read p))) 'LIST)
       (member p (atoms-family 1))
;.....
       (eval (list (read p))))

)



-David

[JohnK]

Ahhh! I get cha now!

Well in that case: (eval (list (read "c:hello")))