cad vba中的权限实现

首先建立一个工程，工程中的代码在http://download.csdn.net/source/2977463，在cad 安装目录中新建acad.lsp 文件 在文件中写上vba自动运行代码：

(defun S::STARTUP()
(command "_-vbarun" "model1.qidong")
)

保存，即可，另外，工程中需要的用户名和密码数据库，放在d盘中即可，本次只使用了一条数据，当存在多条数据时应该在数据库循环查找即可，

 

当然也可以添加菜单，然用户随时可以进行权限的更改，只需要在cad中打开工具—》自定义->界面-》打开菜单-》右击，新建菜单，然后再命令列表中新建命令，在宏的位置处添加：_-vbarun c:/acad.dvb!qidong，注意，这里的路径千万不能带空格，如果带空格，就会找不到需要执行的宏，目前还没有找到解决方法，有人知道，麻烦告诉下我

 

整个程序就是这样。很简单，但比较实用！