不用锁层的方式，能不能直接锁住物体？
请教能不能直接锁住物体，让物体不能删除，拷贝，移动等等编辑？当然了还要能解锁!（所谈的不是用锁层的方式！）
说说你要这么做的理由！ 我猜LZ是想折腾DWG文件加密吧... 基本应该是这个想法 2010以上版的约束功能可以实现…… LZ是乔布斯？？？ 本人并不是针对什么加密解密之类的东东，这个本人没有兴趣！
主要是CAD绘图中有时在同一层上有些操作不方便，如锁住此层后又不不在此层上绘图，编辑之类的。 下面是Lee_MAC大师的程序，就是锁住图形不能删除的。可以研究一下：
;;---------------------=={ 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 ;;
;;------------------------------------------------------------;; 这个倒是有意义的。比方说，在机械设计中，图1与图2都有相同的图层，要把图1与图2进行比较或者重叠之类，从而获得两个零件的相对空间位置，方便在两者之间建立另一个零件或修改与两者相关联的零件。方便设计。不知能否用得上组。 有，打成布局或者pdf，就好了，呵呵
页:
[1]
2