修改重量单位

Kerwin1314 · 发表于 2021-5-26 10:31:28

经典图书

找不到是下载的哪位大神的宏了，能用，改完需要手动重建即可，现在想加上另外两个单位修改，哪位大神能帮帮忙？

Dim swApp       As SldWorks.SldWorks
Dim swModel    As SldWorks.ModelDoc

Sub main()

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc

swModel.Extension.SetUserPreferenceInteger 263, 0, 4       '设置单位为"自定"
swModel.Extension.SetUserPreferenceInteger 259, 0, 3       '最后一个值，1毫克，2克，3千克，4镑
swModel.ClearSelection2 True
swModel.Save '?存档

End Sub

tg000057 · 发表于 2021-5-26 11:44:42

swModel.Extension.SetUserPreferenceInteger 258, 0, 1
swModel.Extension.SetUserPreferenceInteger 260, 0, 1

和修改质量的一样，调整最后一位数字。

Kerwin1314 · 发表于 2021-5-26 13:39:14

经典图书

tg000057 发表于 2021-5-26 11:44
swModel.Extension.SetUserPreferenceInteger 258, 0, 1
swModel.Extension.SetUserPreferenceInteger 260 ...

Dim swApp       As SldWorks.SldWorks
Dim swModel    As SldWorks.ModelDoc

Sub main()

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc

swModel.Extension.SetUserPreferenceInteger 263, 0, 4       '设置单位为"自定"

swModel.Extension.SetUserPreferenceInteger 259, 0, 3       '最后一个值，1毫克，2克，3千克，4镑

swModel.Extension.SetUserPreferenceInteger 258, 0, 2       '长度

swModel.Extension.SetUserPreferenceInteger 260, 0, 6       '体积

swModel.ClearSelection2 True
swModel.Save '?存档

End Sub

谢谢大神，将改好的放这里，能告知一下258/259/260****这些从哪儿查的吗

yni621 · 发表于 2021-5-26 13:56:22

感谢楼主分享，很不错！

nishuihanjian · 发表于 2022-5-15 20:36:18

经典案例图书

质量属性的上面那个长度保留两位小数怎么弄

DFFDSGG114485 · 发表于 2022-6-1 21:47:53

好东西，谢谢群主

hhh001 · 发表于 2022-6-2 07:48:42

经典案例图书

感谢楼主分享，很不错！

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

修改重量单位

浏览过的版块

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献