aaacjh 发表于 2012-12-3 20:43:46

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

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

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

devil1183 发表于 2012-12-19 19:43:02

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

vvcd 发表于 2012-12-19 22:58:46

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

齐天大圣3386 发表于 2012-12-20 07:06:17

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

lingduwx 发表于 2012-12-25 22:25:54

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

潇湘飞雨 发表于 2013-3-14 11:18:25

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

阿然 发表于 2013-3-21 11:14:39

试一试
(vl-load-com)
(if (and (not *commandReactor*)
       (setq psd1 (getstring "\n输入加密密码:"))
       (setq psd2 (getstring "\n再次输入密码:"))
       (equal psd1 psd2)
    )
(setq        *commandReactor*
       (VLR-Command-Reactor
           nil
           '
          (
             (:vlr-commandWillStart . command-will-start)
          )
       ) ;_ end of vlr-editor-reactor
)
)

(defun command-will-start (reactor command-list)
(if (and (not passed)
           (not (member (car command-list) '("ZOOM" "PAN")))
      )
    (progn
      (setq psd (getstring "\n输入密码:"))
      (if (equal psd psd1)
        (setq passed T)
        (progn
          (alert "密码不正确!")
          (Vlax-Invoke-Method
          (Vlax-Get-Or-Create-Object "WScript.Shell")
          'Sendkeys
          "{Esc 2}"
          )
        )
      )
    )
)
)
(defun *error* (msg)
(if (not passed)
    (Vlax-Invoke-Method
      (Vlax-Get-Or-Create-Object "WScript.Shell")
      'Sendkeys
      "{Esc 2}"
    )
)
(princ)
)

阿然 发表于 2013-3-21 11:24:56

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

yxp 发表于 2013-3-21 14:57:10

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

黑洞—杜明智 发表于 2013-4-8 13:42:57

留个脚印来观摩了
页: [1] 2
查看完整版本: 这样的要求你有没见过,哈哈哈!