Automatically generating pins from nets problem

Hi Nicolas,

First of all, you should not write your own code using the same prefixes as Cadence (so don't create your own functions with prefixes such as "sch"). The whole point of using prefixes is to reduce the chance of clashes - and you've then named your function with an increased likelihood of a clash with a future function from Cadence.

Secondly, if you're calling this from an enter function (e.g. enterPoint), why not use the point that was provided to the callback? It's not that clear how  you're calling the function you show - perhaps you can provide more details?

Regards,

Andrew.

Hi Andrew,

1. In the meantime I have followed your advice concerning the prefixes

I have added the full code, with some additional comments:

; Generates List Box with callback cstAutoCreatePins(). TrShowPinListBox(netList) creates list box in which you can select the nets to be generated as pins by cstAutoCreatePins()

procedure(TrShowPinListBox(netList)
    hiShowListBox(
        ?name gensym('cstPinListBox)
        ?choices netList
        ?callback 'cstAutoCreatePins    
        ?title "Net to pin transformation"
        ?multipleSelect t
        ?applyButton t
    ) ; hiShowListBox
) ; procedure

; When clicking on certain place in schematic of cellview, the point should be retrieved by hiGetCommandPoint(). This point should be the location where the first pin should be situated, all other pins are above this "reference point", each with an incremental step of 0.25 (as implemented in the code)

procedure(cstAutoCreatePins(ok theListBox)
    let( (xCo yCo inputCVId)
    xCo = xCoord(hiGetCommandPoint())
    yCo = yCoord(hiGetCommandPoint())
    inputCVId = dbOpenCellViewByType("basic" "iopin" "symbol" "" 'r)
        if( ok then printf("Creation of pins: \n")
            foreach(choice theListBox->value
                 sprintf(namePin "%s" choice)
                 schCreatePin(geGetEditCellView() inputCVId namePin "inputOutput" nil xCo:yCo "R0")
                 yCo = yCo + 0.25   
                 printf("Pin %s\n" namePin)          
            ) ; foreach
        else printf("Cancelled automated pins creation.")
        ) ; if
    )
) ; procedure

; Just generates the list of nets and call the list box, in which you select the nets to be generated as pins each with an 0.25 increment above each other.

procedure(cstLoadTrShowPinListBox()
    cv = geGetWindowCellView()
    netNames = cv~>nets~>name

    TrShowPinListBox(netNames)
)

Hopefully, I have made myself clearer.

Thanks!

Kind regards,

Nicolas

Nicolas,

I changed the code to use an enter function - so it prompts you to click on a point to start placing the pins. Better still would be to have started with the enterPoint and then have an options form to ask you the nets you wanted to create the pins for, but that was a little more work to create the form (as then you'd need to create the form and have a listbox field within the form rather than using hiShowListBox) - not much, but I didn't have time.

I think the problem with using hiGetCommandPoint is that if the focus moves away from the window, it won't work.

Here's the updated code:

; Generates List Box with callback cstAutoCreatePins(). TrShowPinListBox(netList) creates list box in which you can select the nets to be generated as pins by cstAutoCreatePins()

procedure(TrShowPinListBox(netList)
    hiShowListBox(
        ?name gensym('cstPinListBox)
        ?choices netList
        ?callback 'cstAutoCreatePins    
        ?title "Net to pin transformation"
        ?multipleSelect t
        ?applyButton t
    ) ; hiShowListBox
) ; procedure


; When clicking on certain place in schematic of cellview, the point should be retrieved by hiGetCommandPoint(). This point should be the location where the first pin should be situated, all other pins are above this "reference point", each with an incremental step of 0.25 (as implemented in the code)


procedure(cstAutoCreatePins(ok theListBox)
    let( (xCo yCo inputCVId pointList)
        when(ok
            pointList=enterPoint(?prompts list("Enter point for first pin"))
            unless(pointList ok=nil)
        )
        if( ok then printf("Creation of pins: \n")
            inputCVId = dbOpenCellViewByType("basic" "iopin" "symbol" "" 'r)
            xCo = xCoord(pointList)
            yCo = yCoord(pointList)
            foreach(choice theListBox->value
                 sprintf(namePin "%s" choice) 
                 schCreatePin(geGetEditCellView() inputCVId namePin "inputOutput" nil xCo:yCo "R0")
                 yCo = yCo + 0.25   
                 printf("Pin %s\n" namePin)          
            ) ; foreach
        else printf("Cancelled automated pins creation.")
        ) ; if
    )
) ; procedure

; Just generates the list of nets and call the list box, in which you select the nets to be generated as pins each with an 0.25 increment above each other.

procedure(cstLoadTrShowPinListBox()
    cv = geGetWindowCellView()
    netNames = cv~>nets~>name

    TrShowPinListBox(netNames)
)

Alternatively, could use code similar to yours (I'm assuming you're calling cstLoadTrShowPinListBox() from a bindkey), but record the coordinate early in the code, like this:

; Generates List Box with callback cstAutoCreatePins(). TrShowPinListBox(netList) creates list box in which you can select the nets to be generated as pins by cstAutoCreatePins()

procedure(TrShowPinListBox(netList)
    hiShowListBox(
        ?name gensym('cstPinListBox)
        ?choices netList
        ?callback 'cstAutoCreatePins    
        ?title "Net to pin transformation"
        ?multipleSelect t
        ?applyButton t
    ) ; hiShowListBox
) ; procedure


; When clicking on certain place in schematic of cellview, the point should be retrieved by hiGetCommandPoint(). This point should be the location where the first pin should be situated, all other pins are above this "reference point", each with an incremental step of 0.25 (as implemented in the code)


procedure(cstAutoCreatePins(ok theListBox)
    let( (xCo yCo inputCVId)
    xCo = xCoord(cstLoadTrShowPinListBox.coord)
    yCo = yCoord(cstLoadTrShowPinListBox.coord)
    inputCVId = dbOpenCellViewByType("basic" "iopin" "symbol" "" 'r)
        if( ok then printf("Creation of pins: \n")
            foreach(choice theListBox->value
                 sprintf(namePin "%s" choice) 
                 schCreatePin(geGetEditCellView() inputCVId namePin "inputOutput" nil xCo:yCo "R0")
                 yCo = yCo + 0.25   
                 printf("Pin %s\n" namePin)          
            ) ; foreach
        else printf("Cancelled automated pins creation.")
        ) ; if
    )
) ; procedure

; Just generates the list of nets and call the list box, in which you select the nets to be generated as pins each with an 0.25 increment above each other.

procedure(cstLoadTrShowPinListBox()
    cv = geGetWindowCellView()
    netNames = cv~>nets~>name

    cstLoadTrShowPinListBox.coord=hiGetCommandPoint()
    TrShowPinListBox(netNames)
)

Finally, I should point out that "cst" is one of our prefixes too! Better to use a prefix that begins with an uppercase letter, as then it won't clash with a Cadence prefix.

Regards,

Andrew.

Nicolas,

I changed the code to use an enter function - so it prompts you to click on a point to start placing the pins. Better still would be to have started with the enterPoint and then have an options form to ask you the nets you wanted to create the pins for, but that was a little more work to create the form (as then you'd need to create the form and have a listbox field within the form rather than using hiShowListBox) - not much, but I didn't have time.

I think the problem with using hiGetCommandPoint is that if the focus moves away from the window, it won't work.

Here's the updated code:

; Generates List Box with callback cstAutoCreatePins(). TrShowPinListBox(netList) creates list box in which you can select the nets to be generated as pins by cstAutoCreatePins()

procedure(TrShowPinListBox(netList)
    hiShowListBox(
        ?name gensym('cstPinListBox)
        ?choices netList
        ?callback 'cstAutoCreatePins    
        ?title "Net to pin transformation"
        ?multipleSelect t
        ?applyButton t
    ) ; hiShowListBox
) ; procedure


; When clicking on certain place in schematic of cellview, the point should be retrieved by hiGetCommandPoint(). This point should be the location where the first pin should be situated, all other pins are above this "reference point", each with an incremental step of 0.25 (as implemented in the code)


procedure(cstAutoCreatePins(ok theListBox)
    let( (xCo yCo inputCVId pointList)
        when(ok
            pointList=enterPoint(?prompts list("Enter point for first pin"))
            unless(pointList ok=nil)
        )
        if( ok then printf("Creation of pins: \n")
            inputCVId = dbOpenCellViewByType("basic" "iopin" "symbol" "" 'r)
            xCo = xCoord(pointList)
            yCo = yCoord(pointList)
            foreach(choice theListBox->value
                 sprintf(namePin "%s" choice) 
                 schCreatePin(geGetEditCellView() inputCVId namePin "inputOutput" nil xCo:yCo "R0")
                 yCo = yCo + 0.25   
                 printf("Pin %s\n" namePin)          
            ) ; foreach
        else printf("Cancelled automated pins creation.")
        ) ; if
    )
) ; procedure

; Just generates the list of nets and call the list box, in which you select the nets to be generated as pins each with an 0.25 increment above each other.

procedure(cstLoadTrShowPinListBox()
    cv = geGetWindowCellView()
    netNames = cv~>nets~>name

    TrShowPinListBox(netNames)
)

Alternatively, could use code similar to yours (I'm assuming you're calling cstLoadTrShowPinListBox() from a bindkey), but record the coordinate early in the code, like this:

; Generates List Box with callback cstAutoCreatePins(). TrShowPinListBox(netList) creates list box in which you can select the nets to be generated as pins by cstAutoCreatePins()

procedure(TrShowPinListBox(netList)
    hiShowListBox(
        ?name gensym('cstPinListBox)
        ?choices netList
        ?callback 'cstAutoCreatePins    
        ?title "Net to pin transformation"
        ?multipleSelect t
        ?applyButton t
    ) ; hiShowListBox
) ; procedure


; When clicking on certain place in schematic of cellview, the point should be retrieved by hiGetCommandPoint(). This point should be the location where the first pin should be situated, all other pins are above this "reference point", each with an incremental step of 0.25 (as implemented in the code)


procedure(cstAutoCreatePins(ok theListBox)
    let( (xCo yCo inputCVId)
    xCo = xCoord(cstLoadTrShowPinListBox.coord)
    yCo = yCoord(cstLoadTrShowPinListBox.coord)
    inputCVId = dbOpenCellViewByType("basic" "iopin" "symbol" "" 'r)
        if( ok then printf("Creation of pins: \n")
            foreach(choice theListBox->value
                 sprintf(namePin "%s" choice) 
                 schCreatePin(geGetEditCellView() inputCVId namePin "inputOutput" nil xCo:yCo "R0")
                 yCo = yCo + 0.25   
                 printf("Pin %s\n" namePin)          
            ) ; foreach
        else printf("Cancelled automated pins creation.")
        ) ; if
    )
) ; procedure

; Just generates the list of nets and call the list box, in which you select the nets to be generated as pins each with an 0.25 increment above each other.

procedure(cstLoadTrShowPinListBox()
    cv = geGetWindowCellView()
    netNames = cv~>nets~>name

    cstLoadTrShowPinListBox.coord=hiGetCommandPoint()
    TrShowPinListBox(netNames)
)

Finally, I should point out that "cst" is one of our prefixes too! Better to use a prefix that begins with an uppercase letter, as then it won't clash with a Cadence prefix.

Regards,

Andrew.

Thanks Andrew, I really appreciate the effort you have taken! I will try to implement it with the enterPoint function like you have suggested.

Kind regards,

Nicolas