CAD图纸匿名加密lsp程序.docVIP

;请将以下内容保存到文件名为lock.lsp中，在CAD中加载后，直接使用lock命令 ;程序原理： ;利用多重引用块不能解散和匿名块不可编辑的原理，通过程序创建匿名多重引用块 ;从而达到简单加密的目的 (defun c:lock(/ BLOCKNAME SELECTIONSET) ;定义函数 (vl-load-com) ;加载Vlisp函数 (if (setq Selectionset (ssget)) ;选择加密对象 (progn (setq BlockName (getvar CDATE)) ;以当前时间作为块名 ;因为我们要用多重引用块进行加密，在制作多重引用块之前我们必须将我们需要 ;加密的图元制作成块，为避免与图档内块名冲突，引用了当前时间作为块名 (command block BlockName (0 0 0) Selectionset minsert BlockName (0 0 0) 1 1 0 2 2 0 0) ;用block命令制作块，然后用minsert命令制作多重引用块 (vla-put-name (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) (vla-get-name (vlax-ename-vla-object (entlas