(defun C:MyCreatePassword( / PCCode ADcode MPass)
(setq PCCode (GETSTRING "\n Please input the computer code:\t"))
;CCode是客户机器上读出的机器码
(setq ADCode (GETSTRING "\n Please input the Additional code (12digit) such as \
123456789123\n The Additional code must be same as you have wrote in the software\
sent to your client\t:"))
;;ADCode是用来生成密码的，一定要确保在客户的机器上也使用了相同的ADCode
(setq MPass (create_product_password ADCode PCCode))
(alert (strcat "the Password for this PC-Code is : " MPass))
(PRINC)
)
lisp是开发吗，我下载的visual lisp for r14装到机器上后，但找不到，请高手帮我解决！！
置顶卡
