PDA

View Full Version : Acad2005 VBA bug or misunderstanding? Truecolor filter.



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.

KevinBarnett
2004-07-07, 05:41 AM
Yes, there is a typo error in the VBA example, but correcting it does not solve the problem. Apparently not all dxf codes are supported in VBA filtering, can we class this as a bug? It's more like a short-coming, here we go ... must use lisp again in vba... GRRR...
stamp stamp stamp

Cheers,

Kevin.