' COPYRIGHT DASSAULT SYSTEMES 2000 ' *********************************************************************** ' Purpose: Open an analysis document ' Create spot welding connection mesh part ' assign the spot welding analysis connection as support ' specify the global specifications ' Assumptions: Looks for WeldConnection.CATAnalysis in the directory and surface Analysis Connection ' Author: bmw ' Languages: VBScript ' Locales: English ' CATIA Level: V5R16 ' *********************************************************************** Sub CATMain() ' ----------------------------------------------------------- ' Optional: allows to find the sample wherever it's installed sDocPath=CATIA.SystemService.Environ("CATDocView") If (Not CATIA.FileSystem.FolderExists(sDocPath)) Then Err.Raise 9999,,"No Doc Path Defined" End If ' ----------------------------------------------------------- ' Open the Analysis document sFilePath = CATIA.FileSystem.ConcatenatePaths(sDocPath, "online\CAAScdAniUseCases\samples\WeldConnections.CATAnalysis") Set oAnalysisDocument = CATIA.Documents.Open(sFilePath) ' Retrieve the analysis Manager Set oAnalysisManagar = oAnalysisDocument.Analysis Set oAnalysisSet = oAnalysisManagar.AnalysisSets ' Retrieve the part document and product Set oAnalysisLinkedDocuments = oAnalysisManagar.LinkedDocuments Set partDocument = oAnalysisLinkedDocuments.Item(1) Set product = partDocument.Product ' Retrieve the analysis model Set oAnalysisModels = oAnalysisManagar.AnalysisModels Set oAnalysisModel = oAnalysisModels.Item(1) 'Retrieve the mesh manager and list of mesh parts Set oAnalysisMeshManager = oAnalysisModel.MeshManager Set oAnalysisMeshParts = oAnalysisMeshManager.AnalysisMeshParts 'Retrieve the connection design manager and connection Set connection = oAnalysisSet.ItemByType("ConnectionDesignManager") Set connSet = connection.AnalysisSets Set conn = connSet.ItemByType("ConnectionDesignSet") Set entity = conn.AnalysisEntities Set surfConn = entity.Item(1) Set reference1 = oAnalysisManagar.CreateReferenceFromObject(surfConn) 'Add new spot welding connection mesh part to the list of mesh parts Set spotWeldMesh = oAnalysisMeshParts.Add ("MSHPartConnWeldSpot") 'Add assign the connection as reference spotWeldMesh.AddSupportFromReference NOTHING, reference1 'Assign values to its global specifications spotWeldMesh.SetGlobalSpecification "MaximalGap", "10.0 mm" spotWeldMesh.SetGlobalSpecification "MeshStep", "10.0 mm" spotWeldMesh.SetGlobalSpecification "StopUpdateOnError", 1 spotWeldMesh.SetGlobalSpecification "SpotDiameter", "2.0 mm" spotWeldMesh.SetGlobalSpecification "MiddleCombination", 3 'Update Mesh spotWeldMesh.Update End Sub