TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: AIberto on June 17, 2015, 12:36:01 PM

Title: (if (not (equal ........problem, need help.
Post by: AIberto on June 17, 2015, 12:36:01 PM

Hi Theswamp's friend
I have a problem. need help.

call: (setq bb (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\tools\\Hotkey" "no.1"))
Return: "test"

"KEYNAME" IS A KEY FROM DCL
:edit_box {
    key = "KEYNAME" ;
    label = "COMMAND" ;
    width = 15 ;
}

I Enter  test  to edit_box
call this

Code: [Select]

(if (not (equal bb (get_tile "KEYNAME")))(prompt "\Does not SAME."))
Always prompt "Does not SAME",  why ?

Title: Re: (if (not (equal ........problem, need help.
Post by: ymg on June 17, 2015, 01:00:09 PM

Alberto,

What does (get_tile "KEYNAME") returns ?

ymg

Title: Re: (if (not (equal ........problem, need help.
Post by: AIberto on June 17, 2015, 09:32:48 PM

Quote from: ymg on June 17, 2015, 01:00:09 PM

Alberto,

What does (get_tile "KEYNAME") returns ?

ymg

It's returns 'nil" , 

OK. problem is be resolved.

Code: [Select]

(setq bb (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\tools\\Hotkey" "no.1"))
(setq cc (get_tile "KEYNAME"))
(if (not (equal bb cc))(prompt "\Does not SAME."))