无效函数
我正在调用另一个函数，我的程序运行了两年。就在今天，我观察到它在无效函数中出错。你能告诉我有什么问题吗。
（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））） 如果这是您的全部代码，那么请注意checkk函数的定义格式不正确（即缺少右括号），并且似乎不完整-基于那些未使用的局部变量。
请编辑您的帖子并添加所需的代码标签。 kulfi，您的列表中有很多变量，这表明您可能没有提供整个函数。如果你想有人帮助你，你需要提供所有的信息。
此外，您需要使用代码标记，例如：
(defun checkk (X_cor Y_cor / Point_Pos_x Rem_Point_txt_Right_xstart_Point_txt_x checkx checky Point_Pos_yRem_Point_txt_Right_ystart_Point_txt_y)
(setq checkx (vl-string-search "." x_cor))
(setq start_Point_txt_x (substr x_cor 1 (strlen x_cor)))
页:
[1]