How to programtically rename a selected pin

Not exactly what you want, but hopefully enough to get you started...

/* abReplaceTermNames.il

Author     A.D.Beckett
Group      Custom IC (UK), Cadence Design Systems Ltd.
Language   SKILL
Date       Jun 26, 2007 
Modified   
By         

Function to replace a substring in a terminal - uses regular
expression functions. For more details, see the comments below,
but:

abReplaceTermNames(cvId "from" "to")

is a typical usage.

***************************************************

SCCS Info: @(#) abReplaceTermNames.il 06/26/07.13:26:16 1.1

*/

/******************************************************************
*                                                                 *
*  abReplaceTermNames(cvId pattern replace @optional (index 1))   *
*                                                                 *
*    Look for any terminal names in the view with a name which    *
*   matches the regular expression pattern. When found, replace   *
*    the matching pattern with the string replace. Normally it    *
* will replace the first occurrence, but that can be changed with *
* the optional index argument. Returns t if anything was changed. *
*                                                                 *
******************************************************************/

procedure(abReplaceTermNames(cvId pattern replace @optional (index 1))
    let((existTerm newName newNet changed)
	rexCompile(pattern)
	foreach(term cvId~>terminals
	    when(rexExecute(term~>name)
		newName=rexReplace(term~>name replace index)
		existTerm=dbFindTermByName(cvId newName)
		if(existTerm then
		    warn("Cannot rename %s to %s as terminal already exists with that name" term~>name newName)
		else
		    ;----------------------------------------------------
		    ; Update the name, and update the net too
		    ; (by creating a new one and merging it)
		    ;----------------------------------------------------
		    term~>name=newName
		    newNet=dbMakeNet(cvId newName)
		    dbMergeNet(newNet term~>net)
		    ;----------------------------------------------------
		    ; Then update any labels attached to pin figures;
		    ; textDisplays will be updated automatically, so it's
		    ; only conventional labels we need to worry about
		    ;----------------------------------------------------
		    foreach(pin term~>pins
			foreach(child pin~>fig~>children
			    when(child~>objType=="label"
				child~>theLabel=
				    rexReplace(
					child~>theLabel
					replace
					index
				    )
			    ) ; when label
			) ; foreach child
		    ) ; foreach pin
		    changed=t
		) ; if
	    ) ; when
	) ; foreach
	changed
    ) ; let
) ; procedure

Regards,

Andrew.

Not exactly what you want, but hopefully enough to get you started...

/* abReplaceTermNames.il

Author     A.D.Beckett
Group      Custom IC (UK), Cadence Design Systems Ltd.
Language   SKILL
Date       Jun 26, 2007 
Modified   
By         

Function to replace a substring in a terminal - uses regular
expression functions. For more details, see the comments below,
but:

abReplaceTermNames(cvId "from" "to")

is a typical usage.

***************************************************

SCCS Info: @(#) abReplaceTermNames.il 06/26/07.13:26:16 1.1

*/

/******************************************************************
*                                                                 *
*  abReplaceTermNames(cvId pattern replace @optional (index 1))   *
*                                                                 *
*    Look for any terminal names in the view with a name which    *
*   matches the regular expression pattern. When found, replace   *
*    the matching pattern with the string replace. Normally it    *
* will replace the first occurrence, but that can be changed with *
* the optional index argument. Returns t if anything was changed. *
*                                                                 *
******************************************************************/

procedure(abReplaceTermNames(cvId pattern replace @optional (index 1))
    let((existTerm newName newNet changed)
	rexCompile(pattern)
	foreach(term cvId~>terminals
	    when(rexExecute(term~>name)
		newName=rexReplace(term~>name replace index)
		existTerm=dbFindTermByName(cvId newName)
		if(existTerm then
		    warn("Cannot rename %s to %s as terminal already exists with that name" term~>name newName)
		else
		    ;----------------------------------------------------
		    ; Update the name, and update the net too
		    ; (by creating a new one and merging it)
		    ;----------------------------------------------------
		    term~>name=newName
		    newNet=dbMakeNet(cvId newName)
		    dbMergeNet(newNet term~>net)
		    ;----------------------------------------------------
		    ; Then update any labels attached to pin figures;
		    ; textDisplays will be updated automatically, so it's
		    ; only conventional labels we need to worry about
		    ;----------------------------------------------------
		    foreach(pin term~>pins
			foreach(child pin~>fig~>children
			    when(child~>objType=="label"
				child~>theLabel=
				    rexReplace(
					child~>theLabel
					replace
					index
				    )
			    ) ; when label
			) ; foreach child
		    ) ; foreach pin
		    changed=t
		) ; if
	    ) ; when
	) ; foreach
	changed
    ) ; let
) ; procedure

Regards,

Andrew.