SolidWorks机械工程师网——最大的SolidWorks学习平台

标题: 更改透明度宏求优化 [打印本页]

作者: 假婆1 时间: 2022-3-22 14:48
标题: 更改透明度宏求优化

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModelDoc As SldWorks.ModelDoc2
Dim swAssembly As SldWorks.AssemblyDoc
Dim boolstatus As Boolean
Sub main()
Set swApp = Application.SldWorks
Set swModelDoc = swApp.ActiveDoc
Set swAssembly = swModelDoc
boolstatus = swAssembly.SetComponentTransparent(True)
' boolstatus = swAssembly.SetComponentTransparent(False)
End Sub

复制代码

上面宏，是装配体下，选中零件或子装配体，一键透明的宏，请问如何按一下宏透明，再按一下宏取消透明，应该怎么改呢？

我查了下api，并没GetComponentTransparent的方法，如果能判断选中零件或子装配体的透明参数，应该就可行了

谢谢各位了

作者: Alex_Wang 时间: 2022-3-24 09:26
顶起来，希望有大神帮忙解决！！！！！！！！！

作者: zhanganhua998 时间: 2022-3-24 14:02
这个没用过，希望有高手支持一下

作者: wangjiawow 时间: 2022-3-24 16:58
可能真没有吧，选中的是零件或子装配体，操作的是装配体很少见，就连自带的快捷键里都没有这个功能图标，不过可以把功能图标拉到菜单上，点击图标可以实现一键操作，一定要快捷键的话用AHK吧

作者: 假婆1 时间: 2022-3-25 07:42

wangjiawow 发表于 2022-3-24 16:58
可能真没有吧，选中的是零件或子装配体，操作的是装配体很少见，就连自带的快捷键里都没有这个功能图标，不 ...

自带的快捷键里的确没有这个功能图标，不过在浮动菜单里有

另，ahk是好用，可不能识别文字编辑状态，如键a，我ahk设置了功能，在sw里打字的时候，按a也会触发命令，而系统设置的不会

还是谢谢你的回答

作者: wangjiawow 时间: 2022-3-25 16:39

假婆1 发表于 2022-3-25 07:42
自带的快捷键里的确没有这个功能图标，不过在浮动菜单里有

你把快捷键设为组合键就不会影响打字了

作者: qq573639597 时间: 2022-3-27 10:30
谢谢分享！！

作者: peng188 时间: 2022-3-27 12:10
干嘛不设快捷键呢？？？？？

作者: Allate 时间: 2022-3-27 12:38
' ******************************************************************************
' 更改透明度宏.swp - By Allate, 2022-03-27
' ******************************************************************************
' 说明
' 1. 在装配体中运行本宏，可以切换透明度，作用相当于系统命令【更改透明度】。

宏文件：

更改透明度宏_2022-03-27.zip (6.38 KB, 下载次数: 226, 售价: 20 金币)

图标（就系统的图标，不喜勿下）：

更改透明度宏_图标.zip (830 Bytes, 下载次数: 146, 售价: 1 金币)

作者: 假婆1 时间: 2022-3-28 08:15

Allate 发表于 2022-3-27 12:38
' ******************************************************************************
' 更改透明度宏.swp ...

选中装配体下的零件后运行宏，提示截图的错误，请问需要改什么吗？sw2017版本

作者: Allate 时间: 2022-3-28 19:34

假婆1 发表于 2022-3-28 08:15
选中装配体下的零件后运行宏，提示截图的错误，请问需要改什么吗？sw2017版本

就是缺了库文件啊，你参考一下本版的扫盲帖。

作者: lwy4558 时间: 2022-10-23 13:43

假婆1 发表于 2022-3-28 08:15
选中装配体下的零件后运行宏，提示截图的错误，请问需要改什么吗？sw2017版本

你好！问题解决了吗！我也出现了同样的问题！谢谢！

作者: 假婆1 时间: 2022-10-24 11:09

lwy4558 发表于 2022-10-23 13:43
你好！问题解决了吗！我也出现了同样的问题！谢谢！

解决了，缺少库啊，你钩上就行了，不过我已经不用了，我自己用发送消息号来实现了

作者: lwy4558 时间: 2022-10-24 11:40

假婆1 发表于 2022-10-24 11:09
解决了，缺少库啊，你钩上就行了，不过我已经不用了，我自己用发送消息号来实现了

怎么解决的？我不知道点哪里？有截图啥的吗？给指导一下。谢谢！

作者: 假婆1 时间: 2022-10-24 13:07

lwy4558 发表于 2022-10-24 11:40
怎么解决的？我不知道点哪里？有截图啥的吗？给指导一下。谢谢！

我没在用这个宏了，不方便演示了

作者: lwh0596 时间: 2023-6-29 15:43

感谢楼主分享，很不错！

作者: 沉默的人 时间: 2024-3-12 17:19
感谢楼主分享，很不错！

作者: fawkes1987728 时间: 2024-5-13 11:02
感谢楼主分享，很不错！

作者: wangyapeng 时间: 2024-7-17 21:04

Allate 发表于 2022-3-27 12:38
' ******************************************************************************
' 更改透明度宏.swp ...

固定浮动切换、压缩解压切换、在不在明细表切换、封套解封切换、冻结解冻切换、隐藏显示切换，能否实现？

作者: wanchengyu2015 时间: 2024-9-27 15:59
楼主辛苦了！

作者: 1215956038 时间: 2024-10-7 08:52
楼主辛苦了！

欢迎光临 SolidWorks机械工程师网——最大的SolidWorks学习平台 (https://www.swbbsc.com/)