《CAD图纸匿名加密lsp程序.doc》由会员分享，可在线阅读，更多相关《CAD图纸匿名加密lsp程序.doc（2页珍藏版）》请在三一文库上搜索。
1、; 请将以下内容保存到文件名为 lock.lsp 中，在 CAD 中加载后，直接使用 lock 命令 ;程序原理： ;利用多重引用块不能解散和匿名块不可编辑的原理，通过程序创建匿名多重引用块;从而达到简单加密的目的(defun c:lock(/ BLOCKNAME SELECTIONSET);定义函数(vl-load-com); 加载 Vlisp 函数(if (setq Selectionset (ssget);选择加密对象(progn(setq BlockName (getvar CDA TE);以当前时间作为块名;因为我们要用多重引用块进行加密，在制作多重引用块之前我们必须将我们需要;加密
2、的图元制作成块，为避免与图档内块名冲突，引用了当前时间作为块名(command block BlockName (0 0 0) Selectionset minsertBlockName (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 (entlast) *U);将多用引用块改成匿名多重引用块。匿名块不是无名块，它是以*U 命名的，在块;编辑框中不现实匿名块的块名，从而无法编辑。（princ n 加密完成 ）(princ n 没有选中图元 )(princ)