2000i and VB question

[lrfcbabe]

Why does "ent = sslsppipe.item(i)" not work?
Am I missing something? Layer, Color, Linetype etc. all work.
Set SSLSPPipe = Documents(0).SelectionSets.Add("SSLSPPipe&quot
gpCode(0) = -4
dataVal(0) = &quot;<AND&quot;
gpCode(1) = 8
dataVal(1) = &quot;XTP*&quot;
gpCode(2) = 0
dataVal(2) = &quot;LINE&quot;
gpCode(3) = -4
dataVal(3) = &quot;AND>&quot;
groupCode = gpCode
dataCode = dataVal
SSLSPPipe.Select acSelectionSetAll, , , groupCode, dataCode
intNoItems = SSLSPPipe.Count
intTemp = 1
If intNoItems > 0 Then
For i = 0 To SSLSPPipe.Count - 1
ent = SSLSPPipe.Item(i)
strEntLayer = SSLSPPipe.Item(i).Layer
strEntType = SSLSPPipe.Item(i).ObjectName '.OwnerID
strEntColor = SSLSPPipe.Item(i).Color
strLineType = SSLSPPipe.Item(i).Linetype
strLineLinetypeScale = SSLSPPipe.Item(i).LinetypeScale

 

[borgunit]

I think you need to
set ent = sslsppipe.item(i)

 

[lrfcbabe]

Nope that didn't work either.

 

[lrfcbabe]

&quot;Set SSLSPPipe = Nothing&quot; does not seem to work.
I have to close Cad and reopen to run this more than once.
Error Selection already Exists. I need to set it nil.

 

[borgunit]

Oh I see,
What is happening is that you are creating a selection set object and then are trying to create it again with the same name. You will need to delete the previous one first, and then create it again. See this for a snippet to do this..

http://www.vbdesign.net/cadpages/code/display.php?page=./source/Selection-Sets/Add-Selection-Set

 

[lrfcbabe]

So it is not just &quot;(setq sslsppipe nil)&quot;. Seems like this would be quicker. Can I echo this command to cad and set sslsppipe nil?

 

[borgunit]

No,
That will just clear memory space, but the object remains.

 

[lrfcbabe]

Got it all working, thanks for all of the input.