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

hbabc

图片转圈圈

yaokui25

希望论坛早日恢复正常。

烟盒迷唇

处理好了吗

mokson

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

rocking2008

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

tryhi

(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

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

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

tryhi

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

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

Bao_lai

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

海哥V5 87!

mokson

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

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