Code help to run transparent

[cadd4la]

Hello everyone,

I am hoping that I can run this code as a transparent command like if you type 'p in the command line and you are in a middle of another command, the pan command will work.

What I need is for the below code to be able to be run when I'm in the middle of another command.

(DEFUN C:os1()
(SETVAR "CMDECHO" 0)
(COMMAND "OSMODE" "1")
(SETVAR "CMDECHO" 1)
(princ)
)

Thanks for the help.

Kyle C.

[T.Willey]

If you want something to be transparent you can't use 'command', IIRC. So just change your command call to a setvar call, and it should work when you type 'os1.

[cadd4la]

Tim,

I am sorry I don't understand what you mean.

I changed the code to this.

(DEFUN C:'os1()
(SETVAR "CMDECHO" 0)
(SETVAR CALL "OSMODE" "1")
(SETVAR "CMDECHO" 1)
(princ)
)

Got this

'os1
error: AutoCAD
variable setting rejected: "OSMODE" "1"

Then changed it to this.

(DEFUN C:'os1()
(SETVAR "CMDECHO" 0)
(SETVAR "OSMODE" "1")
(SETVAR "CMDECHO" 1)
(princ)
)

and got this.

'os1
error: AutoCAD
variable setting rejected: "OSMODE" "1"

Could you show me what needs to be changed in the code.

Thanks,

Kyle C.

...So just change your command call to a setvar call, and it should work when you type 'os1.

[billy342601]

...Then changed it to this.

(DEFUN C:os1()
(SETVAR "CMDECHO" 0)
(SETVAR "OSMODE" "1")
(SETVAR "CMDECHO" 1)
(princ)
)

and got this.

'os1
error: AutoCAD
variable setting rejected: "OSMODE" "1"

Could you show me what needs to be changed in the code.

Thanks,

Kyle C.

Kyle,

Try this:

(DEFUN C:os1()
(SETVAR "CMDECHO" 0)
(SETVAR "OSMODE" 1)
(SETVAR "CMDECHO" 1)
(princ)
)

The extra "" in OSMODE can cause some trip ups.

Hope this helps.

Bill

[cadd4la]

Bill,

Thanks for the input but that didn't fix the problem.

Kyle

Kyle,

Try this:

(DEFUN C:os1()
(SETVAR "CMDECHO" 0)
(SETVAR "OSMODE" 1)
(SETVAR "CMDECHO" 1)
(princ)
)

The extra "" in OSMODE can cause some trip ups.

Hope this helps.

Bill

[T.Willey]

All you will need is

(defun c:os1 ()
(setvar 'OsMode 1)
(princ)
)

Then when in command, you would call it like 'os1, the ' makes it a transparent call.

Command: l LINE Specify first point:
Specify next point or [Undo]:
Specify next point or [Undo]:
Specify next point or [Close/Undo]:
Specify next point or [Close/Undo]: 'os1

Specify next point or [Close/Undo]:
Specify next point or [Close/Undo]:
Specify next point or [Close/Undo]:

[billy342601]

Kyle,

I tested it here and didn't pop up any errors. I have not been able to test it with other routines running, but will try after morning meetings.

Bill

[cadd4la]

Tim,

Thanks very much for the help.

Kyle C.

[T.Willey]

You're welcome Kyle. Note that you can not use this while a lisp routine is running. You can't start a lisp in the middle of another lisp, not like this at least.

[hofcad]

Hello everyone,

I am hoping that I can run this code as a transparent command like if you type 'p in the command line and you are in a middle of another command, the pan command will work.

What I need is for the below code to be able to be run when I'm in the middle of another command.

(DEFUN C:os1()
(SETVAR "CMDECHO" 0)
(COMMAND "OSMODE" "1")
(SETVAR "CMDECHO" 1)
(princ)
)

Thanks for the help.

Kyle C.

Try

(vl-load-com)
(defun C:os1() (vla-SendCommand (vla-get-ActiveDocument 
(vlax-get-acad-object)) "'OsMode 1 ") (princ))

Regards HofCAD CSI