raimo 发表于 2011-5-5 07:54:28

问题求助!如何解决这个 CAD免疫LSP 程序的错误

本帖最后由 raimo 于 2011-5-7 20:19 编辑

在论坛里获取LSP程序如下.但是发现在使用中有问题.如果是存在病毒文件名则程序正常运行,如果没有病毒文件名存在,那么就会出错..
提示:" 错误: 参数类型错误: stringp nil"
请高手帮忙检查一下!谢谢

另,我对LSP不是很熟,这个能不能改成SELECT CASE 格式的,像现在的添加一个程序名就要重复复制一段代码


;;    AutoCAD lsp 病毒开启免疫 ;;
(setq nowdwg (getvar "dwgname"))
(setq wjqm (findfile nowdwg))
(setq dwglsp (strcat (substr wjqm 1 (- (strlen wjqm) (strlen nowdwg))) "acad.lsp") )
(if (findfile dwglsp) (progn
(command "del" dwglsp "delay" "500")
(if (findfile dwglsp)
    (alert "注意!!!当前工作路径中发现病毒文件acad.lsp，删除不成功。")
    (alert "提示!发现病毒文件acad.lsp，已成功删除。")
)
))
(setq dwglsp (strcat (substr wjqm 1 (- (strlen wjqm) (strlen nowdwg))) "acaddoc.lsp") )
(if (findfile dwglsp) (progn
(command "del" dwglsp "delay" "500")
(if (findfile dwglsp)
    (alert "注意!!!当前工作路径中发现病毒文件acaddoc.lsp，删除不成功。")
    (alert "提示!发现病毒文件acaddoc.lsp，已成功删除。")
)
))
(princ)




仲文玉 发表于 2011-5-5 08:07:58

括号不成对吧！

zml84 发表于 2011-5-5 09:55:16

http://zml84.blog.sohu.com/161092224.html

raimo 发表于 2011-5-5 21:14:14

zml84 发表于 2011-5-5 09:55 static/image/common/back.gif
http://zml84.blog.sohu.com/161092224.html

多谢楼上的指点,明天去找几个感染机器试试看

raimo 发表于 2011-5-6 17:38:41

试验完毕回来报告。。zml84的程序基本没什么效果。。代码添加到200X.lsp里，运行在有毒的机器里，没有任何效果与提示。。而且打开文件也还是会出现载入acad.lsp的提示
页: [1]
查看完整版本: 问题求助!如何解决这个 CAD免疫LSP 程序的错误