0 Members and 1 Guest are viewing this topic.
Is there anyway I can lock a drawing so that other people can't change the drawn by name? A co-worker here is doing no work and changing the name on my dwgs and telling the boss that she is doing all this work.
Actually, now that I've looked at the program! It's not that difficult to run. What is does is basically signs the dwg with the users name. Of course no one can see that signature
;;; FUNCTION;;; inserts a text object containing the login name of the current user;;; in Modelspace on 0 layer which is not visible;;;;;; ARGUMENTS;;;;;; USAGE;;; ;;; ;;;;;; PLATFORMS;;; 2000+ ;;;;;; AUTHOR;;; Copyright© 2002 Mark S. Thomas;;; mark.thomas@theswamp.org;;;;;; VERSION;;; 1.2 Thu Mar 25, 2004 11:48:11 (defun c:set-name-of-creator (/ *mspace* ln fnd txtobj) (vl-load-com) (setq *mspace* (vlax-get-property (vlax-get-property (vlax-get-acad-object) 'ActiveDocument) 'ModelSpace) ) (if (not (setq ln (getvar 'loginname))) (progn (alert "Sorry, no login name found")(exit)) ) (vlax-for item *mspace* (if (= (vlax-get-property item 'ObjectName) "AcDbText") (if (= (vlax-get-property item 'TextString) (strcat "Created by " ln) ) (setq fnd T) ); if ) ; if ) (if (not fnd) (progn (setq txtobj (vla-addText *mspace* (strcat "Created by " ln) (vlax-3d-point '(0.0 0.0 0.0)) 0.000001 ) ) (vlax-put-property txtobj 'Visible :vlax-false) (if (not (vlax-object-released-p txtobj)) (vlax-release-object txtobj)) ); progn ); if (princ) ); defun