---

sensor1.jpg

Hallo zusammen,
ich schalge mich mit folgedem Problem herum:
Ich möchte einen Lokalen Sensor im FEM (R14) erzeugen.
Das script, welches ich mit dem Makrorekorder aufzeichne, funktioniert erst nach ein paar Modifikationen - der Sensor wird erzeugt -soweit so gut.
ABER: Wenn ich den Sensor updaten lassen, wird gemeldet, daß ein paar Einstellungen nicht stimmen. Rufe ich mir die Parameter des Sensor auf (siehe Bild), ist alles soweit korrekt angegeben.
Leider finde ich in der Doku keinerlei Hinweise über die Einstellungsmöglichkeiten und Syntax für die internen Paramter der Sensoren.
Kann mir da jemand helfen ??

Mein Sript:
---------------------------------------------
Language="VBSCRIPT"

Sub CATMain()

Set analysisDocument1 = CATIA.ActiveDocument

Set analysisManager1 = analysisDocument1.Analysis

Set analysisLinkedDocuments1 = analysisManager1.LinkedDocuments

Set partDocument1 = analysisLinkedDocuments1.Item(1)

Set product1 = partDocument1.Product

Set partDocument1 = product1.Parent

Set partDocument1 = product1.Parent

Dim bSTR1
bSTR1 = product1.Name

Dim bSTR2
bSTR2 = partDocument1.Name

Dim bSTR3
bSTR3 = product1.Name

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.ItemByType("SensorSet")

Set analysisEntities1 = analysisSet1.AnalysisEntities

Set analysisEntity1 = analysisEntities1.Add("SAMImageSensor")

analysisEntity1.name = "Sensor_Übergang"

Set publications1 = product1.Publications

Set publication1 = publications1.Item("Sensor_Übergang")

analysisEntity1.AddSupportFromPublication product1, publication1

Set basicComponents1 = analysisEntity1.BasicComponents

Set basicComponent1 = basicComponents1.GetItem("SAMOccSolutionFilter.1")

Set basicComponents2 = basicComponent1.BasicComponents

Set basicComponent2 = basicComponents2.GetItem("SAMSolutionPtr.1")

Set analysisSet2 = analysisSets1.ItemByType("StaticSet")

Set reference1 = analysisManager1.CreateReferenceFromObject(analysisSet2)

basicComponent2.SetReference "ConnectorList", 1, 1, 0, reference1

Set basicComponent3 = basicComponents2.GetItem("SAMEnumOccurrences.1")

basicComponent3.SetValue "Values", 0, 0, 0, 1

Set basicComponent4 = basicComponents1.GetItem("PostProType")

basicComponent4.SetValue "", 0, 0, 0, 3

Set basicComponent5 = basicComponents1.GetItem("Parameters")

basicComponent5.SetValue "", 0, 0, 0, 2

End Sub
-------------------------------------------------------------

Jens Hansen

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