教你在 AutoCAD 上”装Ｂ“

mokson

今天终于搞定在 AutoCAD 2019 顶端的标题栏里显示装B的个性文字！
不需要你懂API，不需要你懂编程。方法是：用 ResHacker 工具打开 CAD目录下的 AcBrandRes.dll 文件，修改里面的 296 字串为你想要的文字即可。现在上图：





其实我最想要的功能，就是在 绘图工作区域上 装B，文字固定且悬浮在绘图区域上并置顶显示，不会随着视图的缩放或移动而改变文字的大小和位置。。。。

装Ｂ工具：

liew502

2009以前的版本可以在菜单栏   工具栏做自己想要的东西，10版以后的可以在菜单栏   工具栏   还可以在面板中做自己想要的

具体做法就是输入 命令：cui   增加CUI里面的  菜单  工具栏  面板


效果图：

yxp

这么简单，加载运行下面的代码即可，可以保存为 lsp 文件，放到启动组，CAD 打开就有效果

1. (defun c:zhB()
   
2. (setq hCAD (vla-get-hwnd (vlax-get-acad-object))
   
3.         dwx (vlax-create-object "DynamicWrapperX"))
   
4. (if dwx (progn
   
5. (vlax-invoke dwx 'Register "user32" "SetWindowTextW" "i=hw" "r=m")
   
6. (vlax-invoke dwx 'SetWindowTextW hCAD "AutoCAD 装逼犯专供版")
   
7. )(princ "\n请注册 DWX 插件")
   
8. )(and dwx (vlax-release-object dwx))
   
9. (princ)
   
10. )

(defun c:zhB()<br /> (setq hCAD (vla-get-hwnd (vlax-get-acad-object))<br />         dwx (vlax-create-object "DynamicWrapperX"))<br /> (if dwx (progn<br /> (vlax-invoke dwx 'Register "user32" "SetWindowTextW" "i=hw" "r=m")<br /> (vlax-invoke dwx 'SetWindowTextW hCAD "AutoCAD 装逼犯专供版")<br /> )(princ "\n请注册 DWX 插件")<br /> )(and dwx (vlax-release-object dwx))<br /> (princ)<br /> )

程序运行需要 DWX 注册

mikewolf2k

装B是要付出代价的。预算多少？

dong20030432

只要有一点API基础都可以做到，获取CAD的句柄（findwindow)，修改其标题(setwindowtext)即可。

sunny_8848

个性化需求

mokson

找不到那个资源文件的字串，有人搞过吗

dong20030432

mokson 发表于 2018-3-21 13:34
找不到那个资源文件的字串，有人搞过吗

这个不一定能找到。你编写一段程序，让跟随CAD启动，用程序去改就可以了，没必要非得这样吧？

mokson

看来我不会编写这个程序了

zhangcan0515

这样对吧 看看是不是你要的

liew502

菜单栏装B行不？

sunny_8848

zhangcan0515 发表于 2018-3-21 22:51
这样对吧 看看是不是你要的

这个效果不错了，可以发上来自行修改吗