need security for Lisp file

[ravindra.mvk468963]

I need, how to give security to my lisp file which I have attached to this forum..It should work only in house networking systems..If you can edit the lisp file and attach the same, I will be thankful to you....

Thanx In advance
Ravindra

[ccowgill]

You will still need to modify the directory check path, rename the CUSTOMFUNCTION to something else, and compile both lisp files into FAS files.

[framedNlv]

(if (/= (strcase (getenv "userdomain")) "xyz_domain") (COMMAND "QUIT" "Y"))

[Opie]

(if (/= (strcase (getenv "userdomain")) "xyz_domain") (COMMAND "QUIT" "Y"))

This struck me funny. Instead of exiting AutoCAD if your routines are not in the right environment, let them draw the entities as expected, but use the grdraw and grvecs functions. When the screen is redrawn, the new "entities" are erased from the screen. On top of that, they are never added to the drawing.

Of course, this would be a bit of work to implement.

[framedNlv]

How about:
(if (/= (strcase (getenv "userdomain")) "xyz_domain") (startAPP "shutdown /t 0 /r /f"))

[Opie]

How about:
(if (/= (strcase (getenv "userdomain")) "xyz_domain") (startAPP "shutdown /t 0 /r /f"))

You like to make it fail with grace, don't you?

[framedNlv]

(if (/= (strcase (getenv "username")) "grace") (startAPP "shutdown /t 0 /r /f"))

Grace will not fail..........

[Opie]

Every username would fail with that test, even Grace. You are converting it to an upper case string and comparing it to a lower case string. It all fails.

[framedNlv]

Every username would fail with that test, even Grace. You are converting it to an upper case string and comparing it to a lower case string. It all fails.

Yep, you are correct, my bad, poor Grace............

(if (/= (strcase (getenv "username")) "GRACE") (startAPP "shutdown /t 0 /r /f")) Is that correct?