如何获得函数#039；s

crazy_precisian · 发表于 2022-7-6 11:26:35

你好

我需要将当前函数的名称（由defun定义）转换为字符串，并在函数中使用此字符串。。。有可能吗？

谢谢你的回答！

Lee Mac · 发表于 2022-7-6 11:34:07

使用atoms家族是我现在唯一能想到的事情——你为什么要这么做？

jammie · 发表于 2022-7-6 11:36:28

你能发布一个你想要实现的示例代码吗？

jammie · 发表于 2022-7-6 11:41:27

一些使用反应堆的东西，但我不确定这是否是你想要的。。

关键是它只返回初始函数名

copy


;Create a command reactor to watch for lisp functions
(vlr-lisp-reactor nil '((:vlr-lispWillStart . storeFunctionName)))
;Store the command name in a global variable called *currentLispFunction*
(defun storeFunctionName (<Reactor> <Command>)
  
(setq *currentLispFunction*  (car <Command>))
 )
(defun c:test ()
 (alert  (strcat "\nFunction [" *currentLispFunction* "] started..."))
   )

crazy_precisian · 发表于 2022-7-6 11:45:48

我只是AutoLISP的初学者，我认为有比反应堆更简单的方法。也许我会尝试找到不同的解决方案。。。

非常感谢您的回答！

Lee Mac · 发表于 2022-7-6 11:51:51

只是好奇，你想实现什么？

David Bethel · 发表于 2022-7-6 11:58:13

以下是我所拥有的：

copy


[color=#8b4513];converts a quoted symbol to a string[/color]
[b][color=BLACK]([/color][/b]defun symstr [b][color=FUCHSIA]([/color][/b]name[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]if [b][color=NAVY]([/color][/b]= [b][color=MAROON]([/color][/b]type name[b][color=MAROON])[/color][/b] 'SYM[b][color=NAVY])[/color][/b]
   [b][color=NAVY]([/color][/b]
     [b][color=MAROON]([/color][/b]list
       [b][color=GREEN]([/color][/b]if [b][color=BLUE]([/color][/b]boundp name[b][color=BLUE])[/color][/b]
         [b][color=BLUE]([/color][/b]cons '/ [b][color=RED]([/color][/b]atoms-family 0[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
         [b][color=BLUE]([/color][/b]cons '/ [b][color=RED]([/color][/b]cons name [b][color=PURPLE]([/color][/b]atoms-family 0[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
       [b][color=GREEN])[/color][/b]
       [b][color=GREEN]([/color][/b]list setq name 0[b][color=GREEN])[/color][/b]
       [b][color=GREEN]([/color][/b]list car [b][color=BLUE]([/color][/b]list atoms-family 1[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
     [b][color=MAROON])[/color][/b]
   [b][color=NAVY])[/color][/b]
   nil
 [b][color=FUCHSIA])[/color][/b]
[b][color=BLACK])[/color][/b]