本帖最后由 mokson 于 2020-12-27 08:23 编辑
今天终于搞定在 AutoCAD 2019 顶端的标题栏里显示装B的个性文字！
不需要你懂API，不需要你懂编程。方法是：用 ResHacker 工具打开 CAD目录下的 AcBrandRes.dll 文件，修改里面的 296 字串为你想要的文字即可。现在上图：
其实我最想要的功能，就是在 绘图工作区域上 装B，文字固定且悬浮在绘图区域上并置顶显示，不会随着视图的缩放或移动而改变文字的大小和位置。。。。
装Ｂ工具：
网友答: 2009以前的版本可以在菜单栏 工具栏做自己想要的东西，10版以后的可以在菜单栏 工具栏 还可以在面板中做自己想要的
具体做法就是输入 命令：cui 增加CUI里面的 菜单 工具栏 面板
效果图：
网友答: 本帖最后由 yxp 于 2018-5-15 17:54 编辑
这么简单，加载运行下面的代码即可，可以保存为 lsp 文件，放到启动组，CAD 打开就有效果
程序运行需要 DWX 注册
网友答: 装B是要付出代价的。预算多少？网友答: 只要有一点API基础都可以做到，获取CAD的句柄（findwindow)，修改其标题(setwindowtext)即可。网友答: 个性化需求网友答: 找不到那个资源文件的字串，有人搞过吗网友答:
这个不一定能找到。你编写一段程序，让跟随CAD启动，用程序去改就可以了，没必要非得这样吧？网友答: 看来我不会编写这个程序了网友答: 这样对吧 看看是不是你要的
网友答: 菜单栏装B行不？网友答:
这个效果不错了，可以发上来自行修改吗
今天终于搞定在 AutoCAD 2019 顶端的标题栏里显示装B的个性文字！
不需要你懂API，不需要你懂编程。方法是：用 ResHacker 工具打开 CAD目录下的 AcBrandRes.dll 文件，修改里面的 296 字串为你想要的文字即可。现在上图：
其实我最想要的功能，就是在 绘图工作区域上 装B，文字固定且悬浮在绘图区域上并置顶显示，不会随着视图的缩放或移动而改变文字的大小和位置。。。。
装Ｂ工具：
网友答: 2009以前的版本可以在菜单栏 工具栏做自己想要的东西，10版以后的可以在菜单栏 工具栏 还可以在面板中做自己想要的
具体做法就是输入 命令：cui 增加CUI里面的 菜单 工具栏 面板
效果图：
网友答: 本帖最后由 yxp 于 2018-5-15 17:54 编辑
这么简单，加载运行下面的代码即可，可以保存为 lsp 文件，放到启动组，CAD 打开就有效果
- (defun c:zhB()
- (setq hCAD (vla-get-hwnd (vlax-get-acad-object))
- dwx (vlax-create-object "DynamicWrapperX"))
- (if dwx (progn
- (vlax-invoke dwx 'Register "user32" "SetWindowTextW" "i=hw" "r=m")
- (vlax-invoke dwx 'SetWindowTextW hCAD "AutoCAD 装逼犯专供版")
- )(princ "\n请注册 DWX 插件")
- )(and dwx (vlax-release-object dwx))
- (princ)
- )
程序运行需要 DWX 注册
网友答: 装B是要付出代价的。预算多少？网友答: 只要有一点API基础都可以做到，获取CAD的句柄（findwindow)，修改其标题(setwindowtext)即可。网友答: 个性化需求网友答: 找不到那个资源文件的字串，有人搞过吗网友答:
mokson 发表于 2018-3-21 13:34
找不到那个资源文件的字串，有人搞过吗
这个不一定能找到。你编写一段程序，让跟随CAD启动，用程序去改就可以了，没必要非得这样吧？网友答: 看来我不会编写这个程序了网友答: 这样对吧 看看是不是你要的
网友答: 菜单栏装B行不？网友答:
zhangcan0515 发表于 2018-3-21 22:51
这样对吧 看看是不是你要的
这个效果不错了，可以发上来自行修改吗