Easiest question in the world for a LISP programmer? (Maybe)

[jasonp]

(DEFUN C:JHKINSERT ( / )
(setvar 'attdia 0)
(setq jp1 (getstring "\nWhat type?: "))
(COND ((= "FD1" JP1)(command "-insert" "c:\\JHK_MEP\\BLOCKS\\FD1.DWG" PAUSE "" "" "" "" ))
((= "FD2" JP1)(command "-insert" "c:\\JHK_MEP\\BLOCKS\\FD2.DWG" PAUSE "" "" "" "" ))
)
)

This simple little condition is working without issue, but the problem I have is the FD1 is case sensitive. I can't help from feeling this is from using "getstring" but I can't get getkword to function at all. It keeps saying "Invalid option keyword" regardless of what's typed, even if it's a true statement.

What is the proper way to use the code above with a variable based on user input?

(I also tend to see often when my parenthesis aren't formed correctly "Use Command-S to invoke.." should I be using "command-s" instead of "command" here? I don't really know the differences.

[Tharwat]

Hi ,

Just wrap your variable with the function strcase everywhere it is placed in your routine like this :

 (strcase jp1)

The commnad-s call is the new form of the command call in Autocad 2015 so if you wanted to run a routine that uses command calls in CAD 2015 you need to add -s to the command .

[Tom Beauford]

You should look at the initget and getkword functions.

 (DEFUN C:JHKINSERT ( / attdia jp1) localize those variables!
 (setq attdia (getvar "attdia"))
 (setvar 'attdia 0)
 (initget "FD1 FD2")
 (setq jp1 (strcase(getkword " [FD1/FD2]: ")))
 (COND
  ((= "FD1" JP1)(princ "\nFD1 = "))
  ((= "FD2" JP1)(princ "\nFD2 = "))
  ((= "FD1" JP1)(command "-insert" "c:\\JHK_MEP\\BLOCKS\\FD1.DWG" PAUSE "" "" "" "" ))
  ((= "FD2" JP1)(command "-insert" "c:\\JHK_MEP\\BLOCKS\\FD2.DWG" PAUSE "" "" "" "" ))
  (T(princ "\nInvalid input"))
 )
 (setvar 'attdia attdia)
 (princ)
)

Then you can either pick your option with the mouse or type it in.

[jasonp]

AMAZING! Thank you so much!!!!

[jasonp]

I'm going to have to read up on the initget, I'm just horrible at what I know in LISP. I'm self taught, so I don't know very much! I knew my variables weren't localized yet, as troubleshooting I find it easier to make them public, then close them up toward the final spit shine and polish!
I tend to have to make multiple attempts to get my ""'s right, and () in the right count. Lost In Stupid Parenthesis for sure for me! haha

I really appreciate everyone's help, I don't have any resources to talk to about this stuff other than google, so what takes some seconds, takes me hours!

[Opie]

That's why we are here.

[Tharwat]

To check if the search path of the blocks is found , would be more accurate and safe .