auto lisp to vba

[nojodixiza763639]

lisp (setq sset (ssget))
vba Dim sset as AcadSelectionSet
sset=AutoCAD.Application.ActiveDocument.SelectionSets
sset.SelectOnScreen

lisp (setq ctr 0)
vba Dim ctr as long
ctr=0

How convert this lisp to vba??

;extract the entity name
lisp (setq item (ssname sset ctr))
vba ???????????..........

[BIG-AL]

this may be helpfull
vba Dim ctr as Integer

Set SS = ThisDrawing.SelectionSets.Add("pit1sel")
SS.Select acSelectionSetAll, , , FilterDXFCode, FilterDXFVal

For Cntr = 0 To SS.Count - 1
If SS.Item(Cntr).Name = Blkname Then

[nojodixiza763639]

Thanks For your reply sir

106157
how we can use this function in pic.?



Dim en1 As AcadSection
en1 = AutoCAD.Application.ActiveDocument.SelectionSets.Name(est).Item(cntr

[BIG-AL]

You need to explain more what it is your trying to do. i suggested a way to make a selection set with a known name and look at each item in the set. What do you want to do then ?