这样的要求你有没见过,哈哈哈!

aaacjh

"对自己书写的 CAD 文字,一旦书写完成,编辑或删除它需要输入 事先预设的密码,否则不允许用户修改或删除"

我的同事,有一天突然提出一个要求,我一听一想,这得好好考虑考虑!
你们也考虑考虑吧!

devil1183

关闭对象，输入密码才打开

vvcd

哇瑟还有这样的要求，太强了

齐天大圣3386

这是可以做到的，但是，很复杂。嘿嘿，估计免费的是找不到的。可以参考一下数字签名功能。

lingduwx

如果针对CAD里面所有的物体都不能进行编辑和删除就更好了，如果需要编辑，则输入一个设置好的命令，命令会提示输入密码，正确时候则可以更改，平时不编辑的话，则不会提示输入密码

潇湘飞雨

感觉想法有够奇葩的！！！！！！

阿然

试一试

1. (vl-load-com)
   
2. (if (and (not *commandReactor*)
   
3.          (setq psd1 (getstring "\n输入加密密码:"))
   
4.          (setq psd2 (getstring "\n再次输入密码:"))
   
5.          (equal psd1 psd2)
   
6.     )
   
7.   (setq        *commandReactor*
   
8.          (VLR-Command-Reactor
   
9.            nil
   
10.            '
    
11.             (
    
12.              (:vlr-commandWillStart . command-will-start)
    
13.             )
    
14.          ) ;_ end of vlr-editor-reactor
    
15.   )
    
16. )
    
17. 
    
18. (defun command-will-start (reactor command-list)
    
19.   (if (and (not passed)
    
20.            (not (member (car command-list) '("ZOOM" "PAN")))
    
21.       )
    
22.     (progn
    
23.       (setq psd (getstring "\n输入密码:"))
    
24.       (if (equal psd psd1)
    
25.         (setq passed T)
    
26.         (progn
    
27.           (alert "密码不正确!")
    
28.           (Vlax-Invoke-Method
    
29.             (Vlax-Get-Or-Create-Object "WScript.Shell")
    
30.             'Sendkeys
    
31.             "{Esc 2}"
    
32.           )
    
33.         )
    
34.       )
    
35.     )
    
36.   )
    
37. )
    
38. (defun *error* (msg)
    
39.   (if (not passed)
    
40.     (Vlax-Invoke-Method
    
41.       (Vlax-Get-Or-Create-Object "WScript.Shell")
    
42.       'Sendkeys
    
43.       "{Esc 2}"
    
44.     )
    
45.   )
    
46.   (princ)
    
47. )
    

(vl-load-com)<br /> (if (and (not *commandReactor*)<br />          (setq psd1 (getstring "\n输入加密密码:"))<br />          (setq psd2 (getstring "\n再次输入密码:"))<br />          (equal psd1 psd2)<br />     )<br />   (setq        *commandReactor*<br />          (VLR-Command-Reactor<br />            nil<br />            '<br />             (<br />              (:vlr-commandWillStart . command-will-start)<br />             )<br />          ) ;_ end of vlr-editor-reactor<br />   )<br /> )<br /> <br /> (defun command-will-start (reactor command-list)<br />   (if (and (not passed)<br />            (not (member (car command-list) '("ZOOM" "PAN")))<br />       )<br />     (progn<br />       (setq psd (getstring "\n输入密码:"))<br />       (if (equal psd psd1)<br />         (setq passed T)<br />         (progn<br />           (alert "密码不正确!")<br />           (Vlax-Invoke-Method<br />             (Vlax-Get-Or-Create-Object "WScript.Shell")<br />             'Sendkeys<br />             "{Esc 2}"<br />           )<br />         )<br />       )<br />     )<br />   )<br /> )<br /> (defun *error* (msg)<br />   (if (not passed)<br />     (Vlax-Invoke-Method<br />       (Vlax-Get-Or-Create-Object "WScript.Shell")<br />       'Sendkeys<br />       "{Esc 2}"<br />     )<br />   )<br />   (princ)<br /> )<br />

阿然

是的，只是好玩，不加载的情况想不出来

yxp

再强的程序也需要加载吧，不加载你怎样实现这个需求？？
可以参考病毒的原理了。

黑洞—杜明智

留个脚印来观摩了