请问怎样用宏让装配体中一个零件封套

下意识的残忍 · 发表于 2018-10-20 20:01:18

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.Extension.SelectByID2("抽屉3-1@装配体1", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.CompConfigProperties4(2, 0, True, True, "GCS_08E", False, True)
boolstatus = Part.EditRebuild3()
End Sub

这是录制产生后的代码,
总是
boolstatus = Part.CompConfigProperties4(2, 0, True, True, "GCS_08E", False, True)
报错,希望有大神指导一下

补充内容 (2018-10-25 21:13):
录制宏该配置也会报错,求高手指点

xieguiming1982 · 发表于 2024-2-1 14:36:30

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
' 获取用户选择的零件
Dim SelMgr As Object
Set SelMgr = Part.SelectionManager
Dim SelectedEntity As Object
Set SelectedEntity = SelMgr.GetSelectedObject6(1, -1)
If Not SelectedEntity Is Nothing Then
Dim SelectedPart As Object
' 封套操作
boolstatus = Part.CompConfigProperties6(2, 0, True, True, "默认<按加工>", False, True, 0)
' 更新模型
boolstatus = Part.EditRebuild3()
End If
End Sub

复制代码

zhucl2001 · 发表于 2018-10-23 12:30:31

顶一下，坐等高手！

下意识的残忍 · 发表于 2018-11-2 23:56:57

没有人会吗

巴顿2017 · 发表于 2022-11-20 21:08:55

经典案例图书

楼主辛苦了！

沉默的人 · 发表于 2024-1-29 14:44:56

顶一下，坐等高手！

tiancaiashuai · 发表于 2024-1-29 20:04:23

经典案例图书

你选中了要封套的实体零件了吗

xieguiming1982 · 发表于 2024-2-1 14:38:20

xieguiming1982 发表于 2024-2-1 14:36

在装配体里选择的零件一键封套，可多选。

沉默的人 · 发表于 2024-2-2 10:30:45

xieguiming1982 发表于 2024-2-1 14:36

感谢大神的宏无比崇拜

mrzhonghb · 发表于 2024-2-2 13:28:57

xieguiming1982 发表于 2024-2-1 14:36

非常好，有用

xieguiming1982 · 发表于 2024-2-3 08:29:45

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
' 获取用户选择的零件
Dim SelMgr As Object
Set SelMgr = Part.SelectionManager
Dim SelectedEntity As Object
Set SelectedEntity = SelMgr.GetSelectedObject6(1, -1)
If Not SelectedEntity Is Nothing Then
Dim SelectedPart As Object
' 解除封套操作
boolstatus = Part.CompConfigProperties6(2, 0, False, True, "默认<按加工>", False, True, 0)
' 更新模型
boolstatus = Part.EditRebuild3()
End If
End Sub

复制代码

panmiao8012 · 发表于 2024-5-3 15:22:51

xieguiming1982 发表于 2024-2-3 08:29

你好这个封套和解封能做成一宏里面吗

叶落满空山 · 发表于 7 天前

顶上去，坐等大神

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

请问怎样用宏让装配体中一个零件封套

最佳新人

宣传达人

活跃会员

热心会员

灌水之王

突出贡献