CAD当前视图全屏，没有菜单 什么都没有只有图像界面

欢喜舞易

今天遇到一个人说要让cad全屏  后来我发现他居然是要自己做一个cad的意思

算了 什么也不说


源码也没有保存  直接上代码

万一哪天我也需要呢


注意热键

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1
变量名	类 型	数组	备 注
CAD句柄
窗口句柄
Z

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

zc热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #Tab键 )
zc热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #CapsLock键 )

子程序名	返回值类型	公开	备 注
全屏

变量名	类 型	静态	数组	备 注
a			0
i

窗口_枚举所有子窗口 (0, a, )
计次循环首 (取数组成员数 (a), i)
如果真 (寻找文本 (窗口_取标题 (a [i]), “Autodesk AutoCAD”, , 假) ≠ -1)
CAD句柄 ＝ a [i]
跳出循环 ()

计次循环尾 ()
窗口_枚举所有子窗口 (CAD句柄, a)
计次循环首 (取数组成员数 (a), i)
如果真 (窗口_取祖句柄 (a [i]) ＝ CAD句柄 且 取文本左边 (窗口_取类名 (a [i]), 4) ＝ “Afx:” 且 窗口_取标题 (a [i]) ＝ “”)
调试输出 (a [i], 窗口_是否被遮挡 (a [i]), 窗口_取类名 (a [i]), 窗口_取标题 (a [i]), 窗口_是否有子窗口 (a [i]))
窗口句柄 ＝ a [i]
窗口_最大化 (a [i])
Z ＝ 窗口_置父 (a [i], CAD句柄)
窗口_最大化 (a [i])

计次循环尾 ()
位置 ＝ 3
' 可视 ＝ 真

子程序名	返回值类型	公开	备 注
_窗口1_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

发送信息 (161, 2, 0)

子程序名	返回值类型	公开	备 注
_标签1_反馈事件	整数型
参数名	类 型	参考	可空	数组	备 注
参数一	整数型
参数二	整数型

调试输出 (参数一, 参数二)
判断 (参数一 ＝ 33001)
全屏 ()
判断 (参数一 ＝ 33002)
窗口_置父 (窗口句柄, Z)
窗口_还原 (窗口句柄)
' 可视 ＝ 假

i支持库列表	支持库注释
shellEx	扩展功能支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 shellEx<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_窗口1<br /> .程序集变量 CAD句柄<br /> .程序集变量 窗口句柄<br /> .程序集变量 Z<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> zc热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #Tab键)<br /> zc热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #CapsLock键)<br /> <br /> <br /> .子程序 全屏<br /> .局部变量 a, , , "0"<br /> .局部变量 i<br /> <br /> <br /> 窗口_枚举所有子窗口 (0, a, )<br /> .计次循环首 (取数组成员数 (a), i)<br />     .如果真 (寻找文本 (窗口_取标题 (a <i>), “Autodesk AutoCAD”, , 假) ≠ -1)<br />         CAD句柄 ＝ a <i><br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 窗口_枚举所有子窗口 (CAD句柄, a)<br /> .计次循环首 (取数组成员数 (a), i)<br /> <br />     .如果真 (窗口_取祖句柄 (a <i>) ＝ CAD句柄 且 取文本左边 (窗口_取类名 (a <i>), 4) ＝ “Afx:” 且 窗口_取标题 (a <i>) ＝ “”)<br />         调试输出 (a <i>, 窗口_是否被遮挡 (a <i>), 窗口_取类名 (a <i>), 窗口_取标题 (a <i>), 窗口_是否有子窗口 (a <i>))<br />         窗口句柄 ＝ a <i><br />         窗口_最大化 (a <i>)<br />         Z ＝ 窗口_置父 (a <i>, CAD句柄)<br />         窗口_最大化 (a <i>)<br />     .如果真结束<br /> <br /> <br /> .计次循环尾 ()<br /> <br /> 位置 ＝ 3<br /> ' 可视 ＝ 真<br /> <br /> .子程序 _窗口1_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 发送信息 (161, 2, 0)<br /> <br /> .子程序 _标签1_反馈事件, 整数型<br /> .参数 参数一, 整数型<br /> .参数 参数二, 整数型<br /> <br /> 调试输出 (参数一, 参数二)<br /> .判断开始 (参数一 ＝ 33001)<br />     全屏 ()<br /> .判断 (参数一 ＝ 33002)<br />     窗口_置父 (窗口句柄, Z)<br />     窗口_还原 (窗口句柄)<br />     ' 可视 ＝ 假<br /> .默认<br /> <br /> .判断结束

wqw0220

感谢开源！

wqw0220

收藏了！！

三克油

感谢作者！

lmwdz

666666666666666666

亿万

支持

ttggnn

支持                                      

59hdvj

支持一下

jysoft2022

谢谢分享

wjswzj0

感谢分享，很给力！~