Programming assistance...

[tcarbone]

I searched the forums and didn't find anything that could help me, so I apologize in advance if this question had been asked before. I am attempting to modify an existing routine I made. I'm stuck on how to code it properly. I am trying to do something along the lines of:

"Pick start point or enter "O" to select Object: "

The problem I am having is that the user input is two completely different types. I can't simply use GETSTRING or GETPOINT. Any ideas?

[T.Willey]

Use ' getpoint ' along with ' initget '. This will let you do what you want to.

[tcarbone]

That's exactly what I wanted it to do... thx a ton...

(defun C:Test ()
(initget 128 "String")
(setq TEST (getpoint "\nPick start point or <O> for Select Object: "))
(if (or (= TEST "o")(= TEST "O"))(alert "STRING VALUE")
(alert "COORDINATE VALUE")
)
)

[icbinr]

You don't have to use 128 (Bit 7) in your INITGET.

(initget "Object") would work and would set the value of the symbol to "Object" if the user input either O or Object. This allows you to not use the OR condition in your IF statement.

I also modified your prompt to look more similar to a standard AutoCAD prompt.

(defun C:TEST ()
  (initget "Object")
  (setq TEST (getpoint "\nPick start point or [Object]: "))
  (if (= TEST "Object")
    (alert "STRING VALUE")
    (alert "COORDINATE VALUE")
  )
)

Or if you would prefer that the user not be allowed to enter null input. You can do it like this.

(defun C:TEST ()
  (initget 1 "Object")
  (setq TEST (getpoint "\nPick start point or [Object]: "))
  (if (= TEST "Object")
    (alert "STRING VALUE")
    (alert "COORDINATE VALUE")
  )
)

[tcarbone]

Even better... thanks to you both!!!

[T.Willey]

You're welcome. Glad to see you work it out yourself, and then get just a little help to tweak it to be better.

[howardjosh]

The way I prefer to handle commands of this nature is to set my first variable to an "implied" selection set (setq ss (ssget "_I"))

then test the variable to see if it is null, and If it is you would need only ask for the point. If it is not null you know it has an object(s) that are selected at the time your command was run.

*shrug*

that's how I like to build that type of command anyway.....