功能已取消

anishtain4 · 发表于 2022-7-6 06:41:01

在一个大的lisp文件中，我尝试使用dtext命令，如下所示：

(vl-cmdf "dtext" "m" mypt myht rog )

当我在控制台中尝试它时，它很好，但当我调试lisp文件时，这一行会触发带有“函数取消消息”的*错误*。我看了所有的论点，它们是这样说的：

copy

(setq mypt '(3.2 4.8 0.0) myht 0.04 rog "0")

我在使用（command）时也遇到了类似的问题，但当我将其更改为（vl cmdf）时，效果很好。有没有人遇到过这样的问题？

PS：谷歌搜索反应堆结果

BlackBox · 发表于 2022-7-6 06:45:06

你是在反应堆代码中调用这个命令还是其他命令？

anishtain4 · 发表于 2022-7-6 06:52:16

我根本没有反应堆，我只是提到谷歌搜索导致反应堆问题，这不是我的问题。

代码变得如此庞大，需要一些文件才能运行，这就是为什么我不共享它。

Lee Mac · 发表于 2022-7-6 06:55:09

试试这个：

copy

(command "_.text" "_non" mypt)
(if (zerop (cdr (assoc 40 (tblsearch "STYLE" (getvar 'textstyle)))))
   (command myht)
)
(command rog)

anishtain4 · 发表于 2022-7-6 06:58:45

相同结果：功能取消

pBe · 发表于 2022-7-6 07:00:26

这行后面是什么？

copy

(vl-cmdf "dtext" "m" mypt myht rog )

正如你所说的“它工作得很好”，所以这是另一条产生错误的线。

anishtain4 · 发表于 2022-7-6 07:03:39

我把整个项目简化成了一些文件。在c:中提取文件夹并加载它们。在kateb的第119行放置一个断点。lsp然后运行程序。请键入第一行（可能这对你来说没有意义，因为它不是英语）。按“continue”（继续）重复循环并返回同一行，现在函数（命令“dtext”“m”mypt myht rog））触发*错误*，并显示消息“function cancelled”（函数已取消）。

我检查了所有的变量，看看我是否在其他地方错误地更改了什么？但没有线索。

你知道怎么了吗？
共享框架。拉链