字符串 转 函数名 再次请各路大侠出手相助

伪书虫86

;;主函数
(defun 主函数()(setq blockname "asdf")(获取块  blockname))

;;图块代码
(defun asdf()……)

;;通用函数
(defun 获取块(blockname / )
(if (not (read blockname)) (command-获取外部块 blockname) (apply (read blockname) nil))
)

这里又出现问题了，红色部分，blockname是字符串，通过read函数后，得到的是变量，请教怎么把字符串去掉两边的双引号变成函数名，，，就像上面的例子中，把图块名 “asdf” 变成 图块代码的函数名  asdf ，替代上面红色那部分，以达到正确运行的效果

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=112068&page=1
这个是之前的帖子，如果不理解的话，看下，可能更容易理解我说的意思，再次拜托了


问题已经在明经群里得到答案了，(eval(read blockname)) 即可，在此谢谢Z版（ZZXXQQ）和桔子

psiwjgg

照你着想法是想编个脚本吧

伪书虫86

psiwjgg 发表于 2014-11-13 20:20
照你着想法是想编个脚本吧

不懂脚本，，就是想搞个通用函数，红色那部分，要是直接写具体的某一个图块代码的函数，就可以正确的运行了，但是这样就不再是通用函数了，而是指定的某一个图块的了