Stats

Locked Locked
Replies 23
Subscribers 143
Views 13866
Members are here 0

This discussion has been locked.

You can no longer post new replies to this discussion. If you have a question you can start a new discussion

Help on skill code for unselecting/selcting objects like path/wire, rectangle/polygon etc.

Hi All,

First of all, i have no talent doing skill code, i have very very basic knowledge of it. here's my request, and i think it's possible because if did some reseach on it, i just don't know how to do it.

Problem:

For example, i have a wire/path and a rectangle/polygon overlapping each other, i would like to select "only" the wire/path and not the rectangle/polygon. it would be nice if there's a skill code that can turn off or on wire/path or rectangle/polygon selection like the instance button on the LSW window.

So basically i would like to have something like the intance turning on or off selection, like this...

--->leSetObjectSelectable("inst" t) instance is selectable or

--->leSetObjectSelectable("inst" nil) instance is unselectable

But i would like something like this for other objects, like wire/path, rectabgle/polygon etc. not necessarily a button but i would like it to toggle, like "shift+w" to turn it on or off using if statements.

Thanks in advance, I hope someone could help me.

Parents

Andrew Beckett over 15 years ago

You'll need the two SKILL files below. Make sure that the suffix of each file is kept as in the comment at the top of each, because the first one is SKILL++ (and so needs the ".ils" suffix).

Here's the first code (the main code):

/* abShapeSelectionFilter.ils

Author     A.D.Beckett
Group      Custom IC (UK), Cadence Design Systems Ltd.
Language   SKILL
Date       Dec 02, 2008 
Modified   
By         

Main entry point:

abShapeSelectionFilter()

Brings up form, asking you to choose which type of shape objects
are selectable.

Written in C syntax to allow ease of modification by those scared
of LISP ;->

Requires abToggleForm.il and abLeMultiSelectionFilter.ils to
be loaded first.

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

SCCS Info: @(#) abShapeSelectionFilter.ils 12/02/08.16:10:15 1.1

*/

importSkillVar(abShapeSelectionFilterForm)
let(((pathsOK t) (shapesOK t) (textOK t) registered)
    /***************************************************************
    *                                                              *
    *                        (displayForm)                         *
    *                                                              *
    *     Local function, exported as abShapeSelectionFilter()     *
    *   which creates form if not already created, and displays    *
    *                             it.                              *
    *                                                              *
    ***************************************************************/
    defun(displayForm ()
	unless(boundp('abShapeSelectionFilterForm)
	    abCreateToggleForm(
		?name 'abShapeSelectionFilterForm
		?prompt "Check selectable objects:"
		?textList '("Paths/Path Segments" "Polygons/Rects" "Text")
		?callback 'abShapeSelectionFilterCB
		?formTitle "Filter objects"
		?buttonLayout 'OKCancelApply
		?toggleHeight 80
	    ) ; abCreateToggleForm
	) ; unless
	hiDisplayForm(abShapeSelectionFilterForm)
    ) ; defun

    /******************************************************************
    *                                                                 *
    *                       (formCallback form)                       *
    *                                                                 *
    *   Local function, exported as abShapeSelectionFilterCB, which   *
    * takes choices from form, and updates lexically scoped variables *
    *    to remember settings - so that the filter() function can     *
    *                         reference them.                         *
    *                                                                 *
    ******************************************************************/
    defun(formCallback (form)
	let((choices)
	    choices=abToggleFormGetSelected(form)
	    pathsOK=shapesOK=textOK=nil
	    foreach(choice choices
		case(choice
		    ("Paths/Path Segments" pathsOK=t)
		    ("Polygons/Rects" shapesOK=t)
		    ("Text" textOK=t)
		)
	    )
	    if(!textOK || !shapesOK || !pathsOK then
		unless(registered
		    registered=t
		    abLeRegUserObjectSelectionFilter(
			"abShapeSelectionFilterFilter"
		    )
		)
	    else
		when(registered
		    abLeUnregUserObjectSelectionFilter(
			"abShapeSelectionFilterFilter"
		    )
		)
		registered=nil
	    ) ; if 
	) ; let
    ) ; defun formCallback

    /***************************************************************
    *                                                              *
    *                         (filter obj)                         *
    *                                                              *
    *       The actual selection filter. This is exported to       *
    *      abShapeSelectionFilterFilter. Compares the objType      *
    *     of the object with certain values, and then returns      *
    *    the value of the flag where the user has chosen which     *
    *                       are selectable.                        *
    *                                                              *
    ***************************************************************/
    defun(filter (obj)
	case(obj~>objType
	    (("path" "pathSeg") pathsOK)
	    (("rect" "polygon") shapesOK)
	    (("label" "textDisplay") textOK)
	    (t t)
	) ; case
    ) ; defun filter

    ;--------------------------------------------------------------------
    ; Export all the functions
    ;--------------------------------------------------------------------
    abShapeSelectionFilter=displayForm
    abShapeSelectionFilterFilter=filter
    abShapeSelectionFilterCB=formCallback
)

And here's the second (used by the first code):

/* abToggleForm.il

Author     A.D.Beckett
Group      Custom IC (UK), Cadence Design Systems Ltd.
Language   SKILL
Date       Feb 23, 1999 
Modified   Nov 20, 2008 (comments finally added!)
By         A.D.Beckett

Functions for creating a variable list of toggles
with all and none toggles. The list of toggles is
in a scroll region.

Attempted to make it resizable, but this rather contradicted
with the scroll region, so left the scroll region in the form 
instead.

Two main entry functions:

abCreateToggleForm()
abToggleFormGetSelected()

Example:

procedure(myToggleCB(form)
   printf("Selected Files were:\n")
   pprint(abToggleFormGetSelected(form))
   newline()
)

hiDisplayForm(
  abCreateToggleForm(
     ?name 'myTogForm
     ?textList getDirFiles("/bin")
     ?prompt "Choose Files"
     ?callback 'myToggleCB
  )
)

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

SCCS Info: @(#) abToggleForm.il 12/02/08.14:12:53 1.3

*/

/********************************************************************
*                                                                   *
*                abCreateToggleForm(?name s_formName                *
*              ?textList l_textitems ?prompt t_prompt               *
*         [?formTitle t_formTitle] [?value b_defaultValue]          *
* [?yStep x_yStep] [?formWidth x_formWidth] [?xPosition x_position] *
*          [?toggleHeight x_height] [?toggleWidth x_width]          *
*                      [?callback s_callback])                      *
*     [?formType 'options/'nonoptions] [?buttonLayout 'OKCancel]    *
*                                                                   *
*      Create a form full of toggle items, with an all or none      *
*       button. Must provide at least the symbol for the form       *
*              name, the list of items, and a prompt.               *
*                                                                   *
********************************************************************/

procedure(abCreateToggleForm(@key 
	(name nil)
	(formTitle "")
	(textList nil) 
	(prompt "") 
	(value t)
	(yStep 20) (formWidth 300) 
	(xPosition 220) (toggleHeight 200) (toggleWidth 250)
	(callback nil)
	(formType 'nonoptions)
	buttonLayout
	)
    let((toggleList togName (toggleNumber 0)
	    (yPosition 0) topLabel allButton noneButton
	    scrollRegion separator form)
	;----------------------------------------------------------------
	; delete any existing form
	;----------------------------------------------------------------
	when(boundp(name) && symeval(name)
	    hiFormCancel(symeval(name))
	    hiDeleteForm(symeval(name)))
	;----------------------------------------------------------------
	; Default button layout
	;----------------------------------------------------------------
	unless(buttonLayout
	    buttonLayout=if(formType=='nonoptions 'OKCancel 'HideCancel)
	    )
	;----------------------------------------------------------------
	; create the label at the top of the toggle list
	;----------------------------------------------------------------
	topLabel=hiCreateLabel(?name 'label ?labelText prompt)
	;----------------------------------------------------------------
	; create the toggles for each entry in the textList
	;----------------------------------------------------------------
	toggleList=foreach(mapcar text textList
	    ;------------------------------------------------------------
	    ; create the name of the toggle
	    ;------------------------------------------------------------
	    togName=concat('toggle ++toggleNumber)
	    ;------------------------------------------------------------
	    ; return the first value in the group
	    ;------------------------------------------------------------
	    prog1(
		;--------------------------------------------------------
		; create the toggle and add it onto the list
		;--------------------------------------------------------
		list(
		    hiCreateBooleanButton(
			?name togName
			?buttonText text
			?callback 
			sprintf(nil "abToggleFormOtherButtonCB(%s '%s)"
			name togName)
			?value value
			); hiCreateBooleanButton
		    0:yPosition
		    toggleWidth:yStep
		    xPosition
		    ); list
		;--------------------------------------------------------
		; increment the step 
		;--------------------------------------------------------
		yPosition=yPosition+yStep
		); prog1
	    ); foreach mapcar
	;----------------------------------------------------------------
	; add the line and the All and None toggles 
	;----------------------------------------------------------------
	separator=hiCreateSeparatorField(?name 'separator)
	allButton=hiCreateBooleanButton(
	    ?name 'All
	    ?buttonText "All"
	    ?callback sprintf(nil "abToggleFormAllButtonCB(%s)" name)
	    ?value value
	    )
	noneButton=hiCreateBooleanButton(
	    ?name 'None
	    ?buttonText "None"
	    ?callback sprintf(nil "abToggleFormNoneButtonCB(%s)" name)
	    ?value !value
	    )
	;----------------------------------------------------------------
	; the sroll region itself
	;----------------------------------------------------------------
	scrollRegion=hiCreateScrollRegion(
	    ?name 'scrollRegion
	    ?fields toggleList
	    ?borderWidth 0
	    )
	;----------------------------------------------------------------
	; create the form
	;----------------------------------------------------------------
	form=hiCreateAppForm(
	    ?name name
	    ?fields list(
		list(topLabel 0:0 formWidth:yStep*2)
		list(scrollRegion 0:yStep*2 formWidth:toggleHeight)
		list(separator 0:toggleHeight+yStep*2 formWidth:0)
		list(allButton 0:toggleHeight+yStep*3 formWidth:yStep xPosition)
		list(noneButton 0:toggleHeight+yStep*4 formWidth:yStep xPosition)
		)
	    ?formTitle formTitle
	    ?formType formType
	    ?buttonLayout buttonLayout
	    ?callback callback
	    )
	;----------------------------------------------------------------
	; store various information on the form
	;----------------------------------------------------------------
	form->numButtons=toggleNumber
	if(value then
	    form->numSelected=toggleNumber
	else 
	    form->numSelected=0
	    )
	form
	))

/***************************************************************
*                                                              *
*            abToggleFormOtherButtonCB(form field)             *
*                                                              *
*  Callback for each toggle (except all or none) on the form   *
*                                                              *
***************************************************************/

procedure(abToggleFormOtherButtonCB(form field)
    let((numSelected)
	numSelected=form->numSelected
	if(get(form->scrollRegion field)->value 
	    numSelected++
	    numSelected--)
	form->numSelected=numSelected
	form->None->value=numSelected==0
	form->All->value=numSelected==form->numButtons
    ))

/***************************************************************
*                                                              *
*              abToggleFormAllButtons(form value)              *
*                                                              *
*    Utility function to set all the buttons to a specified    *
*                            value.                            *
*                                                              *
***************************************************************/

procedure(abToggleFormAllButtons(form value)
    let(((scrollRegion form->scrollRegion))
	foreach(field scrollRegion->fieldList
	    get(scrollRegion field)->value=value
	    )
    ))

/***************************************************************
*                                                              *
*                abToggleFormAllButtonCB(form)                 *
*                                                              *
*                 Callback for the All button                  *
*                                                              *
***************************************************************/

procedure(abToggleFormAllButtonCB(form)
    cond(
	(form->All->value
	    abToggleFormAllButtons(form t))
	(form->numSelected==form->numButtons
	    form->All->value=t)
	)
    )

/***************************************************************
*                                                              *
*                abToggleFormNoneButtonCB(form)                *
*                                                              *
*                 Callback for the None button                 *
*                                                              *
***************************************************************/

procedure(abToggleFormNoneButtonCB(form)
    cond(
	(form->None->value
	    abToggleFormAllButtons(form nil))
	(form->numSelected==0
	    form->None->value=t)
	)
    )

/***************************************************************
*                                                              *
*                abToggleFormGetSelected(form)                 *
*                                                              *
*  Function that may be used in the form callback function to  *
*             retrieve all the selected item names             *
*                                                              *
***************************************************************/

procedure(abToggleFormGetSelected(form)
    let(((scrollRegion form->scrollRegion))
	foreach(mapcar field
	    setof(field scrollRegion->fieldList
		get(scrollRegion field)->value)
	    get(scrollRegion field)->prompt
	    )
	))

Regards,

Andrew.

Reply

Andrew Beckett over 15 years ago

You'll need the two SKILL files below. Make sure that the suffix of each file is kept as in the comment at the top of each, because the first one is SKILL++ (and so needs the ".ils" suffix).

Here's the first code (the main code):

/* abShapeSelectionFilter.ils

Author     A.D.Beckett
Group      Custom IC (UK), Cadence Design Systems Ltd.
Language   SKILL
Date       Dec 02, 2008 
Modified   
By         

Main entry point:

abShapeSelectionFilter()

Brings up form, asking you to choose which type of shape objects
are selectable.

Written in C syntax to allow ease of modification by those scared
of LISP ;->

Requires abToggleForm.il and abLeMultiSelectionFilter.ils to
be loaded first.

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

SCCS Info: @(#) abShapeSelectionFilter.ils 12/02/08.16:10:15 1.1

*/

importSkillVar(abShapeSelectionFilterForm)
let(((pathsOK t) (shapesOK t) (textOK t) registered)
    /***************************************************************
    *                                                              *
    *                        (displayForm)                         *
    *                                                              *
    *     Local function, exported as abShapeSelectionFilter()     *
    *   which creates form if not already created, and displays    *
    *                             it.                              *
    *                                                              *
    ***************************************************************/
    defun(displayForm ()
	unless(boundp('abShapeSelectionFilterForm)
	    abCreateToggleForm(
		?name 'abShapeSelectionFilterForm
		?prompt "Check selectable objects:"
		?textList '("Paths/Path Segments" "Polygons/Rects" "Text")
		?callback 'abShapeSelectionFilterCB
		?formTitle "Filter objects"
		?buttonLayout 'OKCancelApply
		?toggleHeight 80
	    ) ; abCreateToggleForm
	) ; unless
	hiDisplayForm(abShapeSelectionFilterForm)
    ) ; defun

    /******************************************************************
    *                                                                 *
    *                       (formCallback form)                       *
    *                                                                 *
    *   Local function, exported as abShapeSelectionFilterCB, which   *
    * takes choices from form, and updates lexically scoped variables *
    *    to remember settings - so that the filter() function can     *
    *                         reference them.                         *
    *                                                                 *
    ******************************************************************/
    defun(formCallback (form)
	let((choices)
	    choices=abToggleFormGetSelected(form)
	    pathsOK=shapesOK=textOK=nil
	    foreach(choice choices
		case(choice
		    ("Paths/Path Segments" pathsOK=t)
		    ("Polygons/Rects" shapesOK=t)
		    ("Text" textOK=t)
		)
	    )
	    if(!textOK || !shapesOK || !pathsOK then
		unless(registered
		    registered=t
		    abLeRegUserObjectSelectionFilter(
			"abShapeSelectionFilterFilter"
		    )
		)
	    else
		when(registered
		    abLeUnregUserObjectSelectionFilter(
			"abShapeSelectionFilterFilter"
		    )
		)
		registered=nil
	    ) ; if 
	) ; let
    ) ; defun formCallback

    /***************************************************************
    *                                                              *
    *                         (filter obj)                         *
    *                                                              *
    *       The actual selection filter. This is exported to       *
    *      abShapeSelectionFilterFilter. Compares the objType      *
    *     of the object with certain values, and then returns      *
    *    the value of the flag where the user has chosen which     *
    *                       are selectable.                        *
    *                                                              *
    ***************************************************************/
    defun(filter (obj)
	case(obj~>objType
	    (("path" "pathSeg") pathsOK)
	    (("rect" "polygon") shapesOK)
	    (("label" "textDisplay") textOK)
	    (t t)
	) ; case
    ) ; defun filter

    ;--------------------------------------------------------------------
    ; Export all the functions
    ;--------------------------------------------------------------------
    abShapeSelectionFilter=displayForm
    abShapeSelectionFilterFilter=filter
    abShapeSelectionFilterCB=formCallback
)

And here's the second (used by the first code):

/* abToggleForm.il

Author     A.D.Beckett
Group      Custom IC (UK), Cadence Design Systems Ltd.
Language   SKILL
Date       Feb 23, 1999 
Modified   Nov 20, 2008 (comments finally added!)
By         A.D.Beckett

Functions for creating a variable list of toggles
with all and none toggles. The list of toggles is
in a scroll region.

Attempted to make it resizable, but this rather contradicted
with the scroll region, so left the scroll region in the form 
instead.

Two main entry functions:

abCreateToggleForm()
abToggleFormGetSelected()

Example:

procedure(myToggleCB(form)
   printf("Selected Files were:\n")
   pprint(abToggleFormGetSelected(form))
   newline()
)

hiDisplayForm(
  abCreateToggleForm(
     ?name 'myTogForm
     ?textList getDirFiles("/bin")
     ?prompt "Choose Files"
     ?callback 'myToggleCB
  )
)

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

SCCS Info: @(#) abToggleForm.il 12/02/08.14:12:53 1.3

*/

/********************************************************************
*                                                                   *
*                abCreateToggleForm(?name s_formName                *
*              ?textList l_textitems ?prompt t_prompt               *
*         [?formTitle t_formTitle] [?value b_defaultValue]          *
* [?yStep x_yStep] [?formWidth x_formWidth] [?xPosition x_position] *
*          [?toggleHeight x_height] [?toggleWidth x_width]          *
*                      [?callback s_callback])                      *
*     [?formType 'options/'nonoptions] [?buttonLayout 'OKCancel]    *
*                                                                   *
*      Create a form full of toggle items, with an all or none      *
*       button. Must provide at least the symbol for the form       *
*              name, the list of items, and a prompt.               *
*                                                                   *
********************************************************************/

procedure(abCreateToggleForm(@key 
	(name nil)
	(formTitle "")
	(textList nil) 
	(prompt "") 
	(value t)
	(yStep 20) (formWidth 300) 
	(xPosition 220) (toggleHeight 200) (toggleWidth 250)
	(callback nil)
	(formType 'nonoptions)
	buttonLayout
	)
    let((toggleList togName (toggleNumber 0)
	    (yPosition 0) topLabel allButton noneButton
	    scrollRegion separator form)
	;----------------------------------------------------------------
	; delete any existing form
	;----------------------------------------------------------------
	when(boundp(name) && symeval(name)
	    hiFormCancel(symeval(name))
	    hiDeleteForm(symeval(name)))
	;----------------------------------------------------------------
	; Default button layout
	;----------------------------------------------------------------
	unless(buttonLayout
	    buttonLayout=if(formType=='nonoptions 'OKCancel 'HideCancel)
	    )
	;----------------------------------------------------------------
	; create the label at the top of the toggle list
	;----------------------------------------------------------------
	topLabel=hiCreateLabel(?name 'label ?labelText prompt)
	;----------------------------------------------------------------
	; create the toggles for each entry in the textList
	;----------------------------------------------------------------
	toggleList=foreach(mapcar text textList
	    ;------------------------------------------------------------
	    ; create the name of the toggle
	    ;------------------------------------------------------------
	    togName=concat('toggle ++toggleNumber)
	    ;------------------------------------------------------------
	    ; return the first value in the group
	    ;------------------------------------------------------------
	    prog1(
		;--------------------------------------------------------
		; create the toggle and add it onto the list
		;--------------------------------------------------------
		list(
		    hiCreateBooleanButton(
			?name togName
			?buttonText text
			?callback 
			sprintf(nil "abToggleFormOtherButtonCB(%s '%s)"
			name togName)
			?value value
			); hiCreateBooleanButton
		    0:yPosition
		    toggleWidth:yStep
		    xPosition
		    ); list
		;--------------------------------------------------------
		; increment the step 
		;--------------------------------------------------------
		yPosition=yPosition+yStep
		); prog1
	    ); foreach mapcar
	;----------------------------------------------------------------
	; add the line and the All and None toggles 
	;----------------------------------------------------------------
	separator=hiCreateSeparatorField(?name 'separator)
	allButton=hiCreateBooleanButton(
	    ?name 'All
	    ?buttonText "All"
	    ?callback sprintf(nil "abToggleFormAllButtonCB(%s)" name)
	    ?value value
	    )
	noneButton=hiCreateBooleanButton(
	    ?name 'None
	    ?buttonText "None"
	    ?callback sprintf(nil "abToggleFormNoneButtonCB(%s)" name)
	    ?value !value
	    )
	;----------------------------------------------------------------
	; the sroll region itself
	;----------------------------------------------------------------
	scrollRegion=hiCreateScrollRegion(
	    ?name 'scrollRegion
	    ?fields toggleList
	    ?borderWidth 0
	    )
	;----------------------------------------------------------------
	; create the form
	;----------------------------------------------------------------
	form=hiCreateAppForm(
	    ?name name
	    ?fields list(
		list(topLabel 0:0 formWidth:yStep*2)
		list(scrollRegion 0:yStep*2 formWidth:toggleHeight)
		list(separator 0:toggleHeight+yStep*2 formWidth:0)
		list(allButton 0:toggleHeight+yStep*3 formWidth:yStep xPosition)
		list(noneButton 0:toggleHeight+yStep*4 formWidth:yStep xPosition)
		)
	    ?formTitle formTitle
	    ?formType formType
	    ?buttonLayout buttonLayout
	    ?callback callback
	    )
	;----------------------------------------------------------------
	; store various information on the form
	;----------------------------------------------------------------
	form->numButtons=toggleNumber
	if(value then
	    form->numSelected=toggleNumber
	else 
	    form->numSelected=0
	    )
	form
	))

/***************************************************************
*                                                              *
*            abToggleFormOtherButtonCB(form field)             *
*                                                              *
*  Callback for each toggle (except all or none) on the form   *
*                                                              *
***************************************************************/

procedure(abToggleFormOtherButtonCB(form field)
    let((numSelected)
	numSelected=form->numSelected
	if(get(form->scrollRegion field)->value 
	    numSelected++
	    numSelected--)
	form->numSelected=numSelected
	form->None->value=numSelected==0
	form->All->value=numSelected==form->numButtons
    ))

/***************************************************************
*                                                              *
*              abToggleFormAllButtons(form value)              *
*                                                              *
*    Utility function to set all the buttons to a specified    *
*                            value.                            *
*                                                              *
***************************************************************/

procedure(abToggleFormAllButtons(form value)
    let(((scrollRegion form->scrollRegion))
	foreach(field scrollRegion->fieldList
	    get(scrollRegion field)->value=value
	    )
    ))

/***************************************************************
*                                                              *
*                abToggleFormAllButtonCB(form)                 *
*                                                              *
*                 Callback for the All button                  *
*                                                              *
***************************************************************/

procedure(abToggleFormAllButtonCB(form)
    cond(
	(form->All->value
	    abToggleFormAllButtons(form t))
	(form->numSelected==form->numButtons
	    form->All->value=t)
	)
    )

/***************************************************************
*                                                              *
*                abToggleFormNoneButtonCB(form)                *
*                                                              *
*                 Callback for the None button                 *
*                                                              *
***************************************************************/

procedure(abToggleFormNoneButtonCB(form)
    cond(
	(form->None->value
	    abToggleFormAllButtons(form nil))
	(form->numSelected==0
	    form->None->value=t)
	)
    )

/***************************************************************
*                                                              *
*                abToggleFormGetSelected(form)                 *
*                                                              *
*  Function that may be used in the form callback function to  *
*             retrieve all the selected item names             *
*                                                              *
***************************************************************/

procedure(abToggleFormGetSelected(form)
    let(((scrollRegion form->scrollRegion))
	foreach(mapcar field
	    setof(field scrollRegion->fieldList
		get(scrollRegion field)->value)
	    get(scrollRegion field)->prompt
	    )
	))

Regards,

Andrew.

Children

No Data

Community Guidelines

The Cadence Design Communities support Cadence users and technologists interacting to exchange ideas, news, technical information, and best practices to solve problems and get the most from Cadence technology. The community is open to everyone, and to provide the most value, we require participants to follow our Community Guidelines that facilitate a quality exchange of ideas and information. By accessing, contributing, using or downloading any materials from the site, you agree to be bound by the full Community Guidelines.