Topic: unable the escape key..

[Andrea]

hhhmm.....seem having same problem..

Code: [Select]

(defun goto_INGcommand ()
  (if (eq g "ING_SAVE")
    (progn
  (initdia 1)
  (command "_saveas")
))
)


(defun INGcommand ()
  (setq g nil)
  (while
    (progn
      (setq g (vl-catch-all-apply 'getstring (list "INGcommand: ")))
      (cond
        ((vl-catch-all-error-p g) ; yes, error
         (alert "Escape not allowed.")
         t ; stay in loop
        )
        ((vl-string-search "ING" (setq g (strcase g)))
         (goto_INGcommand)
         nil     ; exit loop & return the INGcommand entered.
        )
        ((eq g "COMMAND")
         (exit) ; bye bye
        )
        (t
         (alert
           "Invalid ING command.\n Type \"Command\" to return to AutoCAd command."
         )
         t
        )
      )
    )
  )
  g
)



(setq cmd (INGcommand))
maybe need to think for another solution....
using reactor..or something else....

Thanks. CAB.

[Patrick_35]

Salut

Code: [Select]

(defun INGcommand(/ g)
  (while (setq g (vl-catch-all-apply 'getstring (list "\nINGcommand: ")))
    (if (not (vl-catch-all-error-p g))
      (progn
        (setq g (strcase g))
        (if (vl-string-search "ING" g)
          (ing_go g)
)
        (if (eq g "COMMAND")(exit))
        (if (and
          (not (vl-string-search "ING" g))
          (not (eq g "COMMAND")))
          (alert "Invalid ING command.\n Type \"Command\" to return to AutoCAd command.")
        )
      )
      (if (member (vl-catch-all-error-message g) (list "Fonction annulée" "Function cancelled"))
        (setq g T)
        (setq g nil)
      )
    )
  )
)

(defun ing_go (g1)
  (if (eq g1 "ING_SAVE")
    (progn
    (initdia 1)
    (command "_saveas"))
  ))

(INGcommand)

[CAB]

Works for me.   

Code: [Select]

(defun INGcommand (/ g)
  (while
    (progn
      (setq g (vl-catch-all-apply 'getstring (list "INGcommand: ")))
      (cond
        ((vl-catch-all-error-p g) ; yes, error
         (alert "Escape not allowed.")
         t     ; stay in loop
        )
        ((vl-string-search "ING" (setq g (strcase g)))
         (alert "You have entered a ING command")
         nil   ; exit loop & return the INGcommand entered.
        )
        ((eq g "COMMAND")
         (exit) ; bye bye
        )
        (t
         (alert
           "Invalid ING command.\n Type \"Command\" to return to AutoCAd command."
         )
         t
        )
      )
    )
  )
  g
)

(defun c:test (/ cmd)
  (setq cmd (INGcommand))
  (cond
    ((eq cmd "ING_SAVE")
     (initdia 1)
     (command "_saveas")
    )
    (t
     (alert "Invalid ING Command")
     )
  )
)

[Andrea]

Works for me. 

hug ?..   
hmm....bizzarre..!..

Thanks CAB nice try !..   

Patrick,..your code work perfectly. thank you. 

[CAB]

Works for me. 

hug ?..   
hmm....bizzarre..!..

Thanks CAB nice try !..   

Andrea did you copy the second test routine without any changed & test it?
Did you get an error? If it works in the test the problem is in your implementation. 

[Andrea]

Andrea did you copy the second test routine without any changed & test it?

Yes, CAB...
copy and paste in a new lisp file...

but the result is that return to AutoCAd command line..

[GDF]

Works for me.   

Code: [Select]

(defun INGcommand (/ g)
  (while
    (progn
      (setq g (vl-catch-all-apply 'getstring (list "INGcommand: ")))
      (cond
        ((vl-catch-all-error-p g) ; yes, error
         (alert "Escape not allowed.")
         t     ; stay in loop
        )
        ((vl-string-search "ING" (setq g (strcase g)))
         (alert "You have entered a ING command")
         nil   ; exit loop & return the INGcommand entered.
        )
        ((eq g "COMMAND")
         (exit) ; bye bye
        )
        (t
         (alert
           "Invalid ING command.\n Type \"Command\" to return to AutoCAd command."
         )
         t
        )
      )
    )
  )
  g
)

(defun c:test (/ cmd)
  (setq cmd (INGcommand))
  (cond
    ((eq cmd "ING_SAVE")
     (initdia 1)
     (command "_saveas")
    )
    (t
     (alert "Invalid ING Command")
     )
  )
)

Alan

Work fine for me.

Gary

[Andrea]

ok....let see ...

[Andrea]

ok guys...

I think i have wrong start...
The program that i'm trying to do...
is to permit only some AutoCad function to the user...
like:

_SAVEAS
_OPEN
_PLOT
_PREVIEW
_LINE
_PLINE
...and some few other...

before continuing this project..
is this program a good way to do it ?

need your experience.   :kewl:

[Kerry]

What a waste of energy ... why didn't you say that at the start. ?

[Andrea]

sorry Kerry..
your right....

but i have lurn something again....
maybe is wasting time for you..
but when i lurn.....is not wasting time for me.

I'm here to understand and lurn
how of all of guru like you, make a program better.

 

[Kerry]

Andrea, dont play the old "I want to learn" card.

We have been having this same discussion for years.

You continually think that people can read your mind .. and expect it.

[Andrea]

this is my another way...
what is your comment about this one..

Code: [Select]

(defun loadFreactor ()

(vl-load-com)
(vlr-command-reactor nil '((:vlr-commandWillStart . startFCommand)))
)


(defun startFCommand (getcommand / CMD)
  (setq CMD (nth 0 getcommand))
  (cond
   
    ((and (/= CMD "TEXT")
  (/= CMD "MTEXT")
  (/= CMD "DTEXT")
  )
     (progn
     (alert "Command disable.")
     (exit)
     )
     
)))

(loadFreactor)
the problem is..that the (exit) do not exit the command.

[Andrea]

Kerry..please...don't start..

[sinc]

ok guys...

I think i have wrong start...
The program that i'm trying to do...
is to permit only some AutoCad function to the user...
like:

_SAVEAS
_OPEN
_PLOT
_PREVIEW
_LINE
_PLINE
...and some few other...

before continuing this project..
is this program a good way to do it ?

need your experience.   :kewl:

You could always just UNDEFINE certain commands.  For example, you could put lines like the following in your ACAD.LSP file:

Code: [Select]

(command "undefine" "circle")
It is a simple matter for a moderately-savvy user to override this by using REDEFINE or by preceding the command name with a period ("."), but it might work for low-level users.  Anyway, a moderately-savvy user could probably get around anything you try to do...