Can I turn off a "tool" (ex. MEASURE + DIRECT + LINE TOOL) within a PREMIER APP and turn on another?

mbatchelor · January 2015

All --

I have an app that activates the MEASURE + DIRECT + LINE TOOL in the INTERACTIVE MODE so the USER can create a line.

I would then like the app to activate the SELECT + REGIONS OF INTEREST + SELECT ROI TOOL active so the USER can edit an existing ROI if they need to.

Recording this within PREMIER does not track this TOOL CHANGE and I don't see any QUESTIONS or DISCUSSIONS here that address this.

Is there a way to do this within PREMIER?

Thanks.

-- Matt

YuriG · January 2015

Tool selection is not recordable, there are special commands in the Toolbox that you can use.
Just drop the command from the toolbox to your macro and activate Interaction.

Yuri

YuriG · January 2015

Here is the sample macro:

	Public Function NewMacro() As SimpleScript
		NewMacro = New SimpleScript


		With [Select].Roi.ToolsCommands.Select(NewMacro)
			.Prompt = "Select ROIs"
			.Overlay = Overlays.OverlayType.ROIOverlay
			.Interactive = True
			.Run(ThisApplication.ActiveImage)
		End With

	End Function

Yuri

PierreD · January 2015

Matt,

Yes you are right, this is a bug in Premier 9.1.2 which affects interpreted projects (compiled projects are OK). It is addressed in Premier 9.1.4.

Pierre

YuriG · January 2015

Matt,

Measurements.Add works differently, you have to specify coordinates if user doesn't do anything:
.

		With Measure.MeasurementsCommands.Add(M2)
			.MeasurementType = McMeasurements.enumMMSTypes.mmtsLine
			.Points = New System.Collections.Generic.List(Of System.Drawing.PointF)
			.Points.Add(New System.Drawing.PointF(81.46786F,88.87738F))
			.Points.Add(New System.Drawing.PointF(164.825F,141.6702F))
			.FeatureName = "L1"
			.SnapFeature = False
			.Interactive = True
			.Run(image1, meas1)
		End With

I can see that you are trying to create a measurement to use for calibration interactively. There is already a function for that - Quick Calibration. Below is the macro that promts the user to create a line and creates calibration based on that:

	Public Function CalibrateByLine() As SimpleScript
		CalibrateByLine = New SimpleScript
		Dim doc1

        With Application.DocumentCommands.Active(CalibrateByLine)
			.Run(doc1)
		End With

		With Measure.Calibration.SpatialCommands.QuickCalibration(CalibrateByLine)
			.Interactive = True
			.Run(doc1)
		End With
    End Function

Yuri

mbatchelor · January 2015

Yuri --

Thank you for the guidance.

I'll try it out shortly and reply with the results.

Thanks again.

-- Matt

mbatchelor · January 2015

Yuri --

Thank you for the SAMPLE CODE.

For my application, I modified it to be

        With [Select].Roi.ToolsCommands.Select(Nothing)
'            .Prompt = "Select ROIs"
            .Overlay = Overlays.OverlayType.ROIOverlay
'            .Interactive = True
            .Run(ThisApplication.ActiveImage)
        End With

This does a very nice job of DEACTIVATING the LINE TOOL and ACTIVATING the ROI SELECT TOOL but not demanding that the user use the ROI SELECT TOOL.

Your code also reminded me that I can change the PROMPT the LINE TOOL displays in the INTERACTIVE MODE.

Thank you for the valuable guidance.

One more related question . . .

If I use your NEW MACRO as you created it and I press the CANCEL button within the PROMPT BOX that says "SELECT ROIS", a message box is displayed by PREMIER saying

THE OPERATION WAS CANCELLED

and the macro stalls.

Is there a way to handle a CANCEL in this situation without stalling the macro?

Thanks.

-- Matt

PierreD · January 2015

Matt,

You can catch the exception generated when the user cancels to implement your preferred behavior.

    Public Function NewMacro() As SimpleScript
        NewMacro = New SimpleScript

        Try
            With [Select].Roi.ToolsCommands.Select(NewMacro)
                .Prompt = "Select ROIs"
                .Overlay = Overlays.OverlayType.ROIOverlay
                .Interactive = True
                .Run(ThisApplication.ActiveImage)
            End With
        Catch
            MsgBox "Command was cancelled!"
            ' ... do something else here
        End Try

    End Function

Pierre

mbatchelor · January 2015

Pierre --

Thank you for your suggestion.

I tried it and it did not work.

I changed your

            MsgBox "Command was cancelled!"

to

            MsgBox "12345"

as shown below so I could definitely see that everything was working properly but my PREMIER (9.1.2) still displays a

THIS OPERATION WAS CANCELED.

message.

Is there a dependency or a mode that needs to be checked?

Thanks.

-- Matt

    Public Function NewMacro() As SimpleScript
        NewMacro = New SimpleScript

        Try
            With [Select].Roi.ToolsCommands.Select(NewMacro)
                .Prompt = "Select ROIs"
                .Overlay = Overlays.OverlayType.ROIOverlay
                .Interactive = True
                .Run(ThisApplication.ActiveImage)
            End With
        Catch
            MsgBox "12345"
            ' ... do something else here
        End Try

    End Function

NikitaRG · January 2015

Hi Matt,
If I remember correctly, it was an issue in error handling (canceling interactive command) in 9.1.2. Try 9.1.4.
Nikita.

mbatchelor · January 2015

All --

Thank you for the additional information.

I have initiated the PREMIER 9.1.2 to PREMIER 9.1.4 upgrade process.

After that completes, I'll try PIERRE's solution and let you know how it goes.

Thanks again.

-- Matt

mbatchelor · January 2015

All --

I have successfully completed the UPGRADE from 9.1.2 to 9.1.4.

I have also tried the NewMacro as shown above and it works properly.

I'll integrate the TRY / CATCH STATEMENTS into the APP.

-- Matt

mbatchelor · January 2015

P.S.

Thank you very much. -- MMB

mbatchelor · January 2015

All --

One last "twist" on this issue.

I have integrated Pierre's suggestion about the TRY and Yuri's reminder about the PROMPT into some code that is intended to allow a user to interactively create a line that will be used for calibration purposes.

All is working well when the user does what they should.

When the user presses the OK generated by the INTERACTIVE and the PROMPT without having created a line, PREMIER (9.1.4) generates an error which says

    ERROR IN PROCEDURE ADD OF CLASS MODULE MCMEASUREMENTS

    ARGUMENT ARRAY IS TOO SMALL

but I never see my

    "An error was trapped!"

Is there a way to gracefully handle this?

I have generated a "lean" version of the function that I'm trying to build (below) for development and testing.

Thanks.

-- Matt

    Public Function LineMacro()

            Dim image1, meas1

            With Application.DocumentCommands.ActiveImage(Nothing)
                .Run(image1)
            End With

            With Measure.MeasurementsCommands.DeleteAll(Nothing)
                .Run(ThisApplication.ActiveDocument)
            End With

            Try

                    With Measure.MeasurementsCommands.Add(Nothing)
                            .MeasurementType = McMeasurements.enumMMSTypes.mmtsLine
                            .prompt = "Please create a CALIBRATION LINE then press OK to CONTINUE!"
                            .Interactive = True
                            .Run(image1, meas1)
                        End With

                Catch

                    MsgBox "An error was trapped!"

                End Try

    End Function

mbatchelor · January 2015

Yuri --

Thank you for your prompt response.

I am working on a "simplified" calibration mechanism but I'm not creating a new calibration, I'm checking and updating an existing calibration.

Your CalibrateByLine works great but it gives too many options to this set of users so I can't use it.

Based on your information about ADD, I did come up with a solution.

I have modified LineMacro to include a DUMMY LINE L0 from

    0, 0
    to
    0, 0

Since my CALIBRATION routine uses the SUM of the LnLengths found after the ADD, the length of the DUMMY L0 LINE will not confound the CALIBRATION and everything seems to be happy and smooth.

FYI . . .

Using

    'Prompt the user for the correct length of this line
    Dim MyInput As String
    MyInput = _
        InputBox _
            ( _
            "Please enter the correct " & _
            "LENGTH ( " & ThisApplication.Activeimage.SpatialCalibration.UnitAbbrev & ")" & _
            "for the CALIBRATION LINE you drew . . . ", _
            "'MY APP' says . . . ", _
            Trim ( Str ( data.Statistics(eMeasures.LnLength).Sum ) ) )

and

    'Calculate the Correction factor
    Dim MyCorrectionFactor = _
        Val(MyInput) / _
        data.Statistics(eMeasures.LnLength).Sum

and

     With Measure.Calibration.SpatialCommands.Modify(Nothing)
             .PixelSizeX = ThisApplication.ActiveImage.SpatialCalibration.PixelSizeX * MyCorrectionFactor
             .PixelSizeY = ThisApplication.ActiveImage.SpatialCalibration.PixelSizeY * MyCorrectionFactor
             .Run(spcal1)
         End With

I am having the macro "update" an existing calibration that I've already done all of the administration on regarding CALIBRATION NAME, CALIBRATION UNITS, and IQC FILE and such.

The version of LineMacro that includes the DUMMY LINE is below.

Thanks again (everyone) for all of the valuable information.

I hope the information above and below will help someone else.

-- Matt

    Public Function LineMacro()

            Dim image1, meas1

            With Application.DocumentCommands.ActiveImage(Nothing)
                .Run(image1)
            End With

            With Measure.MeasurementsCommands.DeleteAll(Nothing)
                .Run(ThisApplication.ActiveDocument)
            End With

            Try

                    With Measure.MeasurementsCommands.Add(Nothing)
                            .Points = New System.Collections.Generic.List(Of System.Drawing.PointF)
                            .Points.Add(New System.Drawing.PointF(0F,0F))
                            .Points.Add(New System.Drawing.PointF(0F,0F))
                            .FeatureName = "L0"
                            .MeasurementType = McMeasurements.enumMMSTypes.mmtsLine
                            .prompt = "Please create a CALIBRATION LINE then press OK to CONTINUE!"
                            .Interactive = True
                            .Run(image1, meas1)
                        End With

                Catch

                    MsgBox "An error was trapped!"

                End Try

    End Function

mbatchelor · January 2015

All --

I just wanted to add, that the way the

    Please enter the correct LENGTH

PROMPT to the user is wired in, if user does not change the value and then they press OK, then they are basically agreeing that PREMIER is calibrated properly because they will have a CORRECTION FACTOR of 1 and the calibration should not change.

-- Matt

Can I turn off a "tool" (ex. MEASURE + DIRECT + LINE TOOL) within a PREMIER APP and turn on another?

Best Answers

Answers