Tech ACAD: ACAD.VLX - Virus !

[lecrabe]

 

Hello

 

Je ne la connaissais pas celle la :

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

 

Qq'un a t-il deja eu ce genre de probleme !

 

Le Decapode

 

[Invité Patrick]

J'en avais parlé au mois d'aout, mais personnellement je n'ai pas eu ce problème et ne connait personne qui l'ai eu.

[jacobs33]

bonjour,

 

j'ai le probléme.

 

1 fichier "acad.lsp" généré dans le répertoire courant du fichier a sont ouverture.

 

avec message d'erreur suivant.

 

Help ....

 

 

[surligneur] Ouverture d'un fichier au format AutoCAD 2004/LT 2004.

Régénération de la présentation.

Régénération du modèle.

; erreur: no function definition: «ACAD

Utilitaires de menu AutoCAD chargés.Commande inconnue "UNDEFINE". Appuyez sur

F1 pour obtenir de l'aide.

Tout a été annulé

undefine Commande inconnue "UNDEFINE". Appuyez sur F1 pour obtenir de l'aide.

qsave Commande inconnue "QSAVE". Appuyez sur F1 pour obtenir de l'aide.

undefine Commande inconnue "UNDEFINE". Appuyez sur F1 pour obtenir de l'aide.

line Commande inconnue "LINE". Appuyez sur F1 pour obtenir de l'aide.

undefine Commande inconnue "UNDEFINE". Appuyez sur F1 pour obtenir de l'aide.

quit Commande inconnue "QUIT". Appuyez sur F1 pour obtenir de l'aide.

undefine Commande inconnue "UNDEFINE". Appuyez sur F1 pour obtenir de l'aide.

explode Commande inconnue "EXPLODE". Appuyez sur F1 pour obtenir de l'aide.

undefine Commande inconnue "UNDEFINE". Appuyez sur F1 pour obtenir de l'aide.

trim Commande inconnue "TRIM". Appuyez sur F1 pour obtenir de l'aide.

undefine Commande inconnue "UNDEFINE". Appuyez sur F1 pour obtenir de l'aide.

extend Commande inconnue "EXTEND". Appuyez sur F1 pour obtenir de l'aide.

undefine Commande inconnue "UNDEFINE". Appuyez sur F1 pour obtenir de l'aide.

move Commande inconnue "MOVE". Appuyez sur F1 pour obtenir de l'aide.

undefine Commande inconnue "UNDEFINE". Appuyez sur F1 pour obtenir de l'aide.

plot Commande inconnue "PLOT". Appuyez sur F1 pour obtenir de l'aide.

DWG Autodesk. Ce fichier est un fichier DWG approuvé dont le dernier

enregistrement a été effectué dans une application Autodesk ou dans une

application sous licence Autodesk.[/surligneur]

[pierrevigneux]

J'ai exactement le même problème que toi!

jacobs33

J'essai de m'en défaire avant que ça s'agrave si quelqu'n as la solution j'aimerais le savoir .

 

Merci!

[jacobs33]

J'ai trouvé ça ce matin,

 

Ça a l'air de fonctionner ....

 

http://www.cadviet.com/forum/index.php?showtopic=9088

[jacobs33]

suite au commentaire précèdent

 

 

[surligneur] :( attention tous les fichiers "acad.lsp" sont supprimer du disque c: :( [/surligneur]

[pierrevigneux]

Salut!

J,ai essayé le lsip Vietnamien et ça ne foctionne pas, sur Autocad 2004 ?

 

****************************************

CADViet AntiVirus v1.01 is starting ...; error: bad argument type: stringp nil

 

@+

[jacobs33]

Quand tu édit le fichier "CVAV_v101.lsp" avec un éditeur de texte il y a bien ce code a l'intérieur

 

 

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

[pierrevigneux]

Salut jacobs33

Quand tu édit le fichier "CVAV_v101.lsp" avec un éditeur de texte il y a bien ce code a l'intérieur

J'ai essayé ton code et celui de cadviet, toujour la même réponse ?

 

Merci @+

[jacobs33]

Salut,

 

Pour ce fonction sur la version "2000" :) :)

[jacobs33]

Sans les fautes....

 

Pour moi ça fonctionne bien sur la version 2000 :) :) :)

[pierrevigneux]

Bonjour jacobs33

 

Quand tu édit le fichier "CVAV_v101.lsp" avec un éditeur de texte il y a bien ce code a l'intérieur

Tu peux m'envoyer ton code au complet peut-être que ça purrais fonctionner?

 

Merci !

pierre.vigneux@gmail.com

[pierrevigneux]

Bonsoir jacobs33

 

Finalement j'ai décidé de réinstaller Autocad 2004 au complet et surprise CVAV_v101.lsp fonctionne très bien.

Je suis soulagé

 

Merci @+