工程圖的影像品質

武大郎

請問如何製作工程圖的影像品質這5項設定關閉的API

kkovgto

1. im swapp As Object
   
2. Dim part As Object
   
3. 
   
4. Sub test()
   
5. Set swapp = _
   
6. Application.SldWorks
   
7. Set part = swapp.ActiveDoc
   
8. With part.Extension
   
9. Dim bool As Boolean
   
10. bool = False
    
11. 
    
12. .SetUserPreferenceDouble swUserPreferenceDoubleValue_e.swImageQualityShadedDeviation, 3, 4.16 / 1000 '需輸入最小值 我的低為4.16
    
13. .SetUserPreferenceInteger swUserPreferenceIntegerValue_e.swImageQualityWireframeValue, 0, 1
    
14. 
    
15. .SetUserPreferenceToggle swUserPreferenceToggle_e.swImageQualitySaveTesselationWithPartDoc, 0, bool
    
16. .SetUserPreferenceToggle swUserPreferenceToggle_e.swImageQualityWireframeHighCurveQuality, 0, bool
    
17. .SetUserPreferenceToggle swUserPreferenceToggle_e.swImageQualityUseHighQualityEdgeSize, 0, bool
    
18. End With
    
19. End Sub

複製代碼

武大郎

經測試可以使用，謝謝KK