: ( ). . .
: AddComponent5 ( SW 2013 5 ) IAssemblyDoc. : , , ..
AddComponent5 8 Component2 ( ).
component2 = [ISldWorks].AddComponent5 (compName, ConfigOption, NewCongfigname, UseConfigForPartReferences, ExistingConfigName, X,Y,Z)
compName. string. .
configOption. integer long. . :
0 ( )
1
2
NewCongfigname. string. . , configOption 1 2.
UseConfigForPartReferences. Boolean. True ExistingConfigName.
ExistingConfigName. string. . (UseConfigForPartReferences) true.
X,Y,Z. double. ( ) . .
: AddComponent5, , . , , .
:
Visual Basic
Option Explicit Dim swApp As SldWorks.SldWorks Dim model As ModelDoc2 Dim assem As AssemblyDoc Const compName As String = "ring.SLDPRT" Dim compNamePath As String Dim err As Long, warn As Long
Option Explicit Dim swApp As SldWorks.SldWorks Dim model As ModelDoc2 Dim assem As AssemblyDoc Const compName As String = "ring.SLDPRT" Dim compNamePath As String Dim err As Long, warn As Long |
.
o assem AssemlyDoc ( ModelDoc2)
o compName . ring.SLDPRT
o compNamePath .
o err warn
Visual Basic
Set swApp = Application.SldWorks Set model = swApp.ActiveDoc Set assem = model
Set swApp = Application.SldWorks Set model = swApp.ActiveDoc Set assem = model |
IAssemblyDoc.
Visual Basic
compNamePath = swApp.GetCurrentMacroPathFolder & "\" & compName
|
|
compNamePath = swApp.GetCurrentMacroPathFolder & "\" & compName |
, . ( ) , , GetCurrentMacroPathFolder ISldWorks. , , (\).
Visual Basic
swApp.OpenDoc6 compNamePath, swDocPART, swOpenDocOptions_Silent, "", err, warn Debug.Print err Debug.Print warn
swApp.OpenDoc6 compNamePath, swDocPART, swOpenDocOptions_Silent, "", err, warn Debug.Print err Debug.Print warn |
, OpenDoc6 ISldWorks. . : .
assem.AddComponent5 compNamePath, 0, "", False, "", 0, 0, 0
assem.AddComponent5 compNamePath, 0, "", False, "", 0, 0, 0 |
, , AddComponent5. 8 .
1 compNamePath
2 , 0
3 , 0
4 . false
5 .
Visual Basic
swApp.CloseDoc compNamePath
swApp.CloseDoc compNamePath |
, , . CloseDoc ISldWorks. .
:
Visual Basic
Option Explicit Dim swApp As SldWorks.SldWorks Dim model As ModelDoc2 Dim assem As AssemblyDoc Const compName As String = "ring.SLDPRT" Dim compNamePath As String Dim err As Long, warn As Long Sub main() Set swApp = Application.SldWorks Set model = swApp.ActiveDoc Set assem = model compNamePath = swApp.GetCurrentMacroPathFolder & "\" & compName swApp.OpenDoc6 compNamePath, swDocPART, swOpenDocOptions_Silent, "", err, warn Debug.Print err Debug.Print warn assem.AddComponent5 compNamePath, 0, "", False, "", 0, 0, 0 swApp.CloseDoc compNamePath End Sub
Option Explicit Dim swApp As SldWorks.SldWorks Dim model As ModelDoc2 Dim assem As AssemblyDoc Const compName As String = "ring.SLDPRT" Dim compNamePath As String Dim err As Long, warn As Long Sub main() Set swApp = Application.SldWorks Set model = swApp.ActiveDoc Set assem = model compNamePath = swApp.GetCurrentMacroPathFolder & "\" & compName swApp.OpenDoc6 compNamePath, swDocPART, swOpenDocOptions_Silent, "", err, warn Debug.Print err Debug.Print warn assem.AddComponent5 compNamePath, 0, "", False, "", 0, 0, 0 swApp.CloseDoc compNamePath End Sub |