, . , , . .
SW API 2013 OpenDoc6 ( 2001 ) OpenDoc7 ( 2008 ). ISldWorks. , ( , ).
.
OpenDoc6
OpenDoc6 6 .
[ModelDoc2] = [SldWorks].OpenDoc6 (FileName, Type, Options, Configuration, Errors, Warnings)
FileName. string. , , ().
Type. integer long. . enum- swDocumentTypes_e. ( : )
Options. integer long. , . enum- swOpenDocsOptions_e.
:
32 swOpenDocOptions_AutoMissingConfig , , . , , , , . , .
256 swOpenDocOptions_DontLoadHiddenComponents . .
128 swOpenDocOptions_LoadLightweight .
16 swOpenDocOptions_LoadModel .
64 swOpenDocOptions_OverrideDefaultLoadLightweight , .
8 swOpenDocOptions_RapidDraft .
2 swOpenDocOptions_ReadOnly .
1 swOpenDocOptions_Silent .
4 swOpenDocOptions_ViewOnly .
, . .
Configuration. string. . .
Errors. long. , . enum- swFileLoadError_e.
:
2 .
65536
8192
1024
131072
262144
524288
Warnings. long. . enum- swFileLoadWarnings_e
|
|
:
128
64 , .
32768 Options 32 (swOpenDocOptions_AutoMissingConfig)
16384
4
32
OpenDoc6 ModelDoc2
OpenDoc6:
Visual Basic
Option Explicit Dim swApp As SldWorks.SldWorks Dim fileName As String Dim Err As Long, Warn As Long Sub main() Set swApp = Application.SldWorks fileName = "C:\ ring.SLDPRT" . swApp.OpenDoc6 fileName, 1, 1, "", Err, Warn Debug.Print ":" & Err Debug.Print ": " & Warn End Sub
Option Explicit Dim swApp As SldWorks.SldWorks Dim fileName As String Dim Err As Long, Warn As Long Sub main() Set swApp = Application.SldWorks fileName = "C:\ ring.SLDPRT" . swApp.OpenDoc6 fileName, 1, 1, "", Err, Warn Debug.Print ":" & Err Debug.Print ": " & Warn End Sub |
OpenDoc7
OpenDoc7 . OpenDoc6.
[ModelDoc2] = [Sldworks].OpenDoc7 Specification
Specification DocumentSpecification.
GetOpenDocSpec ISldWorks.
.
[DocumentSpecification] = [ISldWorks].GetOpenDocSpec (FileName)
FileName. string. .
. , .
DocumentSpecification . , , , .
, , , .. OpenDoc7 . , , . OpenDoc6 .
OpenDoc7:
Visual Basic
Option Explicit Dim swApp As SldWorks.SldWorks Dim spec As DocumentSpecification Dim fileName As String Sub main() Set swApp = Application.SldWorks fileName = "C:\ring.SLDPRT" Set spec = swApp.GetOpenDocSpec(fileName) swApp.OpenDoc7 spec End Sub
Option Explicit Dim swApp As SldWorks.SldWorks Dim spec As DocumentSpecification Dim fileName As String Sub main() Set swApp = Application.SldWorks fileName = "C:\ring.SLDPRT" Set spec = swApp.GetOpenDocSpec(fileName) swApp.OpenDoc7 spec End Sub |