All Frameworks Object Hierarchy This Framework Previous Indexes
IUnknown
|
+---IDispatch
|
+---CATBaseUnknown
|
+---CATBaseDispatch
|
+---AnyObject
|
+---StiEngine
Dim oStiEngine As StiEngine
Set oStiEngine = CATIA.GetItem("CAIEngine")
| o Property IntegrationType( | ) As CATBSTR (Read Only) |
| o Property UseGraphicalUI( | ) As boolean |
Dim oStiEngine As StiEngine
Set oStiEngine = CATIA.GetItem("CAIEngine")
Dim bIsActive As boolean
bIsActive = oStiEngine.UseGraphicalUI
If Not bIsActive Then
oStiEngine.UseGraphicalUI = True
End If
| o Func BuildDocDBItemFromSmarTeamID( | long | iobjectId, |
| short | iclassId) As CATIAStiDBItem |
Dim oStiEngine As StiEngine
Set oStiEngine = CATIA.GetItem("CAIEngine")
Dim iobjectId As long
iobjectId = 963
Dim iclassId As short
iclassId = 57
Dim oStiDBItem As StiDBItem
Set oStiDBItem = oStiEngine.BuildDocDBItemFromSmarTeamID iobjectId, iclassId
| o Func BuildFileDBItemFromSmarTeamID( | long | iobjectId, |
| short | iclassId) As CATIAStiDBItem |
Dim oStiEngine As StiEngine
Set oStiEngine = CATIA.GetItem("CAIEngine")
Dim iobjectId As long
iobjectId = 963
Dim iclassId As short
iclassId = 57
Dim oStiDBItem As StiDBItem
Set oStiDBItem = oStiEngine.BuildFileDBItemFromSmarTeamID iobjectId, iclassId
| o Sub Connect( | CATBSTR | iUserLogin, |
| CATBSTR | iUserPassword) |
Dim oStiEngine As StiEngine
Set oStiEngine = CATIA.GetItem("CAIEngine")
Dim iUserLogin As CATBSTR
iUserLogin = "xxx"
Dim iUserPassword As CATBSTR
iUserPassword = "yyy"
oStiEngine.Connect iUserLogin,iUserPassword
********** Connection Without 'iUserLogin' & 'iUserPassword' **********
Dim oStiEngine As StiEngine
Set oStiEngine = CATIA.GetItem("CAIEngine")
oStiEngine.Connect "",""
| o Sub Disconnect( | ) |
Dim oStiEngine As StiEngine
Set oStiEngine = CATIA.GetItem("CAIEngine")
oStiEngine.Connect "",""
(...)
oStiEngine.Disconnect
| o Func GetSMARTEAMClassID( | CATIAStiDBItem | iStiDBItem) As short |
Dim oStiEngine As StiEngine
Set oStiEngine = CATIA.GetItem("CAIEngine")
' Retrieve the Current Activated Product Document
Dim productDocument01 As Document
Set productDocument01 = CATIA.ActiveDocument
' Retrieve the StiDBItem from the Document
Dim iStiDBItem As StiDBItem
Set iStiDBItem = oStiEngine.GetStiDBItemFromAnyObject(productDocument01)
Dim oClassId As short
oClassId = oStiEngine.GetSMARTEAMClassID(iStiDBItem)
| o Func GetSMARTEAMObjectID( | CATIAStiDBItem | iStiDBItem) As long |
Dim oStiEngine As StiEngine
Set oStiEngine = CATIA.GetItem("CAIEngine")
' Retrieve the Current Activated Product Document
Dim productDocument01 As Document
Set productDocument01 = CATIA.ActiveDocument
' Retrieve the StiDBItem from the Document
Dim iStiDBItem As StiDBItem
Set iStiDBItem = oStiEngine.GetStiDBItemFromAnyObject(productDocument01)
Dim oObjectId As long
oObjectId = oStiEngine.GetSMARTEAMObjectID(iStiDBItem)
| o Func GetStiDBItemFromAnyObject( | CATIABase | iAnyObject) As CATIAStiDBItem |
Dim oStiEngine As StiEngine
Set oStiEngine = CATIA.GetItem("CAIEngine")
' Retrieve the Current Activated Product Document
Dim productDocument01 As Document
Set productDocument01 = CATIA.ActiveDocument
' Retrieve the StiDBItem from the Document
Dim oStiDBItem As StiDBItem
Set oStiDBItem = oStiEngine.GetStiDBItemFromAnyObject(productDocument01)
| o Func GetStiDBItemFromCATBSTR( | CATBSTR | iFullPath) As CATIAStiDBItem |
Dim oStiEngine As StiEngine
Set oStiEngine = CATIA.GetItem("CAIEngine")
Dim iFullPath As CATBSTR
iFullPath = "E:\CATIAFiles\Engine.CATProduct"
Dim oStiDBItem As StiDBItem
Set oStiDBItem = oStiEngine.GetStiDBItemFromCATBSTR(iFullPath)
| o Func GetTeamPDMURL( | CATIAStiDBItem | iStiDBItem) As CATBSTR |
Dim oStiEngine As StiEngine
Set oStiEngine = CATIA.GetItem("CAIEngine")
Dim iobjectId As long
iobjectId = 963
Dim iclassId As short
iclassId = 57
Dim iStiDBItem As StiDBItem
Set iStiDBItem = oStiEngine.BuildFileDBItemFromSmarTeamID iobjectId, iclassId
Dim oTeamPDMURL As CATBSTR
oTeamPDMURL = oStiEngine.GetTeamPDMURL iStiDBItem
| o Func IsConnected( | ) As boolean |
Dim oStiEngine As StiEngine
Set oStiEngine = CATIA.GetItem("CAIEngine")
Dim oIsConnected As boolean
oIsConnected = oStiEngine.IsConnected
If Not oStiEngine.IsConnected() Then
oStiEngine.Connect
End If
| o Sub LifeCycleCheckIn( | CATIAStiDBItem | iStiDBItem) |
Dim oStiEngine As StiEngine
Set oStiEngine = CATIA.GetItem("CAIEngine")
Dim bIsActive As boolean
bIsActive = oStiEngine.UseGraphicalUI
If Not bIsActive Then
oStiEngine.UseGraphicalUI = True
End If
' Retrieve the Current Activated Product
Dim productDocument01 As Document
Set productDocument01 = CATIA.ActiveDocument
' Retrieve the StiDBItem from the Document
Dim iStiDBItem As StiDBItem
Set iStiDBItem = oStiEngine.GetStiDBItemFromAnyObject( productDocument01 )
oStiEngine.LifeCycleCheckIn iStiDBItem
********** LifeCycleCheckIn Without GUI **********
Dim oStiEngine As StiEngine
Set oStiEngine = CATIA.GetItem("CAIEngine")
Dim bIsActive As boolean
bIsActive = oStiEngine.UseGraphicalUI
If bIsActive Then
oStiEngine.UseGraphicalUI = False
End If
' Retrieve the Current Activated Product
Dim productDocument01 As Document
Set productDocument01 = CATIA.ActiveDocument
' Retrieve the StiDBItem from the Document
Dim iStiDBItem As StiDBItem
Set iStiDBItem = oStiEngine.GetStiDBItemFromAnyObject( productDocument01 )
oStiEngine.LifeCycleCheckIn iStiDBItem
| o Sub LifeCycleCheckOut( | CATIAStiDBItem | iStiDBItem) |
Dim oStiEngine As StiEngine
Set oStiEngine = CATIA.GetItem("CAIEngine")
Dim bIsActive As boolean
bIsActive = oStiEngine.UseGraphicalUI
If Not bIsActive Then
oStiEngine.UseGraphicalUI = True
End If
' Retrieve the Current Activated Product
Dim productDocument01 As Document
Set productDocument01 = CATIA.ActiveDocument
' Retrieve the StiDBItem from the Document
Dim iStiDBItem As StiDBItem
Set iStiDBItem = oStiEngine.GetStiDBItemFromAnyObject( productDocument01 )
oStiEngine.LifeCycleCheckOut iStiDBItem
********** LifeCycleCheckOut Without GUI **********
Dim oStiEngine As StiEngine
Set oStiEngine = CATIA.GetItem("CAIEngine")
Dim bIsActive As boolean
bIsActive = oStiEngine.UseGraphicalUI
If bIsActive Then
oStiEngine.UseGraphicalUI = False
End If
' Retrieve the Current Activated Product
Dim productDocument01 As Document
Set productDocument01 = CATIA.ActiveDocument
' Retrieve the StiDBItem from the Document
Dim iStiDBItem As StiDBItem
Set iStiDBItem = oStiEngine.GetStiDBItemFromAnyObject( productDocument01 )
oStiEngine.LifeCycleCheckOut iStiDBItem
| o Sub LifeCycleCheckOutPropagated( | CATIAStiDBItem | iStiDBItem) |
Dim oStiEngine As StiEngine
Set oStiEngine = CATIA.GetItem("CAIEngine")
Dim bIsActive As boolean
bIsActive = oStiEngine.UseGraphicalUI
If Not bIsActive Then
oStiEngine.UseGraphicalUI = True
End If
' Retrieve the Current Activated Product
Dim productDocument01 As Document
Set productDocument01 = CATIA.ActiveDocument
' Retrieve the StiDBItem from the Document
Dim iStiDBItem As StiDBItem
Set iStiDBItem = oStiEngine.GetStiDBItemFromAnyObject( productDocument01 )
oStiEngine.LifeCycleCheckOutPropagated iStiDBItem
********** LifeCycleCheckOutPropagated Without GUI **********
Dim oStiEngine As StiEngine
Set oStiEngine = CATIA.GetItem("CAIEngine")
Dim bIsActive As boolean
bIsActive = oStiEngine.UseGraphicalUI
If bIsActive Then
oStiEngine.UseGraphicalUI = False
End If
' Retrieve the Current Activated Product
Dim productDocument01 As Document
Set productDocument01 = CATIA.ActiveDocument
' Retrieve the StiDBItem from the Document
Dim iStiDBItem As StiDBItem
Set iStiDBItem = oStiEngine.GetStiDBItemFromAnyObject( productDocument01 )
oStiEngine.LifeCycleCheckOutPropagated iStiDBItem
| o Sub LifeCycleNewRelease( | CATIAStiDBItem | iStiDBItem) |
Dim oStiEngine As StiEngine
Set oStiEngine = CATIA.GetItem("CAIEngine")
Dim bIsActive As boolean
bIsActive = oStiEngine.UseGraphicalUI
If Not bIsActive Then
oStiEngine.UseGraphicalUI = True
End If
' Retrieve the Current Activated Product
Dim productDocument01 As Document
Set productDocument01 = CATIA.ActiveDocument
' Retrieve the StiDBItem from the Document
Dim iStiDBItem As StiDBItem
Set iStiDBItem = oStiEngine.GetStiDBItemFromAnyObject( productDocument01 )
oStiEngine.LifeCycleNewRelease iStiDBItem
********** LifeCycleNewRelease Without GUI **********
Dim oStiEngine As StiEngine
Set oStiEngine = CATIA.GetItem("CAIEngine")
Dim bIsActive As boolean
bIsActive = oStiEngine.UseGraphicalUI
If bIsActive Then
oStiEngine.UseGraphicalUI = False
End If
' Retrieve the Current Activated Product
Dim productDocument01 As Document
Set productDocument01 = CATIA.ActiveDocument
' Retrieve the StiDBItem from the Document
Dim iStiDBItem As StiDBItem
Set iStiDBItem = oStiEngine.GetStiDBItemFromAnyObject( productDocument01 )
oStiEngine.LifeCycleNewRelease iStiDBItem
| o Sub LifeCycleNewReleasePropagated( | CATIAStiDBItem | iStiDBItem) |
Dim bIsActive As boolean bIsActive = oStiEngine.UseGraphicalUI If Not bIsActive Then oStiEngine.UseGraphicalUI = True End If ' Retrieve the Current Activated Product Dim productDocument01 As Document Set productDocument01 = CATIA.ActiveDocument ' Retrieve the StiDBItem from the Document Dim iStiDBItem As StiDBItem Set iStiDBItem = oStiEngine.GetStiDBItemFromAnyObject( productDocument01 ) oStiEngine.LifeCycleNewReleasePropagated iStiDBItem********** LifeCycleNewReleasePropagated Without GUI **********
Dim bIsActive As boolean bIsActive = oStiEngine.UseGraphicalUI If bIsActive Then oStiEngine.UseGraphicalUI = False End If ' Retrieve the Current Activated Product Dim productDocument01 As Document Set productDocument01 = CATIA.ActiveDocument ' Retrieve the StiDBItem from the Document Dim iStiDBItem As StiDBItem Set iStiDBItem = oStiEngine.GetStiDBItemFromAnyObject( productDocument01 ) oStiEngine.LifeCycleNewReleasePropagated iStiDBItem
| o Sub LifeCycleRelease( | CATIAStiDBItem | iStiDBItem) |
Dim oStiEngine As StiEngine
Set oStiEngine = CATIA.GetItem("CAIEngine")
Dim bIsActive As boolean
bIsActive = oStiEngine.UseGraphicalUI
If Not bIsActive Then
oStiEngine.UseGraphicalUI = True
End If
' Retrieve the Current activated document
Dim productDocument01 As Document
Set productDocument01 = CATIA.ActiveDocument
' Retrieve the StiDBItem from the Document
Dim iStiDBItem As StiDBItem
Set iStiDBItem = oStiEngine.GetStiDBItemFromAnyObject( productDocument01 )
oStiEngine.LifeCycleRelease iStiDBItem
********** LifeCycleRelease Without GUI **********
Dim oStiEngine As StiEngine
Set oStiEngine = CATIA.GetItem("CAIEngine")
Dim bIsActive As boolean
bIsActive = oStiEngine.UseGraphicalUI
If bIsActive Then
oStiEngine.UseGraphicalUI = False
End If
' Retrieve the Current activated document
Dim productDocument01 As Document
Set productDocument01 = CATIA.ActiveDocument
' Retrieve the StiDBItem from the Document
Dim iStiDBItem As StiDBItem
Set iStiDBItem = oStiEngine.GetStiDBItemFromAnyObject( productDocument01 )
oStiEngine.LifeCycleRelease iStiDBItem
| o Sub LifeCycleUndoCheckOut( | CATIAStiDBItem | iStiDBItem) |
Dim oStiEngine As StiEngine
Set oStiEngine = CATIA.GetItem("CAIEngine")
Dim bIsActive As boolean
bIsActive = oStiEngine.UseGraphicalUI
If Not bIsActive Then
oStiEngine.UseGraphicalUI = True
End If
' Retrieve the Current Activated Product
Dim productDocument01 As Document
Set productDocument01 = CATIA.ActiveDocument
' Retrieve the StiDBItem from the Document
Dim iStiDBItem As StiDBItem
Set iStiDBItem = oStiEngine.GetStiDBItemFromAnyObject( productDocument01 )
oStiEngine.LifeCycleUndoCheckOut iStiDBItem
********** LifeCycleUndoCheckOut Without GUI **********
Dim bIsActive As boolean bIsActive = oStiEngine.UseGraphicalUI If bIsActive Then oStiEngine.UseGraphicalUI = False End If ' Retrieve the Current Activated Product Dim productDocument01 As Document Set productDocument01 = CATIA.ActiveDocument ' Retrieve the StiDBItem from the Document Dim iStiDBItem As StiDBItem Set iStiDBItem = oStiEngine.GetStiDBItemFromAnyObject( productDocument01 ) oStiEngine.LifeCycleUndoCheckOut iStiDBItem
| o Sub RefreshInfo( | ) |
Dim oStiEngine As StiEngine
Set oStiEngine = CATIA.GetItem("CAIEngine")
oStiEngine.RefreshInfo
| o Sub Save( | CATIAStiDBItem | iStiDBItem) |
Dim oStiEngine As StiEngine
Set oStiEngine = CATIA.GetItem("CAIEngine")
Dim bIsActive As boolean
bIsActive = oStiEngine.UseGraphicalUI
If Not bIsActive Then
oStiEngine.UseGraphicalUI = True
End If
' Retrieve the Current Activated Product
Dim productDocument01 As Document
Set productDocument01 = CATIA.ActiveDocument
' Retrieve the StiDBItem from the Document
Dim iStiDBItem As StiDBItem
Set iStiDBItem = oStiEngine.GetStiDBItemFromAnyObject(productDocument01)
oStiEngine.Save iStiDBItem
********** Save Without GUI **********
Dim oStiEngine As StiEngine
Set oStiEngine = CATIA.GetItem("CAIEngine")
Dim bIsActive As boolean
bIsActive = oStiEngine.UseGraphicalUI
If bIsActive Then
oStiEngine.UseGraphicalUI = False
End If
' Retrieve the Current Activated Product
Dim productDocument01 As Document
Set productDocument01 = CATIA.ActiveDocument
' Retrieve the StiDBItem from the Document
Dim iStiDBItem As StiDBItem
Set iStiDBItem = oStiEngine.GetStiDBItemFromAnyObject( productDocument01 )
' Save the Product
oStiEngine.Save iStiDBItem
Copyright © 2003, Dassault Systèmes. All rights reserved.