本帖最后由 baitang36 于 2024-11-25 09:16 编辑

看到大海（tryhi）的纯lsp实现去教育版（不支持64位） - AutoLISP/Visual LISP 编程技术 - AutoCAD论坛 - 明经CAD社区 - Powered by Discuz!

总觉得不支持64位是个遗憾。研究了一下，绕过了他遇到的64位指针问题，获得成功。定义的命令是 qjyb。
在2007 2008  2019 2021和2022版本下测试成功，其它版本没试过。请朋友们帮忙测试。
感谢大海提供源码。
这可能是世界上最小的去教育版程序了。
发现bug，已更新，请重新下载。
感谢发现bug的朋友。

更新到第5版，减少64位下崩溃的机会。


网友答: CAD2015—2018、2022及更高版本：官方自带去“学生版”（教育版）的功能

网友答:
你运行qjyb命令时显示ok了吗？
我特意下载了一个2007，安装后试验正常啊。
acad2007原始的isemr
013A7730 | 8B41 04                  | mov eax,dword ptr ds:[ecx+4]                             |
013A7733 | 33C9                     | xor ecx,ecx                                              |
013A7735 | 3988 DC070000            | cmp dword ptr ds:[eax+7DC],ecx                           |
013A773B | 0F95C1                   | setne cl                                                 |
013A773E | 8AC1                     | mov al,cl                                                |
013A7740 | C3                       | ret                                                      |

运行c:qjyb后的isemr
013A7730 | 8B49 04                  | mov ecx,dword ptr ds:[ecx+4]                             |
013A7733 | 33C0                     | xor eax,eax                                              |
013A7735 | 8981 DC070000            | mov dword ptr ds:[ecx+7DC],eax                           |
013A773B | 3C 00                    | cmp al,0                                                 |
013A773D | C3                       | ret                                                      |

网友答:
忘了说2007打过补丁，可能地址不对了，准确的版本是2007 English sp2

网友答: 牛逼

网友答: 感谢大佬分享

网友答: 多谢分享，下载收藏了

网友答: 谢谢楼主分享！

网友答: 厉害了支持

网友答: 已经有两款了，这个也试试，谢谢分享

网友答: 高手呀，明经真是人才济济。

网友答: 感谢大佬分享！

网友答: 下载试试，感谢分享！