[下载]：CAD加锁程序，加锁后的图只能看，不能更改

江南雨

非常不错.

海纳百川

没有很多得实际用处

ji3499222

但愿能用。我是搞测绘的，一旦把资料交给甲方，要钱可就难了。

alonglee

鎖了之後還能解鎖嗎?

shuaier

好东东，我下载了。

laolin

对任何版本CAD都管用吗？

zhiwing

保存到别的盘，好象可以用啊。

良子

谁能将其汉化更好用.

shijt

我的是CAD2005，可以加密。但是加密后只要用“X”把整块炸开，还照样可以编辑，请问楼主，是不是有什么地方我做得不对呀。

chenjb990611

这东西真的很有用，维护知识产权好！

fenglee

图纸加密可以保护劳动成果的说法实在勉强，既然可以看，那么保护的只是绘图员的成果，我相信设计者的成果应该不是简单的制图劳动。

hhjj9898

可以告诉我，编程的原理！

david96007

是谁删了我的贴子?!

解锁程序如下:

2. (defun c:tt ()
   
3.   (setq nam (cdr (assoc 2 (entget (car (entsel))))))
   
4.   (setq pt '(0 0 0))
   
5.   (entmake (list '(0 . "INSERT")
   
6.                  (CONS '100 "AcDbBlockrefence")
   
7.                  (CONS '70 0)
   
8.                  (CONS '71 0)
   
9.                  (cons '2 nam)
   
10.                  (cons '10 pt)
    
11.            )
    
12.   )
    
13.   (setq entl (entlast))
    
14.   (command "_explode" entl)
    
15.   (setq entl (entlast))
    
16.   (command "_explode" entl)
    
17. )

(defun c:tt ()<br />   (setq nam (cdr (assoc 2 (entget (car (entsel))))))<br />   (setq pt '(0 0 0))<br />   (entmake (list '(0 . "INSERT")<br />                  (CONS '100 "AcDbBlockrefence")<br />                  (CONS '70 0)<br />                  (CONS '71 0)<br />                  (cons '2 nam)<br />                  (cons '10 pt)<br />            )<br />   )<br />   (setq entl (entlast))<br />   (command "_explode" entl)<br />   (setq entl (entlast))<br />   (command "_explode" entl)<br /> )

shqn

建议最好是只可打印，复制和另存都禁用。

林杉

我已经下载并用过了,很好用.并且用起来非常简单.但是,没有解密程序,就差点什么了,希望有人能搞一个解密的程序上来,谢谢了