Invalid Function

[kulfi]

I am calling another function and my program was working since two years just today i observed that it is giving error in Invalid Function.

Please can you tell me what is the problem.

(setq X_Cor (rtos (car  Ptt1) 2 3))
(setq Y_Cor (rtos (cadr Ptt1) 2 3))
(checkk X_cor Y_cor)

(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)))

[hmsilva]

---

@Kulfi wrote:

I am calling another function and my program was working since two years just today i observed that it is giving error in Invalid Function.

Please can you tell me what is the problem.

(setq X_Cor (rtos (car  Ptt1) 2 3))
(setq Y_Cor (rtos (cadr Ptt1) 2 3))
(checkk X_cor Y_cor)

(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)))

---

Hi kulfi,

you'll need to post all the checkk function, otherwise will be hard to help...

Henrique