如何将字符串定义成函数名？

pxt2015 · 发表于 2017-5-5 06:40:08

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如何用字符串"abc"，定义成函数名，去执行已知lisp？

类似于：（defun c:abc（） …）
需要效果：输入abc，执行已知lisp

xinxirong · 发表于 2017-5-5 06:53:40

vlax-add-cmd

newer · 发表于 2017-5-5 08:11:09

http://bbs.xdcad.net/thread-678473-1-1.html

csharp · 发表于 2017-5-5 09:12:40

defun c:xxx 中xxx在命令行使用和command是一样的，只有在alisp语句中不能使用(command "xxx")也不能有参数，需要用(c:xxx)调用

pxt2015 · 发表于 2017-5-5 13:59:29

本帖最后由 pxt2015 于 2017-5-5 14:01 编辑

newer 发表于 2017-5-5 08:11

(defun c:t2 ()
  (defun adcg_function () (prompt "\nhello new!"))
  (setq fname "adcg_function")
  (eval (read (strcat "(" fname ")")))
  (princ)
)
;;==============================
(setq fu_name "abc");定义变量
(defun c:xxx ()
  ......
)
;;需要用变量 fu_name 作为函数名（示例中的XXX），而不是t2
例如： command: abc
执行程序

marting · 发表于 2017-5-5 14:15:19

pxt2015 发表于 2017-5-5 13:59

你字符串变量值是  "abc" , 那你c:xxx应该定义成 c:abc才行

(defun c:t2 ()
  (defun adcg_function () (prompt "\nhello new!"))
  (setq fname "abc")
  (eval (read (strcat "(c:" fname ")")))
  (princ)
)
;;==============================

(defun c:abc ()
  (princ "\n执行到这里了，abc")
)

定义成命令c:,调用的函数名要带C:  ，比如上面的 (c:abc) 回车相当于 abc回车

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

[求助] 如何将字符串定义成函数名？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。