钣金-展平快速键API

JMJTsys · 发表于 2019-5-6 21:15:10

经典图书

快速键设定就是没有展平指令可以设定~是否可以利用API将钣金的展平可以有快速键

buningbin · 发表于 2019-5-8 12:29:23

录制宏，删除其中代码，将下列代码粘贴。
保存为“展平宏”
自定工具栏/宏
设置宏快捷键。展平宏，SW2013测试正常

展平宏.rar (5.15 KB, 下载次数: 211)

Dim swApp As Object

Sub main()

Set swApp = _
Application.SldWorks

swApp.RunCommand swCommands_Flatten, Empty

End Sub

复制代码

wxctwuzq · 发表于 2019-5-11 20:49:11

经典图书

可以使用快速键了~不过没有原本的展平指令快~这部分可以解决吗\

popsos · 发表于 2019-5-16 22:26:58

改用下面代码，试一下。
注意“平板形式”这四个字，要对应设计树上的“平板形式”字，如繁体则繁体。
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim i As Integer

Sub main()

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

  For i = 1 To 10
  boolstatus = Part.Extension.SelectByID2("平板型式" & CStr(i), "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
  If boolstatus = True Then Exit For
  Next

  If Part.EditUnsuppress2 Then
  Part.EditUnsuppress2
  Else
  Part.EditSuppress2
  End If

End Sub

复制代码

lake101 · 发表于 2019-5-27 06:50:07

经典案例图书

请问复制代码要如何把左边的"行号"移除

wkmkevin · 发表于 2019-6-2 05:37:40

是执行结果会把特徵抑制，要怎么解?

ylili113 · 发表于 2019-6-2 12:52:38

经典案例图书

笨方法，在结尾加如下代码解除压缩，
注意代码中文字内容同设计树，不含后面数字

还待请有好方法的朋友完善。
  For i = 1 To 10
  boolstatus = Part.Extension.SelectByID2("基材-凸缘" & CStr(i), "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
  If boolstatus = True Then
Part.EditUnsuppress2
Exit For
  End If
Next

复制代码

qq157572812 · 发表于 2019-6-20 17:36:10

2F 比较统一钣金展开与摺叠，因为第一特徵不一定是基材凸缘~感谢

terry22222 · 发表于 2019-6-27 18:23:27

试试这个
------------------------
Dim swapp As Object
Dim part As Object
Dim fea As Object
Dim feam As Object

Sub test()
Set swapp = Application.SldWorks
Set part = swapp.ActiveDoc
Set feam = part.FeatureManager
k = feam.GetFeatures(True)
Set fea = k(feam.GetFeatureCount(True) - 1)
fea.Select True
part.EditSuppress
part.EditUnsuppress
End Sub
-----------------------

xizi2007 · 发表于 2019-6-28 07:29:55

经典图书

谢谢同学，速度上有解决了

Macro1.swp (32 KB, 下载次数: 164)

youyuman · 发表于 2019-6-28 16:30:20

可以制作对多本体的板进展开吗? 例如:选其中一个本体让他展开目前只能所选本体，文意感应点选展平指令

yinzh77 · 发表于 2019-6-29 08:19:21

录制宏，删除其中代码，将下列代码粘贴。
保存为“展平宏”
自定工具栏/宏
设置宏快捷键。展平宏，SW2013测试正常

展平宏.rar (5.15 KB, 下载次数: 12)

Dim swApp As Object

Sub main()

Set swApp = _
Application.SldWorks

swApp.RunCommand swCommands_Flatten, Empty

End Sub

复制代码

bqy0115 · 发表于 2019-7-1 08:21:34

可以使用快速键了~不过没有原本的展平指令快~这部分可以解决吗\

yzhang58 · 发表于 2019-7-2 09:11:00

改用下面代码，试一下。
注意“平板形式”这四个字，要对应设计树上的“平板形式”字，如繁体则繁体。
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim i As Integer

Sub main()

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

  For i = 1 To 10
  boolstatus = Part.Extension.SelectByID2("平板型式" & CStr(i), "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
  If boolstatus = True Then Exit For
  Next

  If Part.EditUnsuppress2 Then
  Part.EditUnsuppress2
  Else
  Part.EditSuppress2
  End If

End Sub

复制代码

xiamenmaster · 发表于 2019-7-10 12:15:35

加入QQ群
参与讨论和学习

或扫描二维码加入

请问复制代码要如何把左边的"行号"移除

daxia623 · 发表于 2019-7-30 13:17:15

经典案例图书

是执行结果会把特徵抑制，要怎么解?

hunantianyan78 · 发表于 2019-8-3 00:37:11

加入QQ群
参与讨论和学习

或扫描二维码加入

笨方法，在结尾加如下代码解除压缩，
注意代码中文字内容同设计树，不含后面数字

还待请有好方法的朋友完善。
  For i = 1 To 10
  boolstatus = Part.Extension.SelectByID2("基材-凸缘" & CStr(i), "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
  If boolstatus = True Then
Part.EditUnsuppress2
Exit For
  End If
Next

复制代码

sdjnliming2000 · 发表于 2019-8-5 14:29:48

经典案例图书

2F 比较统一钣金展开与摺叠，因为第一特徵不一定是基材凸缘~感谢

rjd841016 · 发表于 2019-8-9 08:42:44

试试这个
------------------------
Dim swapp As Object
Dim part As Object
Dim fea As Object
Dim feam As Object

Sub test()
Set swapp = Application.SldWorks
Set part = swapp.ActiveDoc
Set feam = part.FeatureManager
k = feam.GetFeatures(True)
Set fea = k(feam.GetFeatureCount(True) - 1)
fea.Select True
part.EditSuppress
part.EditUnsuppress
End Sub
-----------------------

plaeolus · 发表于 2019-8-14 18:28:13

谢谢同学，速度上有解决了

Macro1 (1).swp (32 KB, 下载次数: 44)

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