置顶CAD窗口，让你工作不再分心 [附:修改CAD标题]

tryhi

打工人的“福音”，执行(api-winnotOnTop)函数CAD将处于最顶层，之后其他窗口无法盖住CAD，让你认真工作，
如果仅仅置顶好像又没什么意思，加了几个函数


api-winOnTop 置顶当前窗口
api-winnotOnTop 取消置顶当前窗口
api-SetWindowText 修改当前窗口标题
api-msgbox 加强版的alert
api-WinSetTrans 修改CAD窗口透明度，取值1-255


lsp为示例，实际使用请用fas文件，fas里面只有5个函数，没有其他东西，事实上我也经常直接打包一些大神的函数型fas，因为并不需要知道他写了什么，只要知道怎么用就行了

1. ;;置顶当前窗口
   
2. (api-winOnTop)

复制代码

1. ;;取消置顶当前窗口
   
2. (api-winnotOnTop)

复制代码

1. ;;修改当前窗口标题
   
2. (api-SetWindowText "tryhi大海专用窗口")

复制代码

2. (defun c:t4 (/ n)
   
3.   (setq n(getint "\n输入窗口透明度1-255："))
   
4.   (api-WinSetTrans n)
   
5. )

(defun c:t4 (/ n)<br />   (setq n(getint "\n输入窗口透明度1-255："))<br />   (api-WinSetTrans n)<br /> )

1. ;|标志：
   
2. 相应按钮列表
   
3. 0确定
   
4. 1确定和取消
   
5. 2终止,重试,和忽略
   
6. 3是,否,和取消
   
7. 4是 和 否
   
8. 5重试 和 取消
   
9. 6取消,重试,继续
   
10. 16J警告 32问号 48感叹号…
    
11. 
    
12. 相应图标列表
    
13. 0(无图标)
    
14. 16警告标志(一般用于错误提示)
    
15. 32问号图标
    
16. 48感叹号图标
    
17. 64由一个"i"和圆圈组成的图标(消息通知)
    
18. 
    
19. 相应的默认按钮
    
20. 0第一个按钮是默认按钮
    
21. 256第二个按钮是默认按钮
    
22. 512第三个按钮是默认按钮
    
23. 
    
24. 相应模式
    
25. 0应用程序模式
    
26. 4096系统模式(对话框带有图标)
    
27. 8192任务模式
    
28. 
    
29. 其它
    
30. 262144消息框将具有顶层窗口属性
    
31. 524288标题文字及文本内容将右对齐
    
32. 
    
33. 返回：按下按钮的ID，
    
34. 确定1 取消2 终止3 重试4 忽略5
    
35. 是6 否7 重试10 继续11
    
36. |;
    
37. (api-msgbox "测试标题" "测试文字" (+ 2 16 256 262144))

复制代码

tryhi

ssyfeng 发表于 2024-8-2 08:50
没有ADODB.Stream的电脑用不了

下载fas文件，fas里面没有用ADODB.Stream，连vlax-create-object以及任何vl开头甚至(vl-Load-COM)都没有用到，lsp里面的ADODB.Stream只是用来释放这个fas而已。

weimeng555

关于这个置顶的操作，我是用的DeskPins（占用几乎可以忽略不计），可以热键设置，当前活动窗口快速置顶，办公效率还是挺舒服的，不用来回切窗口，比如word、excel小窗口置顶，在多个软件界面复制数据

tryhi

zxh92 发表于 2024-8-4 21:47
就是置顶后，点文件夹，微信，qq，能点出框来，，，win10+2014

已修正附件，感谢反馈

crtrccrt

高，实在是高

MZ_li

大海出品

ssyfeng

没有ADODB.Stream的电脑用不了

664571221

大海哥你为啥这么牛，你搞得东西都好厉害啊

429014673

大海出品，必属精品

taiwanfox

好東西，謝謝分享，感謝!!!

黄翔

这个lsp,只是用来生成fas的.非源码.

tryhi

黄翔 发表于 2024-8-2 10:02
这个lsp,只是用来生成fas的.非源码.

建议下载fas，fas只有5个函数，适合打包