Servus,
erstmal vielen Dank für die superschnelle Antwort.
Mir ist zwar einiges klarer geworden, leider funktioniert aber das Auslesen noch nicht.
1 Frage.
Kann es sein, dass [Item("Sensors.1", catAnalysisSetSearchAll] mit [ItemByType("SensorSet")] ersetzt werden muss? Wenn ich es mit ersten machen, dass makiert er mir den Reiter "Static Case Solution".
2 Frage.
Hättest du ein Beispiel wie eine Suchroutine aussehen könnte?
3 Frage.
Um zu den Objekt "localSensor" zu gelangen muss ich doch den kompletten Strukturbaum dazu deklarieren. ->siehe Anhang
Dann fehlt mir doch noch der Unterpunkt "AnalysisSensors" unter AnalysisEntities, oder nicht?
Ich hab mal die Sensorresolution angefügt.
Hier mal das aktuelle Skript.
------------------------------------
Sub CATMain()
Set fileSystem1 = CATIA.FileSystem
Set folder1 = fileSystem1.GetFolder("D:\contactPressure\test")
Dim analysispart
Set analysispart = CATIA.ActiveDocument.Analysis
Dim mymodelroot
Set mymodelroot= analysispart.AnalysisModels
Dim myModel
Set myModel=mymodelroot.Item(1)
Dim myCase
Set myCase= myModel.AnalysisCases.Item(1)
Dim mySet
Set mySet=myCase.AnalysisSets.ItemByType("SensorSet")
Dim myEntities
Set myEntities = mySet.AnalysisEntities.Item(8) '"8" enspricht dem DMS1 Displacement Vector.16"
myEntities.ExportDataInGlobalAxis folder1, "89", "txt", catSamCoordinateSystem_Cartesian, True
End Sub
'---- Begin resolution script for object : DMS1 Displacement Vector.16
Set analysisDocument1 = CATIA.ActiveDocument
Set analysisManager1 = analysisDocument1.Analysis
Set analysisModels1 = analysisManager1.AnalysisModels
Set analysisModel1 = analysisModels1.Item(1)
Set analysisCases1 = analysisModel1.AnalysisCases
Set analysisCase1 = analysisCases1.Item(1)
Set analysisSets1 = analysisCase1.AnalysisSets
Set analysisSet1 = analysisSets1.Item("Sensors.1", catAnalysisSetSearchAll)
Set analysisLocalSensor1 = analysisSet1.GetItem("DMS1 Displacement Vector.16")
'---- End resolution script
'---- Begin resolution script for object : Sensors.1
Set analysisDocument1 = CATIA.ActiveDocument
Set analysisManager1 = analysisDocument1.Analysis
Set analysisModels1 = analysisManager1.AnalysisModels
Set analysisModel1 = analysisModels1.Item(1)
Set analysisCases1 = analysisModel1.AnalysisCases
Set analysisCase1 = analysisCases1.Item(1)
Set analysisSets1 = analysisCase1.AnalysisSets
Set analysisSet1 = analysisSets1.Item("Sensors.1", catAnalysisSetSearchAll)
'---- End resolution script
So wäre das Skript wenn ich es aufzeichen für den loaklen Sensor "DMS1 Displacement Vector.16". Ich finde es schon interessant, dass er nicht mal in "Sensor.1" springt, sonder nur in "Static Case Solution".
Hier das Skript dazu.
-----------------------------
Language="VBSCRIPT"
Sub CATMain()
Set fileSystem1 = CATIA.FileSystem
Set folder1 = fileSystem1.GetFolder("D:\contactPressure\test")
Set analysisDocument1 = CATIA.ActiveDocument
Set analysisManager1 = analysisDocument1.Analysis
Set analysisModels1 = analysisManager1.AnalysisModels
Set analysisModel1 = analysisModels1.Item(1)
Set analysisCases1 = analysisModel1.AnalysisCases
Set analysisCase1 = analysisCases1.Item(1)
Set analysisSets1 = analysisCase1.AnalysisSets
Set analysisSet1 = analysisSets1.Item("Static Case Solution.1", catAnalysisSetSearchAll)
Set analysisImages1 = analysisSet1.AnalysisImages
Set analysisImage1 = analysisImages1.Item("Sensor_Disp.1")
analysisImage1.ExportDataInGlobalAxis folder1, "090907", "txt", catSamCoordinateSystem_Cartesian, True
End Sub
--------------------------------
[Diese Nachricht wurde von AierMandi am 28. Sep. 2011 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP