Topic: Help with this part of code

[HasanCAD]

I am createing, this part gives correct answer at first time but second time gives blank

Code: [Select]

(setq *str (cond ( (getstring (strcase (strcat "\nWhat is Stirrup Dia And repeatation? <" (setq *str (cond ( *str ) ( "T10@200" ))) ">: ")))) ( *str )))

[CAB]

I would do it this way.

Code: [Select]

(setq *str (cond (*str) ("T10@200")))
(setq *str (if (= "" (setq tmp (strcase (getstring (strcat "\nWhat is Stirrup Dia And repeatation? <" *str  ">: ")))))
             *str tmp)
            )
Edit:
Found the problem.
getstring returns "" on ENTER and not nil

[HasanCAD]

The same

Code: [Select]

(setq *str nil)
(setq *str (cond (*str) ("T10@200")))
(setq *str (cond ((getstring (strcat "\nWhat is Stirrup Dia And repeatation? <" *str  ">: ")))))when press Enter (without typing any data) the result is

Code: [Select]

nil
"T10@200"
""

[CAB]

Sorry i update code again, try that.

[CAB]

Also I question the placement of strcase? what is your intent?

[HasanCAD]

Also I question the placement of strcase? what is your intent?

in case of the user types small letter and all letters should be ib capital
oopps I belive that it should be like this

Code: [Select]

(setq *str (if (= "" (setq tmp (strcase (getstring (strcat "\nWhat is Stirrup Dia And repeatation? <" *str  ">: "))))) *str tmp))

[CAB]

OK in that case I updated the code again.
Is it working for you?

[Lee Mac]

Here is how I would approach it:

Code - Auto/Visual Lisp: [Select]

1. (if (null *str)
2.     (setq *str "T10@200")
3. )
4. (if (/= "" (setq tmp (strcase (getstring (strcat "\nWhat is Stirrup Dia And repeatation? <" *str ">: ")))))
5.     (setq *str tmp)
6. )

Not dissimilar to those already posted...

[HasanCAD]

Thanks CAB
Thnaks LEE
both working perfect

[Lee Mac]

You're welcome Hasan