---

Hallo und Servus aus dem schönen München,

ich bin noch ein ziemlicher Newbie und hätte da ein Problemchen mit meinem geliebten CATScript.

Szenario:

Ich hab ein Produkt, welches ein *.CATAnalysis und ein *.CATPart beinhaltet. Im Part befinden sich eine Fläche und ein Punkt.

Das Analysis beinhaltet ein MeshPart, was sich auf die Partfläche bezieht.

Das Skript soll nun den Geometriepunkt als FEM-Knoten constrainen (mittels "Constrained Geometries").

Hier nun mein Skript:

Sub CATMain()

Set documents1 = CATIA.Documents
set myProd = documents1.Item("Testproduct.CATProduct")
Set partDocument1 = documents1.Item("Testpart_Punkt_constrainen.CATPart")
Set part1 = partDocument1.Part
Set hybridBodies1 = part1.HybridBodies
Set hybridBody1 = hybridBodies1.Item("Geometrical Set.1")
Set hybridShapes1 = hybridBody1.HybridShapes
Set hybridShapePointOnCurve1 = hybridShapes1.Item("Point.2")

Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Set analysisDocument1 = documents1.Item("Testmesh_2.CATAnalysis")
analysisDocument1.activate
Set analysisManager1 = analysisDocument1.Analysis
Set analysisModels1 = analysisManager1.AnalysisModels
Set analysisModel1 = analysisModels1.Item(1)
Set analysisMeshManager1 = analysisModel1.MeshManager
Set analysisMeshParts1 = analysisMeshManager1.AnalysisMeshParts
Set analysisMeshPart1 = analysisMeshParts1.Item("Smart Surface Mesh.1")

Set myLocSpecs = analysisMeshPart1.AnalysisMeshLocalSpecifications
Set myLocSpec = myLocSpecs.Add("MSHConstrainPoint")

myLocSpec.AddSupportFromReference "Constrained Geometries.1",myProd,reference1 <- in der Zeile fliegt er mit type missmatch rauß. Im Baum hat er "Constrained Geometries.1" erzeugt. Öffne ich dieses, steht drin:"no geometry found", aber gleichzeitig:"constrained"! In der Hilfe steht für AddSuportFromReference: iName,iProduct,iSupport. Kan mir jemand vielleicht sagen, was dort richtigerweise reinkommt, oder woran es sonst hängen könnte? Ich hab schon alles mögliche versucht und so langsam kehrt der Frust ein! 

End Sub

Schon mal vielen Dank!!!!

Mfg Dirk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP