Topic: ZWCAD Selection Set Error

[neyton]

I have a problem with selection set in ZWCAD 2015.

It always returns status error when making:

Code: [Select]

<CommandMethod("teste")>
    Public Sub teste()
        For i = 0 To 100
            Dim ss = ED.SelectAll(New SelectionFilter({New TypedValue(DxfCode.Start, "LWPOLYLINE"),
                                                    New TypedValue(DxfCode.LayerName, "quadra")}))
            If ss.Status <> PromptStatus.OK Then
                MsgBox(ss.Status.ToString & vbNewLine & "i=" & i)
                Exit Sub
            End If
        Next

    End Sub

In autocad or gstarcad, runs without error (no message box). Why?

[Keith Brown]

Do you need to AND them together?  Also, your messagebox will only show if there is an error.  As long as there is no error the subroutine will finish without printing anything out.  You probably need to change the <> to a =. 

Code - Visual Basic: [Select]

1. <CommandMethod("teste")>    
2. Public Sub teste()        
3.     For i = 0 To 100            
4.         Dim ss = ED.SelectAll(New SelectionFilter({New TypedValue(DxfCode.Operator, "<and",
5.                                                    New TypedValue(DxfCode.Start, "LWPOLYLINE"),
6.                                                    New TypedValue(DxfCode.LayerName, "quadra"
7.                                                    New TypedValue(DxfCode.Operator, "and>" )}))            
8.         If ss.Status <> PromptStatus.OK Then
9.             MsgBox(ss.Status.ToString & vbNewLine & "i=" & i)                
10.             Exit Sub
11.         End If
12.     Next
13. End Sub

[neyton]

Hi, I made this changes, and the error persist

Calls "teste" command three times:

In first run, it is OK

In second run, show message box with a value greater than 0

In third, show message box with 0

[MexicanCustard]

Why are you selection filtering inside of a loop?  The results are the same for every iteration of the loop. You can loop from now to infinity the results will always be the same as the first iteration.

What's the error?

What line is it crashing on?

[neyton]

This code only serves to show the problem.

When running it three times in a row, should finish running without showing any message, assuming that there are polylines in layer "quadra". Create some polylines and set  layer to "quadra" and test.

But to call the command "teste" for the second time, it shows a lower number to the number of objects that match the filter.

The third time you run the same command "teste", shows a message with "i=0". This means that, although there polylines in layer "quadra", the "SelectAll" fails.

I have a program that runs several times the "SelectAll" and the program does not run correctly because "SelectAll" does not work after the first call

[MexicanCustard]

I don't have ZWCAD to test this so I'll have to take you word for it. You've likely have found a bug that the ZWCAD development team should look into.  Maybe you should be showing these results to them.

I don't see them jumping right on fixing it though.  As long as it always works for the first iteration the bug should never be an issue for developers.  I can't see any situation where the code you've posted would ever be used in production.

[neyton]

Hi,

It is working now:

Code: [Select]

<CommandMethod("teste")>
    Public Sub teste()
        Dim doc = ApplicationServices.Application.DocumentManager.MdiActiveDocument
        Dim ed = doc.Editor

        For i = 0 To 100
            Dim ss = ED.SelectAll(New SelectionFilter({New TypedValue(DxfCode.Operator, "<AND"),
                                                       New TypedValue(DxfCode.Start, "LWPOLYLINE"),
                                                       New TypedValue(DxfCode.LayerName, CadMemoOptions.LayerQuadra),
                                                       New TypedValue(DxfCode.Operator, "AND>")}))
            If ss.Status <> PromptStatus.OK Then
                MsgBox(ss.Status.ToString & vbNewLine & "i=" & i)
                Exit Sub
            End If
     
           ss.Value.Dispose() 'added this to ZWCAD works

        Next
    End Sub

ZWCAD can only have 255 selection sets at the same time, so when a selection set is no longer needed, developers should call its Dispose() method to free this selection set

[Jeff H]

uh-oh

http://www.theswamp.org/index.php?topic=50471.0

[Keith Brown]

uh-oh

http://www.theswamp.org/index.php?topic=50471.0

ZWCad vs ZWCad Plus