教你在 AutoCAD 上”装Ｂ“

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 注册

mokson

终于等来了高手。

yxp

继续，API 添加菜单装B的办法

1. (defun c:zhB2()
   
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" "GetMenu" "i=p" "r=l")
   
6. (vlax-invoke DWX 'Register "user32" "AppendMenuW" "i=pllw" "r=l")
   
7. (setq PtCad (vlax-invoke DWX 'GetMenu hCAD))
   
8. (vlax-invoke DWX 'AppendMenuW PtCad 0 10 "装B专用版本")
   
9. )(princ "\n请注册 DWX 插件")
   
10. )(and DWX (vlax-release-object DWX))
    
11. (princ)
    
12. )

(defun c:zhB2()<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" "GetMenu" "i=p" "r=l")<br /> (vlax-invoke DWX 'Register "user32" "AppendMenuW" "i=pllw" "r=l")<br /> (setq PtCad (vlax-invoke DWX 'GetMenu hCAD))<br /> (vlax-invoke DWX 'AppendMenuW PtCad 0 10 "装B专用版本")<br /> )(princ "\n请注册 DWX 插件")<br /> )(and DWX (vlax-release-object DWX))<br /> (princ)<br /> )

zgzzsn

终于等来了高手。

mokson

yxp 发表于 2018-5-17 00:49
继续，API 添加菜单装B的办法

我在一楼说过了，能不能实现我最想要的功能？
就是在“绘图工作区域”（即黑色的区域）上装B，将文字悬浮在绘图区域上并置顶显示，且文字不会随着视图的缩放或移动而改变它的大小和位置？即永久固定文字。
若能实现，那简直真是太牛B了。
期待yxp兄，再来一发！

yxp

mokson 发表于 2018-5-17 10:17
我在一楼说过了，能不能实现我最想要的功能？
就是在“绘图工作区域”（即黑色的区域）上装B，将文字 ...

LISP 已经不行了，效果不好，需要 arx

以下程序需要在 64 位 CAD 中运行


效果如下：

mokson

感谢 YXP 将 “装逼” 进行到底。
文字是16x16点阵图，且只有输入错误命令才能显示出来 。
但如果缩放或移动视图就会消失掉。
这样不是很过瘾。

a20031079

还有这种操作！！！我要好好学习yxp版主的方法

evayleung

装B必学。。。哈哈。。有时间也来学下，先认个点。

wyy623

还有这种操作！！！我要好好学习yxp版主的方法