VBA: selectbypolygon sset?

[ollie]

Hi

 

Could someone throw some advice my way with the select by polygon method of creating selection sets. Or more precisely creating proper point lists

 

On one layer i have on type of attribute block and a group of closed polylines

 

each polyline (lwpoly) has an attribute block inside it. I have been using the acadlwpolyline.Coordinates property to gather the points for the sset. I have a function to add the z coordinate The result is somewhat sporadic many of the points end up on the wcs origin either on the x or y but never off the origin on the z

 

any thoughts would be welcome

 

Cheers

Ollie

[SEANT]

It sounds like the routine needs to account for OCS coordinates. The phrase “add the z coordinate” implies the LWPoly is not on the WCS XY plane, but if it also means that the Poly is not parallel then the acadlwpolyline.Coordinates must be translated back to WCS coords via:

 

ThisDrawing.Utility.TranslateCoordinates(dblCoord, acOCS, acWorld, 0, dblNormal)

 

Where dblCoord is is a composite of the Polylines 2D coordinate pair and elevation (Xcoord, Ycoord, Elevation), and dblNormal is acadlwpolyline.Normal.