how to fill rectangles in bbox

Your x is a list of object(s), take a car of x first.. car(x)~>points and fillBBox must be a value list of 2 points

 hi cessej,

 Yes i was trying the way that you just mentioned. It works good with all ur help.

i used  car(x)~>bBox

But it works only for rectangle bBox. i need to fill the contacts in polygon also. what the changes required to do this.

THANKYOU

venu.

I don't know if there's available solution in the forum. If I'll do that, I'm going to fracture the polygon into tiles, get the min bounding box of tiles to have a collection of rectangle bBox

cessej,

how  i get x coordinate from list which is obtain from polygon. i can get x coordinate from bBox. the list is like this.

(((20.9 10.8) (17.4 10.8) (17.4 5.0) (12.7 5.0) (12.7 8.6) (17.4 8.6) (17.4 10.8) (10.3 10.8) (10.3 6.6) (8.4 6.6) (8.4 3.4) (3.4 3.4) (3.4 10.1) (8.4 10.1) (8.4 8.2) (10.3 8.2) (10.3 10.8) (2.4 10.8) (2.4 2.7) (20.9 2.7)))
I need to get 20.9 to my variable.

THANYOU

venu

For the previous question, you could use dbLayerTile to break into tiles.

For this latest question, the requirements aren't clear. You oculd use caaar() to get 20.9, that gets the first number in the first sub list of the first sub list - but I wasn't sure if that's what you wanted.

Andrew.

 hi,

yes i got the tiles. but i can't fill the contacts in every rectangle.   i can do it for single rectangle. what's the problem.

 leSetEntryLayer( list("y4" "drawing"))
leSetAllLayerVisible(nil)
geSelectAllFig()
a= geGetSelectedSet()
dbLayerTile(cv "y4" a  )
foreach(a
rodFillBBoxWithRects(      
     ?cvId cv
     ?layer list("CONT" "drawing")
     ?fillBBox car(a)~>bBox
     ?width .16
     ?length 0.16
     ?gap "distribute"
     ?spaceX .22
     ?spaceY .22
        ))

 THANYOU

  venu

Venu,

You're not using the results of the dbLayerTile - you are simply using the bounding box of the first selected shape; you'd have to use the bBox of each tile - so you'd need to iterate over the return value of the dbLayerTile() function. Note this may still not be quite what you want because you're going to have to ensure that the boundaries between the tiles are handled well, but it may be sufficient for your needs.

Andrew.

 hi,

  I was able to fill the contacts in each bBox with all your help. Now i need bBox is enclose on  contacts is 0.09. i write following code for that. But it shows error.

 geDeselectAllFig()
leSetEntryLayer( list("y4" "drawing"))
leSetAllLayerVisible(nil)
geSelectAllFig()
a= geGetSelectedSet()
dbLayerTile(cv "y4" a  )
geDeselectAllFig()
leSetEntryLayer( list("y4" "drawing"))
leSetAllLayerVisible(nil)
geSelectAllFig()

foreach(x geGetSelectedSet()

if((x~>objType == "rect")
then
y1=yCoord( upperRight(x~>bBox))-0.09
y2=yCoord( lowerLeft(x~>bBox))+0.09
x1=xCoord( upperRight(x~>bBox))-0.09
x2=xCoord( lowerLeft(x~>bBox))+0.09
b= list((x2:y2) (x1:y1))
rodFillBBoxWithRects(      
     ?cvId cv
     ?layer list("CONT" "drawing")
     ?fillBBox b~>bBox
     ?width .16
     ?length 0.16
     ?gap "distribute"
     ?spaceX .22
     ?spaceY .22
      )))

THANKYOU

venu

First of all, actually giving the error message would help understand what the problem is. Without running the code, I can see a couple of problems:

1. Why are you doing all this entry layer adjustment and selection? dbLayerTile returns a list of new objects, so you can just do result=dbLayerTile(...) and then do foreach(x result ...) instead of using geGetSelectedSet()
2. You are building a bounding box in the variable b (too many brackets, so should just  be list(x2:y2 x1:y1) ), and that's a list, so doing b~>bBox makes no sense. That would make sense if b was a shape database object. So instead you should just pass ?fillBBox b

Regards,

Andrew.

 Thanks andrew,

i done it with all ur help.

Thank you

Venu