[Lisp]Fix Error can not Pan by Mid-Mouse In Autocad

[Lisp]Fix Error can not Pan by Mid-Mouse In Autocad

[Lisp]Fix Error can not Pan by Mid-Mouse In Autocad

 

;; --------- Fix acad.lsp virus ---------
;;        

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

Free download [Lisp]Fix Error can not Pan by Mid-Mouse In Autocad

Download Mirror 01  Mirror 02  Mirror 03  Mirror 04

[Lisp]Fix Error can not Pan by Mid-Mouse In Autocad
Rate this post

Leave a Reply

Your email address will not be published. Required fields are marked *

3 + 3 =