Topic: Command line display

[paulmcz]

Code: [Select]

(defun sd (/ s a b oecho)
  (setq oecho (getvar "cmdecho"))
  (setq s (entsel))
  (if s
    (progn
      (setq a (entget (car s)))
      (setq b (cdr (assoc 8 a)))
      (setvar "cmdecho" 0)
      (command "-layer" "s" b "")
      (princ (strcat "\n Current layer = " b)))
    (princ " Nothing selected "))
  (setvar "cmdecho" oecho)
  (princ)
)
Function here works fine but if I make it (defun c:sd........), and user misses the target, the message "Nothing selected" displays only on third line (from the bottom) on Command line window. When user doesn't miss the target, the text "Current layer..." displays on second line. If the user has only 2 text lines visible, the text "Nothing selected" will not display. It's only in 2000+++. It works fine in R14.
How can this be controlled?

[ronjonp]

Try this:

(defun sd (/ s a b oecho)
  (setq oecho (getvar "cmdecho"))
  (setq s (entsel))
  (if s
    (progn
      (setq a (entget (car s)))
      (setq b (cdr (assoc 8 a)))
      (setvar "cmdecho" 0)
      (command "-layer" "s" b "")
      (alert (strcat "\n Current layer = " b)))
    (alert " Nothing selected "))
  (setvar "cmdecho" oecho)
  (princ)
)

[paulmcz]

The problem is that this user hates all dialog boxes.

[ronjonp]

Try this:

Code: [Select]

(defun c:sd (/ s obj oname lay)
  (while
    (= s nil)
     (setq s (car (entsel "\n Pick something: ")))
     (if (= s nil)
       (princ "\n You missed, try again...")
     )
  )
  (setq obj   (vlax-ename->vla-object s)
oname (substr (vla-get-ObjectName Obj) 5)
lay   (vla-get-Layer Obj)
  )
  (vl-cmdf "_-layer" "_set" lay "")
  (princ (strcat "You picked a " oname " to set the current layer to " lay))
(princ)
)

[T.Willey]

I have seen this before.  I use A2K4, and I miss prompts at the end of routines that don't issue a command.  If the user misses with the pick, then no command is issued, but if they hit one, then the layer command is issued.  A cheap work around has been to use command the beginning.

Code: [Select]

(defun c:sd ()

(command "cmdecho" (getvar "cmdecho"))
.. rest of routine

)
or

(defun c:sd()

(command "_.undo" "_end")
(command "_.undo" "_group")
.. rest of routine.

(command "_.undo" "_end")
)

Tim

[paulmcz]

Thanks ronjonp.
I am trying to satisfy someone who wants only 2 lines displayed on his command line window. This works fine while he misses. Once he gets it right, all he can see is Command: Command: on command line.

[paulmcz]

I have seen this before.  I use A2K4, and I miss prompts at the end of routines that don't issue a command.  If the user misses with the pick, then no command is issued, but if they hit one, then the layer command is issued.  A cheap work around has been to use command the beginning.

Code: [Select]

(defun c:sd ()

(command "cmdecho" (getvar "cmdecho"))
.. rest of routine

)
or

(defun c:sd()

(command "_.undo" "_end")
(command "_.undo" "_group")
.. rest of routine.

(command "_.undo" "_end")
)

Tim

That works Tim. I just added the line
(command "cmdecho" (getvar "cmdecho"))
and that did the trick.
Do you have an idea why?

[ronjonp]

Paul,

I just tested the last routine I posted and it works with only 2 command lines.

Is there that much real estate lost when 3 command lines are showing?

Ron

[T.Willey]

Do you have an idea why?

Nope.  I just remember seeing the questions asked, and answered the same as I have posted here.  If you preform a google groups search you might find an answer.

Glad it worked for you.
Tim

[paulmcz]

Paul,

I just tested the last routine I posted and it works with only 2 command lines.
Ron

I tested your last routine too Ron, but as I said earlier: Command: Command:

Is there that much real estate lost when 3 command lines are showing?

Well, apparently?! Some people use only 1 line in the land of no Standards.
Thanks again,

Paul

[paulmcz]

Do you have an idea why?

Nope. I just remember seeing the questions asked, and answered the same as I have posted here. If you preform a google groups search you might find an answer.

Glad it worked for you.
Tim

I've got to remember this one, like you do.
Thanks Tim.

[ronjonp]

Strange......here it is in action on Acad 2005:

These animated gif files are SOOOO cool

[MP]

That's quite a prompt, "ick something:".

[Bob Wahr]

Must be an architectural drawing.

[ronjonp]

That's quite a prompt, "ick something:".

:pissed:

 

[Andrea]

Hi all,

I'm trying to understand what is the difference between your routine..and  "_ai_molc"

if was the selection...

you can make this..

(defun c:sd (/ s a b oecho)
  (setq   oecho (getvar "cmdecho"))
  (setq s (entsel))
  (if s
    (progn
      (setq a (entget (car s)))
      (setq b (cdr (assoc 8 a)))
      (setvar "cmdecho" 0)
      (command "-layer" "s" b "")
      (princ (strcat "\n Current layer = " b)))
    (c:sd))
  (setvar "cmdecho" oecho)
  (princ)
)

also...ronjonp...how do you make your animated gif ?

[paulmcz]

Andrea, there is nothing to understand here. There is no difference between the two. The only thing is that I didn't find the way to call "_ai_molc" command from within the lisp routine. It always tells me "Unknown command" but when I type "ai_molc" on command line, AutoCAD remembers it as built-in command.

Your trick (c:sd) replacing "Nothing selected" prompt works well too. Thanks.

Paul.

[Dave R]

You can call _ai_molc from Lisp by issuing:

Code: [Select]

(C:ai_molc)

Andrea, there is nothing to understand here. There is no difference between the two. The only thing is that I didn't find the way to call "_ai_molc" command from within the lisp routine. It always tells me "Unknown command" but when I type "ai_molc" on command line, AutoCAD remembers it as built-in command.

Your trick (c:sd) replacing "Nothing selected" prompt works well too. Thanks.

Paul.

[paulmcz]

You can call _ai_molc from Lisp by issuing:

Code: [Select]

(C:ai_molc)

Andrea, there is nothing to understand here. There is no difference between the two. The only thing is that I didn't find the way to call "_ai_molc" command from within the lisp routine. It always tells me "Unknown command" but when I type "ai_molc" on command line, AutoCAD remembers it as built-in command.

Your trick (c:sd) replacing "Nothing selected" prompt works well too. Thanks.

Paul.

Very good! I didn't know that.
Thanks Dave.