Topic: How can this be done?

[ronjonp]

I have a friend working at a company and he just emailed me this message:

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.

Has anyone ever had to deal with this before?  Any suggestions?

Thanks,

Ron

[Mark]

I have a solution but it's not for any newbie. Does your friend know who to edit menus or create a custom menu?

[ELOQUINTET]

uh i feel a bitch slap is in order

[Mark]

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.

[ronjonp]

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

Hey Mark,

This sounds interesting, could you enlighten me?

Ron

[Mark]

Take a look .

Code: [Select]


;;; 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


[ronjonp]

Mark,

I ran the routine and this is what I get:

 error:
bad argument type: VLA-OBJECT nil

This happens the second time I run it?

Also,

How do you recall this information it inserts so you can see it (prove its there)?

Thanks,

Ron

[Mark]

hang on, let me fix it.

[Mark]

Ok, fixed it.

>How do you recall this information it inserts so you can see it (prove its there)?

type in 'find'
enter "created by" in the search box.

[ronjonp]

Do I get to see the fixed version?

[ronjonp]

Nevermind Mark.

Thanks you very much for your help.

Ron

[Doppie]

I am the one having this problem this is cool but its not exactley what i was lookin for.  I was thinking of the same type of thing but text on the drawing that could bee seen and not changed.  Something like having an attribute so that you can not change the value of the default  ei. “Drawn By” name. but still cahng other information within the same attribute like date customer name address....
Thanks for your help

[Mark]

- Doppie
what version of ACAD are you using?

[Keith™]

You can make the attribute of the block preset and constant. Then it could not be edited. You will of course have to update the block with attsync

[Doppie]

I am using architectural desktop 3.3
thanks for your help

[Mark]

Well I can't come up with anything else, not right now anyway.