字符串函数名转换成函数调用

newer

Calling an AutoLISP function if the function name is a string?


Question
How can to call an AutoLISP function if the function name is available as a string?

Answer
This can be achieved by using (eval (read "string")).

1. 
   
2. (defun adcg_function ()
   
3.    (princ "\nDeveloper Consulting Group")
   
4. )
   
5. 
   
6. (defun c:test ()
   
7.    (setq fname "adcg_function")
   
8.    (eval (read fname))
   
9. )
   
10. 
    
11. (prompt "\nCommand : test defined")
    
12. (princ)
    

<br /> (defun adcg_function ()<br />    (princ "\nDeveloper Consulting Group")<br /> )<br /> <br /> (defun c:test ()<br />    (setq fname "adcg_function")<br />    (eval (read fname))<br /> )<br /> <br /> (prompt "\nCommand : test defined")<br /> (princ)<br />

xvjiex

感谢分享字符串函数名转换成函数调用