SolidWorks机械工程师网——最大的SolidWorks学习平台

标题: 求助文件属性改小数点位数 [打印本页]
作者: xiaofly888    时间: 2022-1-10 20:04
标题: 求助文件属性改小数点位数
各位大佬： 请教下改这个小数位数的API是什么， 类似这个帖子https://www.swbbsc.com/threadcon-324721.html

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

，哈哈  多谢A大  解决了，挺好用的，去零了。 只针对初期模板乱的问题
  1.    
  2. Sub main()
  3.   
  4.     Set swApp = Application.SldWorks
  5.     Set swModel = swApp.ActiveDoc
  6.     swModel.Extension.SetUserPreferenceInteger 263, 0, 4        '设置单位为"自定"
  7.     swModel.Extension.SetUserPreferenceInteger 259, 0, 3        '最后一个值，1毫克，2克，3千克，4镑
  8.     'swModel.Extension.SetUserPreferenceInteger 258, 0, 2        '长度米
  9.     'swModel.Extension.SetUserPreferenceInteger 260, 0, 6        '体积立方米
  10.     swModel.ClearSelection2 True
  11.    
  12.     Set Part = swApp.ActiveDoc
  13.     Dim myModelView As Object
  14.     Set myModelView = Part.ActiveView
  15.     myModelView.FrameState = swWindowState_e.swWindowMaximized
  16.     boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitSystem, 0, swUnitSystem_e.swUnitSystem_Custom)
  17.     boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsLinearDecimalPlaces, 0, 2)
  18.    
  19.     boolstatus = Part.Extension.SelectByID2("Model", "SHEET", 4.59116390922018E-02, 0.17180913682448, 0, False, 0, Nothing, 0)
  20.     boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swDetailingDimTrailingZero, swUserPreferenceOption_e.swDetailingDimension, swDetailingDimTrailingZero_e.swDimRemoveTrailingZeroes)
  21.     boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swDetailingTrailingZeroTolerance, swUserPreferenceOption_e.swDetailingDimension, swDetailingDimTrailingZero_e.swDimRemoveTrailingZeroes)
  22.     swModel.Save '?存档
  23. End Sub
复制代码
作者: Allate    时间: 2022-1-12 08:21
加油，这个自己编一下挺有意思的，希望能坚持下去。
作者: kkf2255    时间: 2022-1-14 19:13
SolidWorks机械工程师网，顶一下。



欢迎光临 SolidWorks机械工程师网——最大的SolidWorks学习平台 (https://www.swbbsc.com/) Powered by Discuz! X3.2