无效函数

kulfi · 发表于 2022-7-5 23:01:28

我正在调用另一个函数，我的程序运行了两年。就在今天，我观察到它在无效函数中出错。

你能告诉我有什么问题吗。

（setq X_Cor（rtos（car Ptt1）2 3））
（setq Y_Cor（rtos（cadr Ptt1）2 3））
（勾选k X\u cor Y\u cor）

（defun checkk（X_cor Y_cor/Point_Pos_X Rem_Point_txt_Right_X start_Point_txt_X checky Point_Pos_Y Rem_Point_txt_Right_Y start_txt_Y）
（setq checkx（vl字符串搜索）”x_cor））
（setq start\u Point\u txt\u x（substr x\u cor 1（strlen x\u cor）））

MSasu · 发表于 2022-7-5 23:45:48

如果这是您的全部代码，那么请注意checkk函数的定义格式不正确（即缺少右括号），并且似乎不完整-基于那些未使用的局部变量。

请编辑您的帖子并添加所需的代码标签。

neophoible · 发表于 2022-7-6 00:11:33

kulfi，您的列表中有很多变量，这表明您可能没有提供整个函数。如果你想有人帮助你，你需要提供所有的信息。

此外，您需要使用代码标记，例如：

copy


(defun checkk (X_cor Y_cor / Point_Pos_x Rem_Point_txt_Right_x  start_Point_txt_x checkx checky Point_Pos_y  Rem_Point_txt_Right_y  start_Point_txt_y)
(setq checkx (vl-string-search "." x_cor))
(setq start_Point_txt_x (substr x_cor 1 (strlen x_cor)))

[编程交流] 无效函数

发表回复

精选推荐