本帖最后由 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，因为并不需要知道他写了什么，只要知道怎么用就行了
复制代码
复制代码
复制代码
复制代码
网友答: 本帖最后由 tryhi 于 2024-8-2 10:14 编辑
下载fas文件，fas里面没有用ADODB.Stream，连vlax-create-object以及任何vl开头甚至(vl-Load-COM)都没有用到，lsp里面的ADODB.Stream只是用来释放这个fas而已。网友答:
那个没有可运行的lsp源码，必须以fas运行，可以搜索一下“隐藏函数”、“保留函数”了解一下网友答: 关于这个置顶的操作，我是用的DeskPins（占用几乎可以忽略不计），可以热键设置，当前活动窗口快速置顶，办公效率还是挺舒服的，不用来回切窗口，比如word、excel小窗口置顶，在多个软件界面复制数据网友答: 高，实在是高网友答: 大海出品
网友答:
没有ADODB.Stream的电脑用不了网友答:
大海哥你为啥这么牛，你搞得东西都好厉害啊网友答:
大海出品，必属精品网友答: 好東西，謝謝分享，感謝!!!网友答: 这个lsp,只是用来生成fas的.非源码.网友答: 本帖最后由 tryhi 于 2024-8-4 22:53 编辑
建议下载fas，fas只有5个函数，适合打包
打工人的“福音”，执行(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而已。网友答:
预知幸福 发表于 2025-4-27 22:29
很不错的程序 那个fas文件能不能给个源码呢 谢谢
那个没有可运行的lsp源码，必须以fas运行，可以搜索一下“隐藏函数”、“保留函数”了解一下网友答: 关于这个置顶的操作，我是用的DeskPins（占用几乎可以忽略不计），可以热键设置，当前活动窗口快速置顶，办公效率还是挺舒服的，不用来回切窗口，比如word、excel小窗口置顶，在多个软件界面复制数据网友答: 高，实在是高网友答: 大海出品
网友答:
没有ADODB.Stream的电脑用不了网友答:
大海哥你为啥这么牛，你搞得东西都好厉害啊网友答:
大海出品，必属精品网友答: 好東西，謝謝分享，感謝!!!网友答: 这个lsp,只是用来生成fas的.非源码.网友答: 本帖最后由 tryhi 于 2024-8-4 22:53 编辑
黄翔 发表于 2024-8-2 10:02
这个lsp,只是用来生成fas的.非源码.
建议下载fas，fas只有5个函数，适合打包