明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: mokson

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

[复制链接]
发表于 2020-10-16 10:47:12 | 显示全部楼层
图片转圈圈
发表于 2020-10-16 11:54:33 | 显示全部楼层
希望论坛早日恢复正常。
发表于 2020-10-16 14:50:22 | 显示全部楼层
处理好了吗
 楼主| 发表于 2020-10-16 18:45:54 | 显示全部楼层
本帖最后由 mokson 于 2020-10-16 18:46 编辑

论坛未恢复之前,暂用四楼的方法吧: winhex 修改大法!
发表于 2020-10-16 22:15:53 | 显示全部楼层
如有经费需要,建议可以发起众筹,大家都出一点钱,把论坛搞好。说实话,明经给工作带来很大的帮助。感谢论坛那些无私奉献的大师们。
发表于 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恢复,原理是剔除文件前面两个字节

评分

参与人数 1明经币 +1 金钱 +10 收起 理由
shenlongzi + 1 + 10 很给力!

查看全部评分

回复 支持 4 反对 0

使用道具 举报

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

怎么用啊,下载的附件一个都不能用了
发表于 2020-10-17 01:49:21 | 显示全部楼层
xcz 发表于 2020-10-17 00:46
怎么用啊,下载的附件一个都不能用了

会复制粘贴、会加载会用命令吧?
发表于 2020-10-17 02:17:20 来自手机 | 显示全部楼层
tryhi 发表于 2020-10-17 01:49
会复制粘贴、会加载会用命令吧?

海哥V5 87!
 楼主| 发表于 2020-10-17 08:08:34 | 显示全部楼层
tryhi 发表于 2020-10-16 22:17
根据楼主的提示,写了个lsp,用来恢复问题文件,下载后的文件损坏用这个lsp恢复,原理是剔除文件前面 ...

您真是将 lisp 学到位,学到家了。我什么时候才能有你的十分之一的水平呀。佩服大佬!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-23 07:22 , Processed in 0.171128 second(s), 21 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表