错误正文错误

CADWarrior · 发表于 2022-7-6 07:27:58

大家好，

好久不见。我似乎有问题，我无法解决。

长话短说，我制作了一个网站，允许用户通过ID将USB驱动器分配给公司。在USB驱动器注册后，在MP中使用（downloadlisp）功能。Fas将下载所有指定的Lisp/Fas文件到所述客户。

现在它对我来说非常有效，但工作中的一个人有点问题。我以前从未见过这个错误，我似乎找不到它的文档，所以说一点都让我困惑。在这个问题上有任何帮助都会很好。提前为文字墙道歉。在这件事上，说一点都让我困惑。在这个问题上有任何帮助都会很好。提前为文字墙道歉。

His-错误

copy

Command: (LOAD "E:/Loader.LSP")
MP.fas
Downloading ...
Downloading ...
Downloading ...
Downloading ...
Downloading ...; error: invalid binary file format: bad body(2)

采矿-工作

copy

Command: (LOAD "F:/Loader.LSP")
MP.fas
Downloading ...
Downloading ...
Downloading ...
Downloading ...
Downloading ...
MP.fas
U-Scale by text.fas
U-Scale Block.fas
U-Round.fas
U-Pdfprint.fas

装载机。lsp

copy


(vl-load-com)
(progn
(setq quiet 0) ;; 0 for quiet 1 for alert
(setq dirltr (list "A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z"))
(foreach Dir dirltr
(if (or (/= (findfile (strcat Dir":\\Loader.lsp")) nil) (/= (findfile (strcat Dir":\\Loader.fas")) nil))
(setq Path Dir)
)
)
(setq lload (List ))
(foreach file (vl-directory-files (strcat Path ":\") "*.fas")
(setq lload (append lload (list file)))
)
(foreach file (vl-directory-files (strcat Path ":\") "*.lsp")
(setq lload (append lload (list file)))
)
(Foreach lisp Lload
(if (not (or (= (strcase lisp) (strcase "Loader.lsp")) (= (strcase lisp) (strcase "Loader.fas"))))
(progn
(load (strcat Path ":\" Lisp))
(if (= quiet 1)
(alert Lisp)
(princ (strcat lisp "\r\n"))
)
)
)
)
(DownloadLisp)
(Foreach lisp Lload
(if (not (or (= (strcase lisp) (strcase "Loader.lsp")) (= (strcase lisp) (strcase "Loader.fas"))))
(progn
(load (strcat Path ":\" Lisp))
(if (= quiet 1)
(alert Lisp)
(princ (strcat lisp "\r\n"))
)
)
)
)
)

新装载机。Lsp（不是对他的测试，而是对我的测试）

copy


(vl-load-com)
(progn
 (setq d (rtos (getvar "CDATE") 2 6)
yr (substr d 3 2)
mo (substr d 5 2)
day (substr d 7 2)
)
 (setq date (strcat mo "-" day "-" yr))
 (setq quiet 0) ;; 0 for quiet 1 for alert
 (setq dirltr (list "A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z"))
 (foreach Dir dirltr
   (if (or (/= (findfile (strcat Dir":\\Loader.lsp")) nil) (/= (findfile (strcat Dir":\\Loader.fas")) nil))
     (setq Path Dir)
     )
   )
 (setq lload (List ))
 (foreach file (vl-directory-files (strcat Path ":\") "*.fas")
   (setq lload (append lload (list file)))
   )
 (foreach file (vl-directory-files (strcat Path ":\") "*.lsp")
   (setq lload (append lload (list file)))
   )
 (Foreach lisp Lload
   (if (not (or (= (strcase lisp) (strcase "Loader.lsp")) (= (strcase lisp) (strcase "Loader.fas"))))
     (progn
(load (strcat Path ":\" Lisp))
(if (= quiet 1)
  (alert Lisp)
  (princ (strcat lisp "\r\n"))
  )
)
     )
   )
 (if (not (vl-registry-read "HKEY_CURRENT_USER\\AutoCADLastLispUpdate"))
   (vl-registry-write "HKEY_CURRENT_USER\\AutoCADLastLispUpdate" "" Date)
   )
 (if (/= (vl-registry-read "HKEY_CURRENT_USER\\AutoCADLastLispUpdate") Date)
   (progn
     (vl-registry-write "HKEY_CURRENT_USER\\AutoCADLastLispUpdate" "" Date)
     (DownloadLisp)
     (setq lload (List ))
     (foreach file (vl-directory-files (strcat Path ":\") "*.fas")
(setq lload (append lload (list file)))
)
     (foreach file (vl-directory-files (strcat Path ":\") "*.lsp")
(setq lload (append lload (list file)))
)
     (Foreach lisp Lload
(if (not (or (= (strcase lisp) (strcase "Loader.lsp")) (= (strcase lisp) (strcase "Loader.fas"))))
  (progn
    (load (strcat Path ":\" Lisp))
    (if (= quiet 1)
      (alert Lisp)
      (princ (strcat lisp "\r\n"))
      )
    )
  )
)
     )
   )
 )

CADWarrior · 发表于 2022-7-6 08:51:46

**已解决**

我会使用命令（load“Z:\\MP.FAS”），它会给出错误。
但是，如果我使用命令（load“Z:\\MP.lsp”），那就好了。
所以，我想它在AutoCAD中被破坏了，在这一点上，我让他卸载并重新安装AutoCAD。
然后我再次尝试（加载“Z:\\MP.FAS”），它仍然给我错误。
于是，我想到了这个坏掉的AutoCAD可能没有正确下载。
然后我又把我的工作副本复制到它上面。
而且，vualla，它现在工作得很好。他今天用了整整6个小时，没有任何问题。

[编程交流] 错误正文错误

发表回复

精选推荐