VB二次开发时遇到一个问题：同一装配不同配置下有的线性阵列能压缩而有的不能压缩

chengzhi123 · 发表于 2020-5-11 23:17:26

经典图书

在不同的情况下程序根据参数激活对应的配置，而有的情况下还需要根据参数的情况将有的零部件或者局部线性阵列或者镜像压缩掉
我在调试的时候发现有的配置下指定的需要压缩的对象无法压缩
在配置“1-L”下能够按照我的需求将“局部线性阵列3”“局部线性阵列4”“局部线性阵列5”“局部线性阵列6”“局部线性阵列7”压缩

在配置“1-W”的时候就不能将“局部线性阵列10”“局部线性阵列11”“局部线性阵列12”“局部线性阵列13”“局部线性阵列14”压缩

有没有人知道是怎么回事啊
压缩对象的代码：
File_path = myPath & "SW_真空箱装配体_PackAndGo.sldasm"

Docspec = Swapp.GetOpenDocSpec(File_path)

Swapp.OpenDoc7(Docspec)

Part = Swapp.ActiveDoc
Featmgr = Part.FeatureManager

Swfeat = Featmgr.GetFeatures(False)
For Each Fa In Swfeat
Select Case Fa.name
      Case = "局部线性阵列10"
         Fa.Select2(False, 0)
         Part.EditSuppress()
      Case = "局部线性阵列11"
         Fa.Select2(False, 0)
         Part.EditSuppress()

      Case = "局部线性阵列12"
         Fa.Select2(False, 0)
         Part.EditSuppress()
      Case = "局部线性阵列13"
         Fa.Select2(False, 0)
         Part.EditSuppress()
      Case = "局部线性阵列14"
         Fa.Select2(False, 0)
         Part.EditSuppress()
End Select
Next

求大佬指导一下

rancy731 · 发表于 2020-5-14 14:12:43

顶一下，坐等高手！

lkiknh · 发表于 2020-5-14 14:13:48

经典图书

这个有点难，编程不太懂

cyqfly · 发表于 2020-5-18 12:11:07

很不错，顶一下！

design100 · 发表于 2020-5-19 14:47:33

经典案例图书

既然用了配置压缩，为什么还用程序去压缩来实现呢？

File_path = myPath & "SW_真空箱装配体_PackAndGo.sldasm"

Docspec = Swapp.GetOpenDocSpec(File_path)

Swapp.OpenDoc7(Docspec)

Part = Swapp.ActiveDoc
Featmgr = Part.FeatureManager

Swfeat = Featmgr.GetFeatures(False)

第一你获取这个路径文档，打开激活，然后直接获取特征压缩，这只是运行了一次，
第二次肯定是无效的。

如果你只是要用按钮来执行命令来压缩，可以直接写

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean

Sub main()'可直接用按钮执行

Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc

Part.ClearSelection2 True
For i =10 to14
boolstatus = Part.Extension.SelectByID2("局部线性阵列" & i, "COMPPATTERN", 0, 0, 0, True 0, Nothing, 0)
Next

Part.EditSuppress2

End Sub

以上如不明白？可直接把你完整程序发出来解决

1215956038 · 发表于 2021-4-17 05:43:00

很不错，顶一下！

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

VB二次开发时遇到一个问题：同一装配不同配置下有的线性阵列能压缩而有的不能压缩

浏览过的版块

最佳新人

宣传达人

活跃会员

热心会员

灌水之王

突出贡献