yxp 发表于 2018-5-15 17:51:32

本帖最后由 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 注册



mokson 发表于 2018-5-15 21:35:08

本帖最后由 mokson 于 2018-5-16 08:14 编辑

终于等来了高手。

yxp 发表于 2018-5-17 00:49:49

继续，API 添加菜单装B的办法
(defun c:zhB2()
(setq hCAD (vla-get-hwnd (vlax-get-acad-object))
        DWX (vlax-create-object "DynamicWrapperX"))
(if DWX (progn
(vlax-invoke DWX 'Register "user32" "GetMenu" "i=p" "r=l")
(vlax-invoke DWX 'Register "user32" "AppendMenuW" "i=pllw" "r=l")
(setq PtCad (vlax-invoke DWX 'GetMenu hCAD))
(vlax-invoke DWX 'AppendMenuW PtCad 0 10 "装B专用版本")
)(princ "\n请注册 DWX 插件")
)(and DWX (vlax-release-object DWX))
(princ)
)

zgzzsn 发表于 2018-5-17 06:36:34

终于等来了高手。

mokson 发表于 2018-5-17 10:17:34

本帖最后由 mokson 于 2018-5-17 10:21 编辑

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

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

yxp 发表于 2018-5-19 15:03:40

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

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

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


效果如下：

mokson 发表于 2018-5-19 20:47:34

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

a20031079 发表于 2018-5-26 22:44:21

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

evayleung 发表于 2018-5-28 15:36:36

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

wyy623 发表于 2018-6-19 17:15:25

还有这种操作！！！我要好好学习yxp版主的方法
页: 1 2 [3] 4 5 6
查看完整版本: 教你在 AutoCAD 上”装Ｂ“