如何将复杂的内部函数名用简单的字符代替

i小小白i

之前有看过一段代码，他是这样的，比如，因为要频繁使用(vlax-ename->vla-object ***)这个函数，但因为函数名太长了，他就（setq v-e2o 'vlax-ename->vla-object)(大概是这意思，我已经忘了怎么写了)，然后每次再用到 "vlax-ename->vla-object" 时他就可以写成（v-e2o ***），缩小了代码篇幅。

现在回过头研究，发现怎么用setq定义都不行，有大神知道吗？（虽然用（defun v-e2o (ent ).....）也能实现，但现在我想尝试其他的办法）

i小小白i

发现了答案，原来使用最简单的setq就行了！
例如：

2. (setq v-e2o vlax-ename->vla-object)
   
3. (setq obj (v-e2o (car (entsel))));;顺利执行

(setq v-e2o vlax-ename->vla-object)<br /> (setq obj (v-e2o (car (entsel))));;顺利执行