Command-s
The change of (command) to (command-s) would be needed only in the *error* handler. The message is because some error is occurring that triggers the *error* handler, which in newer versions has that restriction.
You can eliminate that problem by resetting the Layer not by using a (command) function, but by setting the system variable. Replace:
(command "layer" "s" curlay "")
with
(setvar 'clayer curlay)
and that error message will not appear. [I would do it in both places, but you really need to only in the *error* handler.]
BUT that won't stop the error that is triggering the *error* handler and thereby that message -- there will probably still be some error within the (TTXT) function, which you have not supplied. Post that, and maybe we can figure out what's not working about it.
And by the way, you really should define *error* inside the command definition, and list it as a localized "variable" so that it will go away and revert to AutoCAD's basic error handler when the command is done:
(DEFUN C:T6 (/ *error* ....
(defun *error* (....
What you posted only loads and runs a (TTXT) function. That error must be internal to TTXT, so we would need to see the code for that.
@kurt-w wrote:
I attached these below..... Is this what you are looking for?
....
No. The T6 routine includes this:
....
(load_sub "TTXT")
(TTXT)
....
And via the (load_sub) routine [which is in ACAD.lsp] would apparently thereby load, and then run, a file called TTXT.sub. I was expecting it would be TTXT.lsp, but if a .sub file is the same kind of thing, that's what we would need to see, because the asking-for-points operation that's giving you trouble has to be inside that.
@kurt-w wrote:
I attached the TTXT.sub file. ....
It could be the same issue as in this recent thread -- that the "quick" Osnap mode has gone away. Try changing "quick,per" to just "per" and see whether it works. If not, we can dig deeper to look for whatever else may be causing the problem.
