iCAx开思网

标题: 怎么获取零件的外形尺寸写入配置 [打印本页]
作者: makejon    时间: 2019-8-30 11:23
标题: 怎么获取零件的外形尺寸写入配置
以下的是获取的装配体外形尺寸写入配置
但是我现在需要的是零件的
  1. Dim swApp                   As SldWorks.SldWorks
  2. Dim swModel                 As SldWorks.ModelDoc2
  3. Dim vBox                    As Variant
  4. Dim X_max                   As Double
  5. Dim X_min                   As Double
  6. Dim Y_max                   As Double
  7. Dim Y_min                   As Double
  8. Dim Z_max                   As Double
  9. Dim Z_min                   As Double
  10. Dim chang                   As Double
  11. Dim kuan                    As Double
  12. Dim gao                     As Double
  13. Sub main()

  15.     Set swApp = Application.SldWorks
  16.     Set swModel = swApp.ActiveDoc
  17.     vBox = swModel.GetBox()  '获取装配体的边界框swBoundingBoxIncludeRefPlanes
  18.    
  19.     X_max = vBox(3)                                      '获取边界框6个点的坐标
  20.     X_min = vBox(0)
  21.     Y_max = vBox(4)
  22.     Y_min = vBox(1)
  23.     Z_max = vBox(5)
  24.     Z_min = vBox(2)
  25.    
  26.     chang = X_max * 1000 - X_min * 1000            '获取长宽高
  27.     kuan = Y_max * 1000 - Y_min * 1000
  28.     gao = Z_max * 1000 - Z_min * 1000
  29.    
  30.     blnretval = swModel.DeleteCustomInfo2("", "外形尺寸")  '把数据导入属性栏
  31.     blnretval = swModel.AddCustomInfo3("", "外形尺寸", swCustomInfoText, Format(chang, "0.0") & "*" & Format(kuan, "0.0") & "*" & Format(gao, "0.0"))
  32.    
  33. End Sub
复制代码






欢迎光临 iCAx开思网 (https://www.icax.org/) Powered by Discuz! X3.3