社区 › 社区留言 › 论坛图片不能显示、附件不能打开，原因已经查明，请论坛管理员排除故障！

hbabc 发表于 2020-10-16 10:47:12

图片转圈圈

yaokui25 发表于 2020-10-16 11:54:33

希望论坛早日恢复正常。

烟盒迷唇 发表于 2020-10-16 14:50:22

处理好了吗

mokson 发表于 2020-10-16 18:45:54

本帖最后由 mokson 于 2020-10-16 18:46 编辑

论坛未恢复之前，暂用四楼的方法吧： winhex 修改大法！

rocking2008 发表于 2020-10-16 22:15:53

如有经费需要，建议可以发起众筹，大家都出一点钱，把论坛搞好。说实话，明经给工作带来很大的帮助。感谢论坛那些无私奉献的大师们。

tryhi 发表于 2020-10-16 22:17:18

本帖最后由 tryhi 于 2020-11-6 17:38 编辑


(vl-Load-COM)
(defun try-file-ReadBinary (FileName / node size str stream xmldom)
      (setq xmldom (vlax-create-object "Microsoft.XMLDOM"))
      (setq node (vlax-invoke-method xmldom 'CreateElement "binary"))
      (vlax-put-Property node 'DataType "bin.hex")
      (setq stream (vlax-create-object "ADODB.Stream"))
      (vlax-put-Property stream 'type 1)
      (Vlax-Invoke stream 'open)
      (vlax-invoke-method
                stream
                'LoadFromFile
                FileName
      )
      (setq size(vlax-get-Property stream 'size))
      (vlax-put-Property node 'NodeTypedValue (Vlax-Invoke-Method stream 'Read size))
      (Vlax-Invoke-Method stream 'close)
      (setq str (vlax-get-Property node 'text))
      (vlax-release-object xmldom)
      str
)
(defun try-file-WriteBinary (file str / node stream xmldom)
      (setq xmldom (vlax-create-object "Microsoft.XMLDOM"))
      (setq node (vlax-invoke-method xmldom 'CreateElement "binary"))
      (vlax-put-Property node 'DataType "bin.hex")
      (vlax-put-Property node 'Text str)
      (setq stream (vlax-create-object "ADODB.Stream"))
      (vlax-put-Property stream 'type 1)
      (Vlax-Invoke stream 'open)
      (vlax-invoke-method stream 'write
                (vlax-get-Property node 'NodeTypedValue)
      )
      (vlax-invoke-method stream 'saveToFile file 2)
      (Vlax-Invoke-Method stream 'close)
      (vlax-release-object xmldom)
      (vlax-release-object stream)
)
(defun c:tt (/ file h16 h16-2 newfile)
      (setq file(getfiled "选择一个文件" "" "*" 0))
      (or file (exit))
      (setq
                h16(try-file-ReadBinary file)
                h16-2(substr h16 5)
      )
      (setq newfile (strcat(vl-filename-directory file)"\\"(vl-filename-base file)"_new"(vl-filename-extension file)))
      (try-file-WriteBinary newfile h16-2)
      (princ(strcat"\n处理完成，生成新文件"newfile))(princ)
)




根据楼主的提示，写了个lsp，用来恢复问题文件，下载后的文件损坏用这个lsp恢复，原理是剔除文件前面两个字节

xcz 发表于 2020-10-17 00:46:25

tryhi 发表于 2020-10-16 22:17
根据楼主的提示，写了个lsp，用来恢复问题文件，下载后的文件损坏用这个lsp恢复，原理是剔除文件前面 ...

怎么用啊，下载的附件一个都不能用了

tryhi 发表于 2020-10-17 01:49:21

xcz 发表于 2020-10-17 00:46
怎么用啊，下载的附件一个都不能用了

会复制粘贴、会加载会用命令吧？

Bao_lai 发表于 2020-10-17 02:17:20

tryhi 发表于 2020-10-17 01:49
会复制粘贴、会加载会用命令吧？

海哥V5 87!

mokson 发表于 2020-10-17 08:08:34

tryhi 发表于 2020-10-16 22:17
根据楼主的提示，写了个lsp，用来恢复问题文件，下载后的文件损坏用这个lsp恢复，原理是剔除文件前面 ...

您真是将 lisp 学到位，学到家了。我什么时候才能有你的十分之一的水平呀。佩服大佬！

查看完整版本: 论坛图片不能显示、附件不能打开，原因已经查明，请论坛管理员排除故障！