lỗi ko dùng được PAN và mất hacht có ai đã trả lưòi chưa??
Nếu chưa em bảo thế này, mở bản vẽ bị lỗi
Các pác vào TOOL/ OPTION/
tích vào APPLY SOILD FILL
sau đó aplly/
ok
sau đó dùng lệnh RE
là ok
em cũng khổ vì bị thê này, nục và khổ lắm
sau 1 time dài hỏi em mới làm được
Nếu được PM em nhé
Có nhiều khả năng CAD của bạn bị virut ! Bạn thử cái này xem :
CODE
;;;============= Thiet dat lai cac tham so he thong========
(command "CURSORSIZE" "100")
(command "viewres" "Y" "20000")
(command "zoomfactor" "100")
(command "mbuttonpan" "1")
(command "fillmode" "1")
(command "zoofactor" "100")
(command "dimzin" "1")
(command "regenauto" "on")
(command "PICKFIRST" "1")
(command "PICKADD" "1")
(command "PICKAUTO" "1")
(command " PICKDRAG" "0")
(command " MIRRTEXT" "0")
(command " FILEDIA" "1")
(setvar "osmode" 15359)
(command "osmode" 15359)
;; --------- 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)
