求助文件属性改小数点位数

xiaofly888 · 发表于 2022-1-10 20:04:09

各位大佬：请教下改这个小数位数的API是什么，类似这个帖子https://www.swbbsc.com/threadcon-324721.html

Allate · 发表于 2022-1-11 08:01:22

你录制一个宏，再打开，就知道是什么了。

xiaofly888 · 发表于 2022-1-11 13:03:29

Allate 发表于 2022-1-11 08:01
你录制一个宏，再打开，就知道是什么了。

，哈哈多谢A大解决了，挺好用的，去零了。只针对初期模板乱的问题

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
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitSystem, 0, swUnitSystem_e.swUnitSystem_Custom)
boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsLinearDecimalPlaces, 0, 2)
boolstatus = Part.Extension.SelectByID2("Model", "SHEET", 4.59116390922018E-02, 0.17180913682448, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swDetailingDimTrailingZero, swUserPreferenceOption_e.swDetailingDimension, swDetailingDimTrailingZero_e.swDimRemoveTrailingZeroes)
boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swDetailingTrailingZeroTolerance, swUserPreferenceOption_e.swDetailingDimension, swDetailingDimTrailingZero_e.swDimRemoveTrailingZeroes)
swModel.Save '?存档
End Sub

复制代码

Allate · 发表于 2022-1-12 08:21:19

加油，这个自己编一下挺有意思的，希望能坚持下去。

kkf2255 · 发表于 2022-1-14 19:13:13

经典案例图书

SolidWorks机械工程师网，顶一下。

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