How to converts top level shape's bBox transform into a lower level(hierarchy depth) cell ?

You may be able to do what you need to do with these two commands. The description of the commands are identical, but basically one takes the coordinates from the data you are editing and translates to top level coordinates. The other takes the coordinates in the window and translates them to the coordinates for the cell you are editing in place.

geEditToWindowPoint(
w_windowId
l_editCellViewPoint
)
=> l_windowCellViewPoint

Translates coordinate values when you are using edit in place. geWindowToEditPoint applies the top-level cellview's coordinates to the cellview being edited; geEditToWindowPoint does the reverse.

geWindowToEditPoint(
w_windowId
l_windowCellViewPoint
)
=> l_editCellViewPoint

Translates coordinate values when you are using edit in place. geWindowToEditPoint applies the top-level cellview's coordinates to the cellview being edited; geEditToWindowPoint does the reverse.
 

 If you need to reverse a transform you can use this routine:

procedure(myReverseTransform(trans)
    let((pt rot mag newPt)
        pt=car(trans)
        rot=cadr(trans)
        mag=caddr(trans)
        ;Think of the logic in this manner:  given that an instance is
        ;rotated, translated and magnified in the top level, what do you
        ;need to do to get it back to normal orientation.  If it is R90
        ;at the top, you need to R270 to get back.
        case(rot
            ("R0"    newPt=list(xCoord(pt)*-1.0 yCoord(pt)*-1.0) rot="R0"  )
            ("R90"   newPt=list(yCoord(pt)*-1.0 xCoord(pt))      rot="R270")
            ("R180"  newPt=list(xCoord(pt)      yCoord(pt))      rot="R180")
            ("R270"  newPt=list(yCoord(pt)      xCoord(pt)*-1.0) rot="R90" )
            ("MX"    newPt=list(xCoord(pt)*-1.0 yCoord(pt))      rot="MX")
            ("MY"    newPt=list(xCoord(pt)      yCoord(pt)*-1.0) rot="MY")
            ("MXR90" newPt=list(yCoord(pt)*-1.0 xCoord(pt)*-1.0) rot="MXR90")
            ("MYR90" newPt=list(yCoord(pt)      xCoord(pt))      rot="MYR90")
            (t newPt=pt)
        )
        list(newPt rot mag)
    )
)

Here is a routine to combine a list of transforms into one. The transList argument is the list of transforms from the bottom of the hierarchy to the top.

procedure(myConcatTransforms(transList)
    let((newTrans trans)
        newTrans=list('(0.0 0.0) "R0" 1.0)
        ;transList is in order from bottom of hierarchy to top
        foreach(trans transList
            unless(trans
                trans=list('(0.0 0.0) "R0" 1.0)
            )
            when(listp(caar(trans)) trans=car(trans))
            newTrans=dbConcatTransform(newTrans trans)
        )
        newTrans
    )
)

I hope this helps.

Derek

You may be able to do what you need to do with these two commands. The description of the commands are identical, but basically one takes the coordinates from the data you are editing and translates to top level coordinates. The other takes the coordinates in the window and translates them to the coordinates for the cell you are editing in place.

geEditToWindowPoint(
w_windowId
l_editCellViewPoint
)
=> l_windowCellViewPoint

Translates coordinate values when you are using edit in place. geWindowToEditPoint applies the top-level cellview's coordinates to the cellview being edited; geEditToWindowPoint does the reverse.

geWindowToEditPoint(
w_windowId
l_windowCellViewPoint
)
=> l_editCellViewPoint

Translates coordinate values when you are using edit in place. geWindowToEditPoint applies the top-level cellview's coordinates to the cellview being edited; geEditToWindowPoint does the reverse.
 

 If you need to reverse a transform you can use this routine:

procedure(myReverseTransform(trans)
    let((pt rot mag newPt)
        pt=car(trans)
        rot=cadr(trans)
        mag=caddr(trans)
        ;Think of the logic in this manner:  given that an instance is
        ;rotated, translated and magnified in the top level, what do you
        ;need to do to get it back to normal orientation.  If it is R90
        ;at the top, you need to R270 to get back.
        case(rot
            ("R0"    newPt=list(xCoord(pt)*-1.0 yCoord(pt)*-1.0) rot="R0"  )
            ("R90"   newPt=list(yCoord(pt)*-1.0 xCoord(pt))      rot="R270")
            ("R180"  newPt=list(xCoord(pt)      yCoord(pt))      rot="R180")
            ("R270"  newPt=list(yCoord(pt)      xCoord(pt)*-1.0) rot="R90" )
            ("MX"    newPt=list(xCoord(pt)*-1.0 yCoord(pt))      rot="MX")
            ("MY"    newPt=list(xCoord(pt)      yCoord(pt)*-1.0) rot="MY")
            ("MXR90" newPt=list(yCoord(pt)*-1.0 xCoord(pt)*-1.0) rot="MXR90")
            ("MYR90" newPt=list(yCoord(pt)      xCoord(pt))      rot="MYR90")
            (t newPt=pt)
        )
        list(newPt rot mag)
    )
)

Here is a routine to combine a list of transforms into one. The transList argument is the list of transforms from the bottom of the hierarchy to the top.

procedure(myConcatTransforms(transList)
    let((newTrans trans)
        newTrans=list('(0.0 0.0) "R0" 1.0)
        ;transList is in order from bottom of hierarchy to top
        foreach(trans transList
            unless(trans
                trans=list('(0.0 0.0) "R0" 1.0)
            )
            when(listp(caar(trans)) trans=car(trans))
            newTrans=dbConcatTransform(newTrans trans)
        )
        newTrans
    )
)

I hope this helps.

Derek