iCAx开思网

标题: 各位前辈，求助一个宏，运行宏让装配体内的零件（含装配体)视图类型修改为隐藏所有... [打印本页]

作者: 人穷貌丑 时间: 2019-4-5 10:36
标题: 各位前辈，求助一个宏，运行宏让装配体内的零件（含装配体)视图类型修改为隐藏所有...
本帖最后由人穷貌丑于 2019-4-5 10:42 编辑

[attach]1265953[/attach]

作者: 大鹿 时间: 2019-4-5 23:39
两个办法
1. 改写遍历宏
2. 使用鸟事宏

作者: 人穷貌丑 时间: 2019-4-7 10:27

大鹿发表于 2019-4-5 23:39
两个办法
1. 改写遍历宏
2. 使用鸟事宏

谢谢大鹿先生，请问鸟事宏是什么宏呀！

作者: 大鹿 时间: 2019-4-8 08:53

人穷貌丑发表于 2019-4-7 10:27
谢谢大鹿先生，请问鸟事宏是什么宏呀！

请见连接：https://www.icax.org/thread-926875-1-1.html
[分享] 宏例子: 打開指定目錄逐一處理所有零件的瑣事

作者: liuzhanping9605 时间: 2019-4-10 08:10
Option Explicit

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swViewDisplayHideAllTypes, True)
End Sub

这是录制的

作者: peng18067 时间: 2019-5-29 22:55
谢谢分享

作者: jyzas 时间: 2020-11-17 10:18

liuzhanping9605 发表于 2019-4-10 08:10
Option Explicit

谢谢分享

欢迎光临 iCAx开思网 (https://www.icax.org/)