更改透明度宏求优化

假婆1 · 发表于 2022-3-22 14:48:25

经典图书

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的方法，如果能判断选中零件或子装配体的透明参数，应该就可行了

谢谢各位了

Allate · 发表于 2022-3-27 12:38:13

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

宏文件：

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

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

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

wangjiawow · 发表于 2022-3-24 16:58:10

经典图书

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

zhanganhua998 · 发表于 2022-3-24 14:02:36

这个没用过，希望有高手支持一下

Alex_Wang · 发表于 2022-3-24 09:26:07

经典案例图书

顶起来，希望有大神帮忙解决！！！！！！！！！

假婆1 · 发表于 2022-3-25 07:42:41

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

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

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

还是谢谢你的回答

wangjiawow · 发表于 2022-3-25 16:39:01

经典案例图书

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

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

qq573639597 · 发表于 2022-3-27 10:30:36

谢谢分享！！

peng188 · 发表于 2022-3-27 12:10:30

干嘛不设快捷键呢？？？？？

假婆1 · 发表于 2022-3-28 08:15:30

经典图书

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

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

Allate · 发表于 2022-3-28 19:34:45

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

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

lwy4558 · 发表于 2022-10-23 13:43:19

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

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

假婆1 · 发表于 2022-10-24 11:09:53

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

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

lwy4558 · 发表于 2022-10-24 11:40:23

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

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

假婆1 · 发表于 2022-10-24 13:07:49

加入QQ群
参与讨论和学习

或扫描二维码加入

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

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

lwh0596 · 发表于 2023-6-29 15:43:49

经典案例图书

感谢楼主分享，很不错！

沉默的人 · 发表于 2024-3-12 17:19:22

加入QQ群
参与讨论和学习

或扫描二维码加入

感谢楼主分享，很不错！

fawkes1987728 · 发表于 2024-5-13 11:02:03

经典案例图书

感谢楼主分享，很不错！

wangyapeng · 发表于 2024-7-17 21:04:27

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

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

wanchengyu2015 · 发表于 2024-9-27 15:59:04

楼主辛苦了！

		自动登录	找回密码
密码			立即注册

更改透明度宏求优化

浏览过的版块

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献