Locking objects

Anonymous — Fri, 20 Nov 2015 14:06:55 GMT

Is there a way to lock an object in AutoCAD 2016? Just an object or objects, not whole layers.

Re: Locking objects

Guillaume.Desmedt — Fri, 20 Nov 2015 14:40:09 GMT

No you can't...

You can just move your objects in a layer that you 'll lock after, but that's not what you want...

Rgds

Re: Locking objects

Anonymous — Fri, 20 Nov 2015 14:32:12 GMT

that would be a super nice feature.

Re: Locking objects

Guillaume.Desmedt — Fri, 20 Nov 2015 14:36:50 GMT

If any Autocad developper can hear you...

Re: Locking objects

cadwomen — Fri, 20 Nov 2015 15:02:00 GMT

sorry fok´s but you are the one they are all day thinking about .. a wheel woud be a nice Thing ... bt what can i do with ?

;;---------------------=={ Object Lock }==--------------------;;
;; ;;
;; Purely academic code demonstrating the ability to use ;;
;; reactors to prevent modification of a selection of ;;
;; objects, and furthermore retain such security between ;;
;; drawing sessions. ;;
;; ;;
;; The code is written for demonstration only since it quite ;;
;; clearly isn't practical. The functionality can be ;;
;; matched by simply using a Locked Layer; and moreover ;;
;; don't get your hopes up in thinking that you can use this ;;
;; code to prevent third party modification of your drawings ;;
;; since the reactors need to be loaded before the lock is ;;
;; effective. And who's going to fall for that one... 😉 ;;
;; ;;
;; The program uses two reactors: an Editor Reactor - to ;;
;; undo any modification of a selection of objects following ;;
;; the completion of a command or LISP program; and a ;;
;; Drawing Reactor - to save the handles of the locked ;;
;; Objects in a dictionary so that the reactors may be ;;
;; rebuilt when the drawing is next opened. ;;
;; ;;
;; The concept of 'undeleting' entities following a command ;;
;; was first proposed (to my knowledge) by Luis Esquivel in ;;
;; the following thread at TheSwamp: ;;
;; ;;
;; http://www.theswamp.org/index.php?topic=6455.0 ;;
;; ;;
;; I have expanded on this idea to undo, not only a deletion ;;
;; but all changes made to an object by storing the DXF data ;;
;; of the entity upon locking, and continuously reverting ;;
;; back to this data following modification. ;;
;; ;;
;; I would also like to thank Gilles Chanteau, since with ;;
;; aid of his 'True Rectangle' program, I learnt a great ;;
;; deal with regard to saving data in Drawing Dictionaries. ;;
;; Merci! ;;
;;------------------------------------------------------------;;
;; Author: Lee Mac, Copyright © 2011 - www.lee-mac.com ;;
;;------------------------------------------------------------;;
;; Version 1.0 - 08-05-2011 ;;
;;------------------------------------------------------------;;
;;------------------------------------------------------------;;
;; Lock Objects - Locks Selected Unlocked Objects ;;
;;------------------------------------------------------------;;
(defun c:LockObjects ( / ss i j h e )
(if (setq ss (ssget))
(progn
(repeat (setq j 0 i (sslength ss))
(if
(not
(member
(setq h
(cdr
(assoc 5
(setq e
(entget
(ssname ss (setq i (1- i)))
)
)
)
)
)
*handle*
)
)
(setq *handle* (cons h *handle*) *elist* (cons e *elist*) j (1+ j))
)
)
(if
(not
(vl-some
(function
(lambda ( r )
(eq "ObjectLock" (vlr-data r))
)
)
(cdar (vlr-reactors :vlr-editor-reactor))
)
)
(vlr-editor-reactor "ObjectLock"
(list
(cons :vlr-commandended 'ObjectLockCallBack)
(cons :vlr-lispended 'ObjectLockCallBack)
)
)
)
(if
(not
(vl-some
(function
(lambda ( r )
(eq "ObjectLock" (vlr-data r))
)
)
(cdar (vlr-reactors :vlr-dwg-reactor))
)
)
(vlr-dwg-reactor "ObjectLock"
(list
(cons :vlr-beginsave 'ObjectLockSave)
)
)
)
(princ
(strcat "\n"
(itoa j) " Object(s) Locked, Total: " (itoa (length *handle*)) " Locked."
)
)
)
)
(princ)
)
;;------------------------------------------------------------;;
;; Unlock Objects - Unlocks Selected Locked Objects ;;
;;------------------------------------------------------------;;
(defun c:UnLockObjects ( / ss i j r )
(if *handle*
(if (setq ss (ssget))
(progn
(repeat (setq j 0 i (sslength ss))
(if
(member
(setq h
(cdr
(assoc 5
(setq e
(entget
(ssname ss (setq i (1- i)))
)
)
)
)
)
*handle*
)
(setq *handle* (vl-remove h *handle*) *elist* (vl-remove e *elist*) j (1+ j))
)
)
(princ
(strcat "\n"
(itoa j) " Object(s) Unlocked, Total: " (itoa (length *handle*)) " Locked."
)
)
)
)
(princ "\n--> No Objects Locked.")
)
(if (null *handle*)
(mapcar
(function
(lambda ( r )
(if (eq "ObjectLock" (vlr-data r)) (vlr-remove r))
)
)
(apply 'append (mapcar 'cdr (vlr-reactors)))
)
)
(princ)
)
;;------------------------------------------------------------;;
;; Disable Lock - Unlocks Everything ;;
;;------------------------------------------------------------;;
(defun c:DisableLock ( / acdic dic )
(mapcar
(function
(lambda ( r )
(if (eq "ObjectLock" (vlr-data r)) (vlr-remove r))
)
)
(apply 'append (mapcar 'cdr (vlr-reactors)))
)
(setq acdic
(vla-get-dictionaries
(vla-get-activedocument (vlax-get-acad-object))
)
)
(if (setq dic (ObjectLockGetItem acdic "ObjectLock"))
(vla-delete dic)
)
(setq *handle* nil *elist* nil)
(princ)
)
;;------------------------------------------------------------;;
(defun ObjectLockCallBack ( a b )
(mapcar
(function
(lambda ( h )
(or (entget (handent h)) (entdel (handent h)))
)
)
*handle*
)
(mapcar 'entmod *elist*)
(princ)
)
;;------------------------------------------------------------;;
(defun ObjectLockGetItem ( collection item )
(if
(not
(vl-catch-all-error-p
(setq item
(vl-catch-all-apply 'vla-item (list collection item))
)
)
)
item
)
)
;;------------------------------------------------------------;;
;; Saving ;;
;;------------------------------------------------------------;;
(defun ObjectLockSave ( a b / acdic dic xrec l )
(if *handle*
(progn
(setq acdic
(vla-get-dictionaries
(vla-get-activedocument (vlax-get-acad-object))
)
)
(if (not (setq dic (ObjectLockGetItem acdic "ObjectLock")))
(setq dic (vla-add acdic "ObjectLock"))
)
(if (not (setq xrec (ObjectLockGetItem dic "Handles")))
(setq xrec (vla-addxrecord dic "Handles"))
)
(vla-setxrecorddata xrec
(vlax-safearray-fill
(vlax-make-safearray vlax-vbinteger (cons 0 (1- (length *handle*))))
(repeat (length *handle*) (setq l (cons 1 l)))
)
(vlax-safearray-fill
(vlax-make-safearray vlax-vbvariant (cons 0 (1- (length *handle*))))
(mapcar '(lambda ( h ) (vlax-make-variant h vlax-vbstring)) *handle*)
)
)
)
)
(princ)
)
;;------------------------------------------------------------;;
;; Loading ;;
;;------------------------------------------------------------;;
(
(lambda ( / dic xrec typ val ) (vl-load-com)
(mapcar
(function
(lambda ( r )
(if (eq "ObjectLock" (vlr-data r)) (vlr-remove r))
)
)
(apply 'append (mapcar 'cdr (vlr-reactors)))
)
(if
(and
(setq dic
(ObjectLockGetItem
(vla-get-dictionaries
(vla-get-activedocument (vlax-get-acad-object))
)
"ObjectLock"
)
)
(setq xrec (ObjectLockGetItem dic "Handles"))
(progn (vla-getxrecorddata xrec 'typ 'val) val)
)
(if
(and
(setq *handle*
(vl-remove-if-not
(function
(lambda ( h ) (entget (handent h)))
)
(mapcar 'vlax-variant-value (vlax-safearray->list val))
)
)
(setq *elist* (mapcar '(lambda ( h ) (entget (handent h))) *handle*))
)
(progn
(vlr-editor-reactor "ObjectLock"
(list
(cons :vlr-commandended 'ObjectLockCallBack)
(cons :vlr-lispended 'ObjectLockCallBack)
)
)
(vlr-dwg-reactor "ObjectLock"
(list
(cons :vlr-beginsave 'ObjectLockSave)
)
)
)
)
)
)
)
(princ)
;;------------------------------------------------------------;;
;; End of File ;;
;;------------------------------------------------------------;;

http://www.lee-mac.com/objectlock.html

cu cw

Re: Locking objects

Guillaume.Desmedt — Fri, 20 Nov 2015 15:09:05 GMT

Great, I should check on this website before saying No...

But how do you unlock after... (sorry too fast, it's on website...)

Re: Locking objects

cadwomen — Fri, 20 Nov 2015 15:11:02 GMT

check the Line 121 😉

Re: Locking objects

Anonymous — Fri, 20 Nov 2015 15:22:29 GMT

Fantastic! Works beautifully!
Thank you so much!

Re: Locking objects

Guillaume.Desmedt — Fri, 20 Nov 2015 15:26:00 GMT

It's just missing a annotation of this parameter on objects in case of share CAD file to other users...

Re: Locking objects

cadwomen — Fri, 20 Nov 2015 15:43:22 GMT

so contact

Lee Mac, may he help you with this question

cu cw

topic Re: Locking objects in AutoCAD Forum

Locking objects

Re: Locking objects

Re: Locking objects

Re: Locking objects

Re: Locking objects

Re: Locking objects

Re: Locking objects

Re: Locking objects

Re: Locking objects

Re: Locking objects