SW API质量特性

ning84

https://forum.solidworks.com/message/116545
- O: q( z+ h" F' L

6 T# T4 Q5 s% i

1. 
   
2. ' Mass_Section Properties (Mass) ---------------------------------06/08/10
   
3. ' ******************************************************************************
   2 ]& Q$ b6 W0 a: @0 r
4. ' Macro will change the Mass units for Mass/Section Properties from Grams to Kilograms
   
5. ' or vice versa
   1 L; i* p( S3 ?: o4 V8 A/ H
6. ' ------------------------------------------------------------------------------
   
7. ' Written by: Deepak Gupta (http://gupta9665.wordpress.com/)
   - t+ k( c! R. n3 n2 o3 m* C3 ^& H+ a
8. ' ------------------------------------------------------------------------------
   / U1 D! y1 B( C8 ^% [
9. Dim swApp As Object
   
10. Dim Part As Object
    & D7 D  A8 C& N" b3 X
11. Dim boolstatus As Boolean
    / [  j% Q$ ~; Y4 A( _5 @
12. Dim longstatus As Long, longwarnings As Long
    
13. Dim Instance  As swUnitsMassPropMass_e 'As swUnitsMassPropMass_e
    
14. Sub main()
    " N# L# ]6 x  t8 R! I0 N4 T
15. Set swApp = Application.SldWorks
    . o0 ~7 i8 H) s
16. Set Part = swApp.ActiveDoc
    
17. Debug.Print Instance
    ( \; v" V0 `( ?5 P
18. ' Set the Unit system to Custom
    * y7 }9 ?1 g5 M
19. boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitSystem, 0, swUnitSystem_Custom)
    $ m5 Q( C* {( {5 t, p: T- F2 }
20. ' Get/Check Mass/Section Properties - Mass - Unit, if Grams
    ' g9 ~1 e- `+ W- z% P: D$ g$ g
21. If (Part.Extension.GetUserPreferenceInteger(swUnitsMassPropMass, 0) = 2) Then
    
22. ' Change to Kilograms
    
23. boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropMass, 0, 3) '
    
24. Else
    
25. ' Else keep or set to Grams
    , E2 C0 Z1 l( X. t" i3 T! Q
26. boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropMass, 0, 2)
    
27. End If
    
28. End Sub
    " b# b8 y; P7 t$ Z

复制代码

'This example shows how to change the drafting standard to a custom drafting standard.
  E* D" {8 V* v6 F'-------------------------------------------------
& d9 G: u8 r1 b6 c% Z5 q' e- b' Preconditions: Model document is open and a
; C, Y# M# z9 l'                SolidWorks-supplied drafting standard is set.
'
' Postconditions: Drafting standard is set to the
'                specified custom drafting standard.
. h, o& ]% ]3 p' o'-------------------------------------------------
/ N0 s+ w1 R# i9 x1 I  S* q3 q$ {Option Explicit
7 J4 q. w+ M+ V+ e1 F$ i* W5 r% ~
Dim swApp           As SldWorks.SldWorks
( R. \" d: I1 q. IDim swModel         As SldWorks.ModelDoc2
Dim swModExt        As SldWorks.ModelDocExtension
% y0 Z' \4 s; M/ [3 Z7 IDim bRetVal         As Boolean
+ ?  b; q3 h/ T& Q. i/ X" Z, {Dim sPath           As String
$ i) d% B% H/ d( c3 _# MDim sFileName       As String
Dim vDSNames        As Variant
Dim i               As Integer

Sub main()
9 \  n) H/ T$ W: K! A- u1 m" x% P
/ Z1 S3 Z8 N3 s$ K+ {* g9 _: nSet swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModExt = swModel.Extension
: T  r* |% o  e: l6 p$ W: z
0 i* A9 o" |# c/ u'Get current SolidWorks-supplied drafting standard
  P! d  U6 R* H2 S* f) m# mDebug.Print "Current drafting standard..."
Debug.Print "  (Standard, NoOptionSpecified) before = " & swModExt.GetUserPreferenceInteger(SwConst.swDetailingDimensionStandard, SwConst.swDetailingNoOptionSpecified)
3 v3 F# y/ |2 RDebug.Print "  (StandardName, NoOptionSpecified) before = " & swModExt.GetUserPreferenceString(SwConst.swDetailingDimensionStandardName, SwConst.swDetailingNoOptionSpecified)
Debug.Print "  "
( o% e. z0 Y% @1 u; k3 Y
' Get drafting standard names
' Only the SolidWorks-supplied drafting standards
' are returned; any custom drafting standards are
' W1 q6 }. b" R+ N4 E# o8 _' F' not returned
Debug.Print "SolidWorks-supplied drafting standards..."
vDSNames = swModExt.GetDraftingStandardNames
PrintNames vDSNames
/ L+ M0 N  r: X0 c0 @. }Debug.Print "  "

' g; F. f3 v- m2 u' Load custom drafting standard
. i3 Y0 p9 q4 abRetVal = swModExt.LoadDraftingStandard("C:\test\MyANSI.sldstd") ' Substitute your custom drafting standard path and filename

' Get custom drafting standard just-specified
9 A0 N# ^2 n# U+ n# `Debug.Print "Standard that custom drafting standard is based on or derived from..."
0 L8 ?+ f* b2 I4 |Debug.Print "  (Standard, NoOptionSpecified) after custom loaded = " & swModExt.GetUserPreferenceInteger(SwConst.swDetailingDimensionStandard, SwConst.swDetailingNoOptionSpecified)
Debug.Print "  (StandardName, NoOptionSpecified) after custom loaded = " & swModExt.GetUserPreferenceString(SwConst.swDetailingDimensionStandardName, SwConst.swDetailingNoOptionSpecified)
Debug.Print "  "

' Get drafting standard names
/ C7 ]  O9 F$ x' Remember, only the SolidWorks-supplied drafting standards
4 g+ |7 N5 E9 f9 _' are returned; any custom drafting standards are
' not returned
Debug.Print "SolidWorks-supplied drafting standards..."
vDSNames = swModExt.GetDraftingStandardNames
2 w3 K" b8 s8 Z2 M3 GPrintNames vDSNames
Debug.Print "  "
& N" ^6 g+ h0 l5 L" d5 I6 o
' B4 H. v4 t% X- C2 n* `$ ~2 ZEnd Sub

- k9 M" }7 c+ b$ R7 k6 [: B7 _Function PrintNames(ByVal vDSNames As Variant)
For i = LBound(vDSNames) To UBound(vDSNames)
- N: ]/ _7 O2 y- J! A    Debug.Print "  " & vDSNames(i)
" W, s: U- J6 v2 @Next i
End Function