File: WORKFLOW\TSetupScanCmd.cpp
1 #include "workflow\TSetupScanCmd.h"
2
3 extern TMain Main;
4 extern TSteering Steering;
5
6 TSetupScanCmd::TSetupScanCmd ( TCmdTag ct ) : TCmd(ct)
7 {
8 ScanW= (TScanWindow*)Main.ScanWindow;
9 if (!ScanW)
10 {
11 MessageBox(GetFocus(), "Kein Scan-Fenster offen", "Fehler", MBSTOP);
12 return;
13 }
14 ScanW->nMotor= mlGetAxis();
15 ScanW->Detector= TDetectorManager::DetectorManager().GetDetector();
16 ScanW->eScanType= (ExScanType)ct.P1;
17 // Startup Steerng
18 Steering.StartUp(ScanW->GetHandle(), mlGetAxis(), ScanW->Detector);
19 switch (ScanW->eScanType)
20 {
21 case stOmega2ThetaScan:
22 sscanf(ct.P3, "%lf %lf %lf", &ScanW->dArgumentMin, &ScanW->dArgumentWidth, &ScanW->dArgumentMax);
23 break;
24
25 case stStandardScan:
26 sscanf(ct.P3, "%lf %lf %lf", &ScanW->dArgumentMin, &ScanW->dArgumentWidth, &ScanW->dArgumentMax);
27 break;
28 }
29 eStep= CReady;
30 bNoMeasure= TRUE;
31 };
32
33 void TSetupScanCmd::GetName ( LPSTR aName )
34 {
35 strcpy( aName, "SetupScan" );
36 };
37
38 bool TSetupScanCmd::GetShowData ( LPSTR buffer )
39 {
40 buffer[0]= 0;
41 if ( eStep == CReady )
42 {
43 if (nFailureId == 1)
44 {
45 #ifdef GermanVersion
46 sprintf( buffer, "\"SetupScan\"-Kommando fehlgeschlagen." );
49 #endif
50 }
51 else
52 {
53 #ifdef GermanVersion
54 sprintf( buffer, "\"SetupScan\"-Kommando erfolgreich." );
57 #endif
58 }
59 }
60 return true;
61 }
62