i小小白i 发表于 2024-5-28 09:49:41

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

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

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

i小小白i 发表于 2024-5-29 10:11:50

发现了答案，原来使用最简单的setq就行了！
例如：
(setq v-e2o vlax-ename->vla-object)
(setq obj (v-e2o (car (entsel))));;顺利执行

muai2010 发表于 2024-7-29 15:58:55

学会了，哈哈哈
页: [1]
查看完整版本: 如何将复杂的内部函数名用简单的字符代替