给你的LISP程序加把“锁”

newer

下面代码，口令“1234”如果输入不正确，是不会显示颜色对话框的。

(xd::doc:inputpassword _pass repeat_num info)
参数：
_pass ----  口令字符串（通过函数(xd::doc:password "明文字符串"）)获得
repeat_num-- 口令不正确允许重新输入的次数
info  ---- 口令不正确结束后的提示字符串打印到屏幕
=====================================
密码输入使用了HOOK技术，*号显示在输入框里面。




===================================
命令: (xd::doc:password "1234")
"15041741e6b2834ae6700a4610a4f7fe"

1. (defun c:tt ()
   
2.   (setq _pass "15041741e6b2834ae6700a4610a4f7fe")
   
3.   (xd::doc:inputpassword _pass 3 "\n口令不正确，不能通过！\n")
   
4.   (acad_colordlg 1)
   
5.   (princ)
   
6. )
   
7. 
   

(defun c:tt ()<br />   (setq _pass "15041741e6b2834ae6700a4610a4f7fe")<br />   (xd::doc:inputpassword _pass 3 "\n口令不正确，不能通过！\n")<br />   (acad_colordlg 1)<br />   (princ)<br /> )<br /> <br />

fl502

程序在哪里？怎么下载使用？
晓东通用LISP函数库和我的命令cc冲突怎么办？
谢谢！

newer

fl502 发表于 2018-4-2 17:21
程序在哪里？怎么下载使用？
晓东通用LISP函数库和我的命令cc冲突怎么办？
谢谢！

下载 XDRX API 2018.0328，如果没有这个函数，就需要更新 通用LISP函数库到 2018.04.01版本就有了。

你说的冲突具体指的的是什么？

fl502

newer 发表于 2018-4-2 17:55
下载 XDRX API 2018.0328，如果没有这个函数，就需要更新 通用LISP函数库到 2018.04.01版本就有了。

...

我自定义了一个命令，是CC。
装了通用函数库后，再输入cc，就变成其它程序了。这个冲突怎么解决？谢谢！

newer

fl502 发表于 2018-4-3 09:17
我自定义了一个命令，是CC。
装了通用函数库后，再输入cc，就变成其它程序了。这个冲突怎么解决？谢谢！ ...

等下版本通用LISP函数库更新。