selection sets

[Anonymous]

I am trying to have the user select lines polylines or 3dpolylines on the screen and make them into a selection set
that i can use later on in the program. This is what i have, but it don't work help me please
Private Sub commSelectLines_Click()
Dim gpCode(0) As Integer
Dim dataValue(0) As Variant
Dim groupCode As Variant, dataCode As Variant
gpCode = 0
dataValue(0) = "Line, Polyline, 3DPolyline"
groupCode = gpCode
dataCode = dataValue
Set SSlist = ThisDrawing.SelectOnScreen groupCode, dataCode

End Sub

[Anonymous]

Give this a try.

Joe ...

Private Sub commSelectLines_Click()
Dim
gpCode(0) As Integer
Dim dataValue(0) As Variant
Dim SSList As
AcadSelectionSet

    gpCode(0) =
0
    dataValue(0) = "line,polyline"
   

    Set SSList =
ThisDrawing.SelectionSets.Add("Test")

    SSList.SelectOnScreen gpCode,
dataValue

   
SSList.Delete
   
End Sub

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

<djdaugherty> wrote in message
href="news:6072641@discussion.autodesk.com">news:6072641@discussion.autodesk.com...

I
am trying to have the user select lines polylines or 3dpolylines on the screen
and make them into a selection set that i can use later on in the program.
This is what i have, but it don't work help me please Private Sub
commSelectLines_Click() Dim gpCode(0) As Integer Dim dataValue(0) As Variant
Dim groupCode As Variant, dataCode As Variant gpCode = 0 dataValue(0) = "Line,
Polyline, 3DPolyline" groupCode = gpCode dataCode = dataValue Set SSlist =
ThisDrawing.SelectOnScreen groupCode, dataCode End
Sub

[Anonymous]

Try this it may help u and if any see help

Sub Example_SelectOnScreen()
' This example adds objects to a selection set by prompting the user
' to select ones to add.

' Create the selection set
Dim ssetObj As AcadSelectionSet
Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET")

' Add objects to a selection set by prompting user to select on the screen
ssetObj.SelectOnScreen

End Sub