材料设置宏

unamg · 发表于 2018-2-11 14:27:11

只要对SW有一下了解的人都知道要想准确获得零件重量必须在特征树内正确设置材质，但是用右键点开却有上百种实际上常用的也就几个，使用非常不方便，于是我做了宏，直接在装配体设置方便了很多（注：1.可多选，要保证处于还原;2.SW安装目录必须为d/Program Files）。

材料设置.rar (8.55 KB, 下载次数: 351)

yamagua · 发表于 2018-2-11 14:31:10

不错，确实有这个功能，不过我这个可以在装配体中一次选择多零件进行设置

jyzas001 · 发表于 2018-9-17 00:16:52

谢谢分享

liufusg · 发表于 2018-9-22 09:43:34

收下了，谢谢。、

shinli · 发表于 2018-9-29 08:37:02

经典案例图书

感谢楼主分享，很不错！

litao036 · 发表于 2018-9-29 11:34:28

好东西，努力学习学习！

hdgd501 · 发表于 2019-1-1 11:08:41

经典案例图书

楼主太有才了，膜拜中……

gardner · 发表于 2019-2-8 23:05:11

感谢楼主分享，很不错！

liyuyin007 · 发表于 2019-2-11 08:33:13

活到老学到老！

gardner · 发表于 2019-2-11 10:16:25

感谢楼主分享，很不错！

郁郁小川子 · 发表于 2019-2-24 20:00:00

SW 装在C盘怎么设置？

KEMIRWU · 发表于 2019-2-28 08:39:37

Dim Part As Object
Dim boolstatus As Boolean
Public commodel As Object

Public compart As Object
Public swSelectionMgr As Object

Public commodelProp As Object
Public commodelex As Object
Public count As Long
Public i As Long
Public compart1() As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set swSelectionMgr = Part.SelectionManager
count = swSelectionMgr.GetSelectedObjectCount2(0)
Debug.Print count

If count = 0 Then
MsgBox ("请选择零件")
Else
UserForm1.Show
End If
End Sub
报错了。没法用。 ;2.SW安装目录必须为d/Program Files）这个要求为什么需要呢？

jiangw20 · 发表于 2019-5-30 21:48:05

支持支持支持支持支持支持支持

外地患者~ · 发表于 2019-6-29 13:24:39

楼主辛苦了！

jerry2019 · 发表于 2019-6-30 14:27:25

加入QQ群
参与讨论和学习

或扫描二维码加入

楼主太有才了，膜拜中……

jyzas001 · 发表于 2019-7-14 13:21:06

经典案例图书

谢谢分享

wuko3620 · 发表于 2019-8-10 15:01:31

加入QQ群
参与讨论和学习

或扫描二维码加入

感谢分享！

tiancaiashuai · 发表于 2019-8-21 14:39:14

经典案例图书

确实有才啊

meety0urmakerss · 发表于 2019-9-22 14:39:56

非常感谢欧珠的的分内那个

nusmud908 · 发表于 2019-9-22 19:26:19

楼主太有才了，膜拜中……

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

材料设置宏

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献