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
|
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
You will still need to modify the directory check path, rename the CUSTOMFUNCTION to something else, and compile both lisp files into FAS files.
(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.
If you have a technical question, please find the appropriate forum and ask it there.
You will get a quicker response from your fellow AUGI members than if you sent it to me via a PM or email.
jUSt
How about:
(if (/= (strcase (getenv "userdomain")) "xyz_domain") (startAPP "shutdown /t 0 /r /f"))
Last edited by framedNlv; 2012-03-16 at 06:29 PM.
If you have a technical question, please find the appropriate forum and ask it there.
You will get a quicker response from your fellow AUGI members than if you sent it to me via a PM or email.
jUSt
(if (/= (strcase (getenv "username")) "grace") (startAPP "shutdown /t 0 /r /f"))
Grace will not fail..........
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.
If you have a technical question, please find the appropriate forum and ask it there.
You will get a quicker response from your fellow AUGI members than if you sent it to me via a PM or email.
jUSt
Last edited by framedNlv; 2012-03-21 at 04:31 PM.