SW API质量特性

ning84 · 发表于 2011-11-23 13:56:19

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

https://forum.solidworks.com/message/116545

1 R3 n) X+ l# Y
' Mass_Section Properties (Mass) ---------------------------------06/08/10
, G% t* z) c4 n4 D& B% k: T
' ******************************************************************************, u9 m) j( E' x/ }- V
' Macro will change the Mass units for Mass/Section Properties from Grams to Kilograms9 K/ b0 H/ {2 O
' or vice versa
3 K+ @/ t$ M0 q" Y" i3 s
' ------------------------------------------------------------------------------$ h) X4 d% c9 N* {' N! J p
' Written by: Deepak Gupta (http://gupta9665.wordpress.com/)* X; i/ I2 N4 \" k r7 B; U% p
' ------------------------------------------------------------------------------6 Z4 Y5 K# A( c
Dim swApp As Object
) L2 F' \3 {; W2 s
Dim Part As Object
4 n" w- e8 c, H
Dim boolstatus As Boolean# s* ~3 o- p+ j0 B
Dim longstatus As Long, longwarnings As Long; l* D% p+ z9 S0 Z
Dim Instance As swUnitsMassPropMass_e 'As swUnitsMassPropMass_e
4 H% R& |8 O! u9 e9 P
Sub main()" n! L8 Y- W+ ]
Set swApp = Application.SldWorks
1 @. Y+ L6 m4 I# L" N
Set Part = swApp.ActiveDoc
5 H! {6 b( x5 B3 E, k# u3 s
Debug.Print Instance
7 x/ G% t4 H4 U! {* ]+ X+ b
' Set the Unit system to Custom/ H9 G1 f/ M! w/ Q& P
boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitSystem, 0, swUnitSystem_Custom)
, ? l, V( F" t( a9 P
' Get/Check Mass/Section Properties - Mass - Unit, if Grams& }3 h& M, L* \0 ^, W3 U
If (Part.Extension.GetUserPreferenceInteger(swUnitsMassPropMass, 0) = 2) Then
/ j* I; r C# b# m
' Change to Kilograms+ ]( m) M8 D/ I5 x0 @ E
boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropMass, 0, 3) '2 `% o: H( u9 q3 g9 }
Else
. z9 z; i+ b7 k. n, H8 O
' Else keep or set to Grams9 D* j, ~; m5 j, P
boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropMass, 0, 2)
$ S$ R- y) y+ I0 |6 D. W
End If
1 w1 ]2 c& J& _8 \
End Sub, b/ n2 m# k# P$ H- x5 k

复制代码

'This example shows how to change the drafting standard to a custom drafting standard.
'-------------------------------------------------
' Preconditions: Model document is open and a
'             SolidWorks-supplied drafting standard is set.
'
' Postconditions: Drafting standard is set to the
'             specified custom drafting standard.
'-------------------------------------------------
Option Explicit

Dim swApp          As SldWorks.SldWorks
Dim swModel       As SldWorks.ModelDoc2
Dim swModExt       As SldWorks.ModelDocExtension
Dim bRetVal       As Boolean
Dim sPath          As String
Dim sFileName    As String
Dim vDSNames       As Variant
Dim i             As Integer

Sub main()

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModExt = swModel.Extension

'Get current SolidWorks-supplied drafting standard
Debug.Print "Current drafting standard..."
Debug.Print "  (Standard, NoOptionSpecified) before = " & swModExt.GetUserPreferenceInteger(SwConst.swDetailingDimensionStandard, SwConst.swDetailingNoOptionSpecified)
Debug.Print "  (StandardName, NoOptionSpecified) before = " & swModExt.GetUserPreferenceString(SwConst.swDetailingDimensionStandardName, SwConst.swDetailingNoOptionSpecified)
Debug.Print "  "

' Get drafting standard names
' Only the SolidWorks-supplied drafting standards
' are returned; any custom drafting standards are
' not returned
Debug.Print "SolidWorks-supplied drafting standards..."
vDSNames = swModExt.GetDraftingStandardNames
PrintNames vDSNames
Debug.Print "  "

' Load custom drafting standard
bRetVal = swModExt.LoadDraftingStandard("C:\test\MyANSI.sldstd") ' Substitute your custom drafting standard path and filename

' Get custom drafting standard just-specified
Debug.Print "Standard that custom drafting standard is based on or derived from..."
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
' Remember, only the SolidWorks-supplied drafting standards
' are returned; any custom drafting standards are
' not returned
Debug.Print "SolidWorks-supplied drafting standards..."
vDSNames = swModExt.GetDraftingStandardNames
PrintNames vDSNames
Debug.Print "  "

End Sub

Function PrintNames(ByVal vDSNames As Variant)
For i = LBound(vDSNames) To UBound(vDSNames)
Debug.Print "  " & vDSNames(i)
Next i
End Function

		自动登录	找回密码
密码			注册

通知

[讨论] SW API质量特性

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。