求教：如何根据字符内容执行相应函数
www.dimcax.com
求教：如何根据字符内容执行相应函数
如题：如何根据所读取到的变量值（字符）执行与其内容同名的子程序？哪位前辈知道，请赐教！谢谢
d
(defun myprinc () (princ "\n test only")(princ))
(set 'test (eval (read "myprinc")))
(test)
d
(eval(read(strcat "(" (cdr(assoc 1 (entget(car(entsel))))) ")")))
踅摸
d
关键的一个：eval
d
非常感谢各位朋友！！！问题已解决，相关代码奉上：
......
......
(setq 3ddh (r-xls 1 24));读取excel表中的第行第列的字符内容
(if (not (eval (read (strcat "plsc-3d-" 3ddh)))
)
(alert "该函数尚未定义")
(eval (read (strcat "(plsc-3d-" 3ddh ")")));调用与3ddh相应的函数
)
......
......
取之于明，用之于明
d