置顶CAD窗口，让你工作不再分心 [附:修改CAD标题]
本帖最后由 tryhi 于 2024-8-5 11:50 编辑打工人的“福音”，执行(api-winnotOnTop)函数CAD将处于最顶层，之后其他窗口无法盖住CAD，让你认真工作，
如果仅仅置顶好像又没什么意思，加了几个函数
api-winOnTop 置顶当前窗口
api-winnotOnTop 取消置顶当前窗口
api-SetWindowText 修改当前窗口标题
api-msgbox 加强版的alert
api-WinSetTrans 修改CAD窗口透明度，取值1-255
lsp为示例，实际使用请用fas文件，fas里面只有5个函数，没有其他东西，事实上我也经常直接打包一些大神的函数型fas，因为并不需要知道他写了什么，只要知道怎么用就行了
;;置顶当前窗口
(api-winOnTop)
;;取消置顶当前窗口
(api-winnotOnTop)
;;修改当前窗口标题
(api-SetWindowText "tryhi大海专用窗口")
(defun c:t4 (/ n)
(setq n(getint "\n输入窗口透明度1-255："))
(api-WinSetTrans n)
)
;|标志：
相应按钮列表
0确定
1确定和取消
2终止,重试,和忽略
3是,否,和取消
4是 和 否
5重试 和 取消
6取消,重试,继续
16J警告 32问号 48感叹号…
相应图标列表
0(无图标)
16警告标志(一般用于错误提示)
32问号图标
48感叹号图标
64由一个"i"和圆圈组成的图标(消息通知)
相应的默认按钮
0第一个按钮是默认按钮
256第二个按钮是默认按钮
512第三个按钮是默认按钮
相应模式
0应用程序模式
4096系统模式(对话框带有图标)
8192任务模式
其它
262144消息框将具有顶层窗口属性
524288标题文字及文本内容将右对齐
返回：按下按钮的ID，
确定1 取消2 终止3 重试4 忽略5
是6 否7 重试10 继续11
|;
(api-msgbox "测试标题" "测试文字" (+ 2 16 256 262144))
本帖最后由 tryhi 于 2024-8-2 10:14 编辑
ssyfeng 发表于 2024-8-2 08:50
没有ADODB.Stream的电脑用不了
下载fas文件，fas里面没有用ADODB.Stream，连vlax-create-object以及任何vl开头甚至(vl-Load-COM)都没有用到，lsp里面的ADODB.Stream只是用来释放这个fas而已。 关于这个置顶的操作，我是用的DeskPins（占用几乎可以忽略不计），可以热键设置，当前活动窗口快速置顶，办公效率还是挺舒服的，不用来回切窗口，比如word、excel小窗口置顶，在多个软件界面复制数据 本帖最后由 tryhi 于 2024-8-4 22:52 编辑
zxh92 发表于 2024-8-4 21:47
就是置顶后，点文件夹，微信，qq，能点出框来，，，win10+2014
已修正附件，感谢反馈 高，实在是高 大海出品 没有ADODB.Stream的电脑用不了 大海哥你为啥这么牛，你搞得东西都好厉害啊
大海出品，必属精品 好東西，謝謝分享，感謝!!! 这个lsp,只是用来生成fas的.非源码. 本帖最后由 tryhi 于 2024-8-4 22:53 编辑
黄翔 发表于 2024-8-2 10:02
这个lsp,只是用来生成fas的.非源码.
建议下载fas，fas只有5个函数，适合打包