All Frameworks Object Hierarchy This Framework Indexes
Dim SAMV4Service As AnalysisV4Services
Set SAMV4Service = CATIA.GetItem("SAMV4Service")
| o Func GetStorageInfo( | iModelPath, | |
| oPrefix) As |
Dim SAMV4Service As AnalysisV4Services
Set SAMV4Service = CATIA.GetItem("SAMV4Service")
Dim Prefix As String
Prefix = ""
Dim PathStorage As String
Dim sDocPath As String
sDocPath = "E:\mymodel.model"
PathStorage = SAMV4Service.GetStorageInfo(sDocPath,Prefix)
CATIA.SystemService.Print "GetStorageInfo for Model: " & sDocPath
CATIA.SystemService.Print "GetStorageInfo PathStorage: " & PathStorage & " Prefix " & Prefix
| o Sub PrintAssembledSetsInfo( | iSessionPath, | |
| iPrintPath, | ||
| iSubmesh) |
Dim SAMV4Service As AnalysisV4Services
Set SAMV4Service = CATIA.GetItem("SAMV4Service")
Dim sSession As String
sSession = "E:\MYSESSION.session"
Dim sSumpFile As String
sSumpFile = "E:\MyFile.txt"
SAMV4Service.PrintAssembledSetsInfo sSession,sSumpFile,120
| o Sub PrintCouplingAnalysisInfo( | iSessionPath, | |
| iPrintPath, | ||
| iSubmesh) |
Dim SAMV4Service As AnalysisV4Services
Set SAMV4Service = CATIA.GetItem("SAMV4Service")
Dim sSession As String
sSession = "E:\MYSESSION.session"
Dim sSumpFile As String
sSumpFile = "E:\MyCouplingAnalysisFile.txt"
SAMV4Service.PrintCouplingAnalysisInfo sSession,sSumpFile, 120
| o Sub PrintSessionInfo( | iSessionPath, | |
| iPrintPath) |
Dim SAMV4Service As AnalysisV4Services
Set SAMV4Service = CATIA.GetItem("SAMV4Service")
Dim sSession As String
sSession = "E:\MYSESSION.session"
Dim sSumpFile As String
sSumpFile = "E:\MyFile.txt"
SAMV4Service.PrintSessionInfo sSession,sSumpFile
Copyright © 2003, Dassault Systèmes. All rights reserved.