有没有办法将函数名用某个变量来代替

iJero · 发表于 2020-4-18 00:15:01

比如，把command ，定义成某个变量CMDVAR，
这样可以将(command ****)替换成（CMDVAR ***）

CAD新军 · 发表于 2020-4-18 00:19:26

command是不定变量的，用autolisp写的函数不行

iJero · 发表于 2020-4-18 00:22:26

那有没有办法达到这个目的？

mahuan1279 · 发表于 2020-4-20 08:44:17

本帖最后由 mahuan1279 于 2020-4-20 08:51 编辑

(setq CMDVAR "command")(apply (read CMDVAR) (cons "circle" (list (list 0 0) 100)))万物皆可为变量。

lisperado · 发表于 2020-4-20 15:43:21

本帖最后由 lisperado 于 2020-4-20 16:04 编辑

Command: !command
#<SUBR @000000002c07d6d8 COMMAND>
函数皆为全局变量

函数名用某个变量来代替不是多此一举吗？
LISP有类似但不知行不行？

恢复从命令中撤除(vlax-remove-cmd "CMDVAR")
Command: CMDVAR
Unknown command "CMDVAR". Press F1 for help.

e2002 · 发表于 2020-4-23 10:16:03

apply 函数了解一下
另外，lisp 的函数就是list ，一样的，所以你这个函数名作为变量，本来就是有这个功能的
比如（cond ((= i 1) (setq foo '+)) (= i 2) (setrq foo '-") .....) (foo x y)...

lisperado · 发表于 2020-4-23 11:54:43

熟悉的思路

;;;备份函数
(setq olderr *error* abc *error*)

;;;重写函数
(defun *error*
;;;自定义
)

;;其它代码。。。。。

;;;恢复原状
(setq *error* olderr)
或
(setq *error* abc)

账号		自动登录	找回密码
密码			注册

[讨论] 有没有办法将函数名用某个变量来代替