topic Re: lisp file locking in Visual LISP, AutoLISP and General Customization Forum

lisp file locking

Gaganpatel — Sat, 26 Jan 2019 03:25:13 GMT

Dear Sir,

I want to lisp file use in one computer is working ,any other computer use this lisp file is locking process.

Please share lisp file.

Re: lisp file locking

Scottu2 — Sat, 26 Jan 2019 06:55:26 GMT

Hello kalandipaital1989,

I'm thinking when the lisp Routine starts it reads a text file and it must be blank or has the same username, then overwrites the file with the username and date&time. When the program is finished it overwrites the file as a new blank file.

A different computer runs the Routine and it reads the text file but the username does not match so the Routine displays "Can't proceed, In use by another user: xxxxx at mm:dd:yyyy hh:m:ss" and exits.

However, my question would be how critical is it to lockout other computers from running the same Routine?

1. There may be a time someone can not run the Routine because the station stopped working with the password screen lock or out of the office. Does this person have to wait? Or can a person select an option to take ownership of the lockfile by overwriting with their username and date&time?

2. Does running the lisp Routine in multiple drawings on same computer the cause any problems?

This situation would be like editing an excel spread sheet, by read-only for others until the person editing the file exits.

Scott U

Re: lisp file locking

Moshe-A — Sat, 26 Jan 2019 07:47:18 GMT

@Gaganpatel hi,

here is a function (sp:user_validate) that returns T if a user coming from his computer is allowed to process a lisp function. the data for (vl-some) function is two list of names, 1st user names and 2nd computer names. made them lists so that you can reword in future more peoples

enjoy

moshe

(defun sp:user_validate ()
 (vl-some
   '(lambda (AllowedUserName AllowedComputername)
      (and
        (eq (strcase (getenv "UserName"))     (strcase AllowedUserName))
        (eq (strcase (getenv "ComputerName")) (strcase AllowedComputerName))
      )
   )
   '("Sandip" 	     "user2" 	 "user3")	; allowed user names
   '("Sandip-Paital" "Computer2" "Computer3")   ; allowed computer names
 ); vl-some
); user_validate


(defun c:test ()
 (if (not (sp:user_validate))
  (prompt "\nCommand is Locked.")
  (progn 
   ; do your Command 
   ; ...........
   ; .........
   ; .......
   ; .....
  ); progn
 ); if

 (princ)
)

Re: lisp file locking

Gaganpatel — Sat, 26 Jan 2019 11:13:02 GMT

Dear Sir,

how to use this lisp.

Please share me.

Re: lisp file locking

Moshe-A — Sat, 26 Jan 2019 14:29:47 GMT

@Gaganpatel ,

let's say you have a lisp file calls tagins.lsp that insert a specific tag block (s-tag) in your drawing - ok?

could be somethings like this:

(defun c:tagins ()
 (if (null (tblsearch "layer" "tags")) 
  (command "._layer" "_make" "tags" "_color" 3 "tags" "")
 )
 (command-s ".insert" "s-tag")  
)

and you want to allow only to Sandip & Joe & Sandy to run it.

open the tagins.lsp in notepad and copy paste the blue lines code inside:

(defun sp:user_validate (AllowedUserNames^ AllowedComputerNames^)
 (vl-some
   '(lambda (AllowedUserName AllowedComputername)
      (and
        (eq (strcase (getenv "UserName"))     (strcase AllowedUserName))
        (eq (strcase (getenv "ComputerName")) (strcase AllowedComputerName))
      )
   )
   '("Sandip" 	     "Joe"     "Sandy")	      ; allowed user names
   '("Sandip-Paital" "Joe-w10" "Sandy-w10")   ; allowed computer names
 ); vl-some
); user_validate

(defun c:tagins ()
 (if (not (sp:user_validate))
  (prompt "\nCommand is Locked.")
  (progn 
   (if (null (tblsearch "layer" "tags")) 
    (command "._layer" "_make" "tags" "_color" 3 "tags" "")
   ); if
  
   (command-s ".insert" "b-tag")
  ); progn
 ); if
); tagins

if this doesn't help you i'm 'coming' over

Re: lisp file locking

Scottu2 — Sun, 27 Jan 2019 09:46:24 GMT

Hello kalandipaital1989,

Did I misunderstand your original post?

Should the lisp routine only run on one machine one at time?

Should the lisp routine only run when the specific User and Computer name matches the list?

Scott

Re: lisp file locking

dani-perez — Sun, 27 Jan 2019 13:07:17 GMT

Hello Moshe-A,

Nice function. Could you combine it with a password function?

Thanks in advance.

Re: lisp file locking

Gaganpatel — Mon, 28 Jan 2019 16:48:06 GMT

Dear Sir,

I am not professional of lisp programmer.

your program in use lisp middle position,i am trying your program but not working.

please share me easy type use program (program starting use another program ending use)

Please share me sir.

Re: lisp file locking

Moshe-A — Mon, 28 Jan 2019 18:56:10 GMT

@Gaganpatel hi,

this code is only sample of what you can do, how do you expect to take it from here if you do not have autolisp programming skill?

you do aware that this protection is base on user login name plus computer name - yes?

then how can i give you specific help if up to this point you didn't think to provide these details and i even do not know what is the lisp program you want to protect?!

here is an update code:

(defun sp:user_validate ()
 (vl-some
   '(lambda (AllowedUserName AllowedComputername)
      (and
        (eq (strcase (getenv "UserName"))     (strcase AllowedUserName))
        (eq (strcase (getenv "ComputerName")) (strcase AllowedComputerName))
      )
   )
   '("Sandip" 	     "Joe"     "Sandy")	      ; allowed user names
   '("Sandip-Paital" "Joe-w10" "Sandy-w10")   ; allowed computer names
 ); vl-some
); user_validate


(defun c:tagins ()
 (if (not (sp:user_validate))
  (prompt "\nCommand is Locked.")
  (progn 
   (if (null (tblsearch "layer" "tags")) 
    (command "._layer" "_make" "tags" "_color" 3 "tags" "")
   ); if
  
   (command-s ".insert" "b-tag")
  ); progn
 ); if
); tagins

Re: lisp file locking

Gaganpatel — Tue, 29 Jan 2019 04:04:20 GMT

Dear Sir,

suppose one lisp file inner four types of program use.

How to use your lisp locking program.

Please share process.

Re: lisp file locking

Moshe-A — Tue, 29 Jan 2019 05:53:41 GMT

@Gaganpatel wrote: suppose one lisp file inner four types of program use.

i do not understand what that means?

and if what have i gave you is not helping than i can not help more - sorry

Re: lisp file locking

Gaganpatel — Tue, 29 Jan 2019 07:39:48 GMT

Dear Sir,

My Computer Name-Paital

Please see the lisp program and your lisp locking program use this program.

Please help.

(vl-load-com)
(defun C:DimSum (/ i n sumtxt ss sn dobj mea ovr OldVars VarList)
(setq
i 0
n -1
sumtxt "" ; initially empty string
); setq
(if (setq ss (ssget '((0 . "DIMENSION"))))
(progn ; then
(while (setq sn (ssname ss (setq n (1+ n))))
(setq
dobj (vlax-ename->vla-object sn)
i ; accumulating total
(+
i ; total so far
(setq mea ; measurement of this Dimension
(if (= (setq ovr (vla-get-TextOverride dobj)) ""); no override
(vla-get-measurement dobj); then -- measured length
(if (wcmatch ovr "<>*"); else [override] -- just real measurement with suffix [of either kind]?
(vla-get-measurement dobj); then -- measured length
(distof ; else -- numerical equivalent of override
(substr ovr 1 ; start at beginning
(vl-string-search
(if (wcmatch ovr "*%*") "%" "\\"); plus-or-minus vs. new-line
ovr
); vl-string-search
); substr
); distof
); if [real-with-suffix vs. forced]
); if [no-override vs. override]
); setq & mea
); + & i
sumtxt (strcat sumtxt (rtos mea 2 4) "\\P"); add line to Mtext content
); setq
); while
(if (> i 0)
(progn ; then
(prompt (strcat "\nTotal measuremnts : < " (rtos i 2 4) " > ."))
(setq OldVars (mapcar 'getvar (setq VarList '(cmdecho clayer))))
(setvar 'cmdecho 0)
(command "_.layer" "_make" "DimSums" "_plot" "_no" "" "")
(entmake
(list
'(0 . "MTEXT") '(100 . "AcDbEntity") '(100 . "AcDbMText")
'(8 . "DimSums"); Layer
(cons 10 (getvar 'viewctr)); insertion point
'(40 . 12); height
'(41 . 0.0); ref. rectangle width
'(71 . 1); top-left justification
'(72 . 5); direction by Style
(cons 1 (strcat sumtxt "total = " (rtos i 2 4))); content
'(7 . "STANDARD"); Style
'(50 . 0.0); rotation
); list
); entmake
(command "_move" "_last" "" (getvar 'viewctr) pause)
(mapcar 'setvar VarList OldVars)
); progn
); if
); progn
(prompt "\nNo Dimension(s) selected."); else
); if
(princ)
); defun

Re: lisp file locking

Moshe-A — Tue, 29 Jan 2019 17:48:34 GMT

@Gaganpatel

My Computer Name- Paital

computer name is not enough a login name is also needed.

so in code i painted the login name + computer name to red if your login name is not sandip? then you should change it to the exact login name.

remember:

the login name + computer name that appears in list are allowed to run the lisp

i do not know if your lisp is working and did not test it either.

cheers

moshe

(defun sp:user_validate ()
 (vl-some
   '(lambda (AllowedUserName AllowedComputername)
      (and
        (eq (strcase (getenv "UserName"))     (strcase AllowedUserName))
        (eq (strcase (getenv "ComputerName")) (strcase AllowedComputerName))
      )
   )
   '("Sandip"  "Joe"     "Sandy")	; allowed user names
   '("Paital"  "Joe-w10" "Sandy-w10")   ; allowed computer names
 ); vl-some
); user_validate

(vl-load-com)
(defun dimension_sum (/ i n sumtxt ss sn dobj mea ovr OldVars VarList)
(setq
i 0
n -1
sumtxt "" ; initially empty string
); setq
(if (setq ss (ssget '((0 . "DIMENSION"))))
(progn ; then
(while (setq sn (ssname ss (setq n (1+ n))))
(setq
dobj (vlax-ename->vla-object sn)
i ; accumulating total
(+
i ; total so far
(setq mea ; measurement of this Dimension
(if (= (setq ovr (vla-get-TextOverride dobj)) ""); no override
(vla-get-measurement dobj); then -- measured length
(if (wcmatch ovr "<>*"); else [override] -- just real measurement with suffix [of either kind]?
(vla-get-measurement dobj); then -- measured length
(distof ; else -- numerical equivalent of override
(substr ovr 1 ; start at beginning
(vl-string-search
(if (wcmatch ovr "*%*") "%" "\\"); plus-or-minus vs. new-line
ovr
); vl-string-search
); substr
); distof
); if [real-with-suffix vs. forced]
); if [no-override vs. override]
); setq & mea
); + & i
sumtxt (strcat sumtxt (rtos mea 2 4) "\\P"); add line to Mtext content
); setq
); while
(if (> i 0)
(progn ; then
(prompt (strcat "\nTotal measuremnts : < " (rtos i 2 4) " > ."))
(setq OldVars (mapcar 'getvar (setq VarList '(cmdecho clayer))))
(setvar 'cmdecho 0)
(command "_.layer" "_make" "DimSums" "_plot" "_no" "" "")
(entmake
(list
'(0 . "MTEXT") '(100 . "AcDbEntity") '(100 . "AcDbMText")
'(8 . "DimSums"); Layer
(cons 10 (getvar 'viewctr)); insertion point
'(40 . 12); height
'(41 . 0.0); ref. rectangle width
'(71 . 1); top-left justification
'(72 . 5); direction by Style
(cons 1 (strcat sumtxt "total = " (rtos i 2 4))); content
'(7 . "STANDARD"); Style
'(50 . 0.0); rotation
); list
); entmake
(command "_move" "_last" "" (getvar 'viewctr) pause)
(mapcar 'setvar VarList OldVars)
); progn
); if
); progn
(prompt "\nNo Dimension(s) selected."); else
); if
); defun


(defun c:dimsum ()
 (if (not (sp:user_validate))
  (prompt "\nCommand is Locked.")
  (dimension_sum) 
 ); if
 (princ)
)

Re: lisp file locking

scot-65 — Tue, 29 Jan 2019 23:48:10 GMT

This looks better - not woven into the program as you showed earlier.
[I would have used (exit), which otherwise I would never use]

Other possible solutions:
a) Registry key initiated into the workstation by the proprietor [can be a time bomb].
b) (if (not (and (load (findfile "CheckName.fas")) (CheckName "<LoginName>" "<ComputerName>")))
(progn (alert "Command is locked.") (exit))
);if

untested.

???

Re: lisp file locking

Scottu2 — Wed, 30 Jan 2019 01:40:59 GMT

This appears to be a menu option, one lisp file with 4 programs.

@kalandipaital1989 wrote: suppose one lisp file inner four types of program use.

This program will add dimensions and place the result on a different layer.

Enter Password: xxx

if xxxx = "111" then run program1

if xxxx = "222" then run program2

if xxxx = "33" then run program3

if xxxx = "44" then run program4