明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: mokson

教你在 AutoCAD 上”装B“

    [复制链接]
发表于 2018-5-15 17:51 | 显示全部楼层
本帖最后由 yxp 于 2018-5-15 17:54 编辑

这么简单,加载运行下面的代码即可,可以保存为 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. )


程序运行需要 DWX 注册



本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
回复 支持 1 反对 0

使用道具 举报

 楼主| 发表于 2018-5-15 21:35 | 显示全部楼层
本帖最后由 mokson 于 2018-5-16 08:14 编辑

终于等来了高手。
发表于 2018-5-17 00:49 | 显示全部楼层
继续,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. )

点评

DWX 也注册了,程序也放到启动组了,就是没有反应.  发表于 2018-5-17 17:43
发表于 2018-5-17 06:36 | 显示全部楼层
终于等来了高手。
 楼主| 发表于 2018-5-17 10:17 | 显示全部楼层
本帖最后由 mokson 于 2018-5-17 10:21 编辑
yxp 发表于 2018-5-17 00:49
继续,API 添加菜单装B的办法


我在一楼说过了,能不能实现我最想要的功能?
就是在“绘图工作区域”(即黑色的区域)上装B,将文字悬浮在绘图区域上并置顶显示,且文字不会随着视图的缩放或移动而改变它的大小和位置?即永久固定文字。
若能实现,那简直真是太牛B了。
期待yxp兄,再来一发!
发表于 2018-5-19 15:03 | 显示全部楼层
mokson 发表于 2018-5-17 10:17
我在一楼说过了,能不能实现我最想要的功能?
就是在“绘图工作区域”(即黑色的区域)上装B,将文字 ...

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

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


效果如下:

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
 楼主| 发表于 2018-5-19 20:47 | 显示全部楼层
感谢 YXP 将 “装逼” 进行到底。
文字是16x16点阵图,且只有输入错误命令才能显示出来 。
但如果缩放或移动视图就会消失掉。
这样不是很过瘾。
发表于 2018-5-26 22:44 | 显示全部楼层
还有这种操作!!!我要好好学习yxp版主的方法
发表于 2018-5-28 15:36 | 显示全部楼层
装B必学。。。哈哈。。有时间也来学下,先认个点。
发表于 2018-6-19 17:15 | 显示全部楼层
还有这种操作!!!我要好好学习yxp版主的方法
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 10:03 , Processed in 0.203405 second(s), 18 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表