Lỗi Autocad tất cả các phiên bản

[dong007nb 15]

mới gần đây chúng tôi bị gặp phải trường hợp : Đa số các lệnh đều không thục hiện được nếu muốn vẽ thao tác với một lệnh thông thường thi` phải thêm dấu chấm (.) phía trước lệnh

vd :

vẽ đường line binh` thường thì gõ (L) là được nhưng bây giờ phải gõ .L

 

(máy không upload list nào, không thay đổi gì trong acad.pgp

dung` chương trình bkavpro bản quyền, dùng Kaspersky 9 bản quyền)

 

Nghi là bị virut nhung chàng bit loại gi`

Restast lại Autocad không được

Format HDD cài lại Win xong đâu lai vào đấy

 

vậy bác nào biết cách sửa lồi này thì xin hướng dẫn cho anh em với nhé

[dong007nb 15]

hò hò bực mình tìm kiếm cách giải quyết, tôi tìm ra được 2 cách :

 

cách 1:

 

Vào đường dẫn C:\Documents and Settings\USER\Application Data\Autodesk\AutoCAD 2009\R17.2\enu\Support

 

giữ lại 23 đến 25 file đầu con` nhũng file sau xoá sạch

 

 

kiềm nghiệm cool. hết lỗi luôn !

 

cách 2:

 

sử dụng đoạn list có trên cadviet upload chạy khi khởi động autocad trên máy

 

http://www.cadviet.com/upfiles/CVAV_v101_1.lsp :s_big: (tạm dịch là cad việt anti virut) :blink:

 

;; --------- Fix acad.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)

 

kiểm nghiệm cũng ngon không thấy lỗi nữa

 

***** đánh giá cách 2 sài ngon an toàn hơn *****

 

tag : cach khac phuc sua loi lenh cad , loi lenh cad , loi autocad

[Tranngoc 1]

Tôi không rõ lắm nhưng có thể cái Acad.PGP của bạn đã bị lỗi. bạn xem trong Support như đã nói ở trên nhưng mở acad.pgp ra xem có phải ở đầu tên các lệnh có thêm các dấu ( , ) hay không. Nếu đúng thế một là bạn sửa lại hai là ban copy acad.pgp ở máy khác vào . Bạn kiểm tra lại nhe!

[kts.trungdung 0]

hò hò bực mình tìm kiếm cách giải quyết, tôi tìm ra được 2 cách :

 

cách 1:

 

Vào đường dẫn C:\Documents and Settings\USER\Application Data\Autodesk\AutoCAD 2009\R17.2\enu\Support

 

giữ lại 23 đến 25 file đầu con` nhũng file sau xoá sạch

 

 

kiềm nghiệm cool. hết lỗi luôn !

 

cách 2:

 

sử dụng đoạn list có trên cadviet upload chạy khi khởi động autocad trên máy

 

http://www.cadviet.com/upfiles/CVAV_v101_1.lsp :cheers: (tạm dịch là cad việt anti virut) :s_big:

 

;; --------- Fix acad.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)

 

kiểm nghiệm cũng ngon không thấy lỗi nữa

 

***** đánh giá cách 2 sài ngon an toàn hơn *****

 

tag : cach khac phuc sua loi lenh cad , loi lenh cad , loi autocad

 

Cách 3: (Cách này ngon lắm)

Xóa sạch Cad và chuyển sang vẽ tay, đảm bảo sẽ không gặp vấn đề về lệnh. Cùng lắm là hết mực thôi!