KevinBarnett
2004-07-06, 11:39 AM
Greetings Gang,
Drawing consists of some circles, colour set to R46 G209 B174. The DXF code equivalent byte value is 3068334.
If you use the Select command and enter lisp:
(ssget "x" (list (cons 420 3068334)))
the circles are selected.
In VBA I tried:
Dim FilterType1(0) As Integer
Dim FilterData1(0) As Variant
FilterType1(0) = 420: FilterData1(0) = 3068334
Sel1.Clear
Sel1.Select acSelectionSetAll, , FilterType1, FilterData1
where Sel1 is an AcadSelectionSet.
The VBA code does not select the objects. What have I missed?
Thanks,
Kevin.
Drawing consists of some circles, colour set to R46 G209 B174. The DXF code equivalent byte value is 3068334.
If you use the Select command and enter lisp:
(ssget "x" (list (cons 420 3068334)))
the circles are selected.
In VBA I tried:
Dim FilterType1(0) As Integer
Dim FilterData1(0) As Variant
FilterType1(0) = 420: FilterData1(0) = 3068334
Sel1.Clear
Sel1.Select acSelectionSetAll, , FilterType1, FilterData1
where Sel1 is an AcadSelectionSet.
The VBA code does not select the objects. What have I missed?
Thanks,
Kevin.