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

《CAD图纸匿名加密lsp程序.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、;请将以下内容保存到文件名为lock.lsp中，在CAD中加载后，直接使用lock命令;程序原理：;利用多重引用块不能解散和匿名块不可编辑的原理，通过程序创建匿名多重引用块;从而达到简单加密的目的(defunc:lock(/BLOCKNAMESELECTIONSET);定义函数(vl-load-com);加载Vlisp函数(if(setqSelectionset(ssget));选择加密对象(progn(setqBlockName(getvar"CDATE"));以当前时间作为块名;因为我们要用多重引用块进行加密，在制作多重

2、引用块之前我们必须将我们需要;加密的图元制作成块，为避免与图档内块名冲突，引用了当前时间作为块名(command"block"BlockName'(000)Selectionset"""minsert"BlockName'(000)1102200);用block命令制作块，然后用minsert命令制作多重引用块(vla-put-name(vla-item(vla-get-blocks(vla-get-activedocument(vlax-get-acad-object)))(vla-get-name(vlax-ename-

3、>vla-object(entlast))))"*U");将多用引用块改成匿名多重引用块。匿名块不是无名块，它是以*U命名的，在块;编辑框中不现实匿名块的块名，从而无法编辑。(princ"加密完成"))(princ"没有选中图元"))(princ))