怎么获取零件的外形尺寸写入配置

makejon

以下的是获取的装配体外形尺寸写入配置
但是我现在需要的是零件的

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()
    
14. 
    
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
    

复制代码