Help with Prompt Selection Options with Custom Message

David_Prontnicki — Mon, 29 Oct 2018 21:15:19 GMT

Hi all,

I am hoping someone can help me with this. I am trying to allow for the selection of multiple cogo point but also filter so only cogo points can be selected. I have been playing with the code below but it does not show my custom message; it seems to bypass it completely. I am sure it is something simple but I just cant get it. Any help would be greatly appreciated.

Try

            'Create a typedvalue array to define the filter criteria
            Dim acTypValAr(0) As TypedValue
            acTypValAr.SetValue(New TypedValue(DxfCode.Start, "AECC_COGO_POINT"), 0)

            'Assign the filter criteria to a selectionfilter object
            Dim acSelFtr As SelectionFilter = New SelectionFilter(acTypValAr)

            Dim promptSelectionOptions = New PromptSelectionOptions
            promptSelectionOptions.MessageForAdding = (vbLf & "Select COGO Points to move labels:")

            Dim selectedCogoPointsResult = SelectionPromptResults(acSelFtr)

            'If selection is a cogo point
            If selectedCogoPointsResult.Status = PromptStatus.OK Then

                Dim acSSet As SelectionSet = selectedCogoPointsResult.Value

In conjunction with this function:

Private Function SelectionPromptResults(options As SelectionFilter) As PromptSelectionResult

        Dim acDocEd As Editor = Active.Editor

        Return acDocEd.GetSelection(options)

    End Function

Re: Help with Prompt Selection Options with Custom Message

hippe013 — Tue, 30 Oct 2018 13:28:22 GMT

You need to pass both the options and the filter to the function GetSelection.


 Dim tv(0) As TypedValue
 tv.SetValue(New TypedValue(DxfCode.Start, "AECC_COGO_POINT"), 0)

Dim filter As New SelectionFilter(tv)
Dim pso As New PromptSelectionOptions()
pso.MessageForAdding = vbCrLf + "Select Cogo Points Move Labels"

Dim res As PromptSelectionResult = ed.GetSelection(pso, filter)

Re: Help with Prompt Selection Options with Custom Message

David_Prontnicki — Tue, 30 Oct 2018 23:12:36 GMT

Thank you, I knew it would be something simple. I appreciate the help!

topic Help with Prompt Selection Options with Custom Message in Civil 3D Customization Forum

Help with Prompt Selection Options with Custom Message

Re: Help with Prompt Selection Options with Custom Message

Re: Help with Prompt Selection Options with Custom Message