Stats

Locked Locked
Replies 37
Subscribers 150
Views 28833
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 regarding pop-push of a LIST

Hi,

I was trying to save my path coordinates as a list. But when i was trying to print the list of points, got errors "unbound variable-plist" . the code is mentioned below.

procedure(nvToGetMyLocation()

let((point plist)

cvw=getCurrentWindow()

point=hiGetPoint(cvw)

plist=append(plist list(point))

print(point)

print(plist)

); let

); procedure_nvToGetMyLocation

Parents

Andrew Beckett over 12 years ago

Try this - I modified your code. You really need to use an options form for this - I've extended to cope with updating the rubber-band width of the path if you change the width during digitization. Hit return to finish the path (or double-click).
I added comments to give you some idea as to what is going on.
Andrew.
;------------------------------------------------------------------------
; Callback for if the path width is changed - reinitializes the
; enterPath so it rubberbands with the correct width
;------------------------------------------------------------------------
procedure(nvCreatePathChangeWidth()
changeEnterFun(
    'enterPath
    ?prompts
      list( "Point at the first point of the path:"
            "Point at the next point of the path:"
      )
    ?addPointProc "nvCreatePathCurrentPointsProc"
    ?delPointProc "nvCreatePathCurrentPointsProc"
    ?points nvCreatePathCurrentPoints
    ?form nvGetWidthForm
    ?pathWidth nvGetWidthForm->Metal_Width->value
    ?doneProc "nvCreatePathDoneProc"
    ?pathStyle "Truncate"
); enter_Path
)

procedure(nvCreateGetWidthForm()

metal_width=hiCreateFloatField(?name 'Metal_Width
          ?value 0.1
          ?prompt "Metal Width"
           ; this is to update the rubber banding...
           ?callback "nvCreatePathChangeWidth()"
          )
hiCreateAppForm(
?name 'nvGetWidthForm
?formTitle "METAL WIDTH"
; note that it must be an options form, and there are
; different allowed buttons on this form
?formType 'options
?buttonLayout 'HideCancel
?fields list(
list(metal_width 0:20 300:10 80)
)
) ; hiCreateAppForm
;) ; let
) ; procedure_nvGetWidthForm()

;------------------------------------------------------------------------
; When finished, draw the path
;------------------------------------------------------------------------
procedure(nvCreatePathDoneProc(win done points)
let((cv)
    when(done
        cv=geGetEditCellView(win)
        dbCreatePath(cv leGetEntryLayer() points nvGetWidthForm->Metal_Width->value)
    )
)
)

;------------------------------------------------------------------------
; This is used to update the global variable recording the points.
; Only used so that when you change the width on the options form,
; it will reinitialize the new enterPath with the points collected
; so far.
;------------------------------------------------------------------------
procedure(nvCreatePathCurrentPointsProc(win points)
nvCreatePathCurrentPoints=points
)

procedure(nvCreatePath()
unless(boundp('nvGetWidthForm)
nvCreateGetWidthForm()
)
nvCreatePathCurrentPoints=nil
enterPath(
    ?prompts
      list( "Point at the first point of the path:"
            "Point at the next point of the path:"
      )
    ?addPointProc "nvCreatePathCurrentPointsProc"
    ?delPointProc "nvCreatePathCurrentPointsProc"
    ?form nvGetWidthForm
    ?pathWidth nvGetWidthForm->Metal_Width->value
    ?doneProc "nvCreatePathDoneProc"
    ?pathStyle "Truncate"
    ; comment out if you don't want the form to appear initially
    ?alwaysMap t
); enter_Path

); procedure_nvCreatePath

hiSetBindKey("Layout" "<Key>/" "nvCreatePath()")
hiSetBindKey("Layout" "<Key>1" "leSetEntryLayer(\"M1\")")
hiSetBindKey("Layout" "<Key>2" "leSetEntryLayer(\"M2\")")
hiSetBindKey("Layout" "<Key>3" "leSetEntryLayer(\"M3\")")
Cancel
Vote Up 0 Vote Down

Cancel

Reply

Andrew Beckett over 12 years ago

Try this - I modified your code. You really need to use an options form for this - I've extended to cope with updating the rubber-band width of the path if you change the width during digitization. Hit return to finish the path (or double-click).
I added comments to give you some idea as to what is going on.
Andrew.
;------------------------------------------------------------------------
; Callback for if the path width is changed - reinitializes the
; enterPath so it rubberbands with the correct width
;------------------------------------------------------------------------
procedure(nvCreatePathChangeWidth()
changeEnterFun(
    'enterPath
    ?prompts
      list( "Point at the first point of the path:"
            "Point at the next point of the path:"
      )
    ?addPointProc "nvCreatePathCurrentPointsProc"
    ?delPointProc "nvCreatePathCurrentPointsProc"
    ?points nvCreatePathCurrentPoints
    ?form nvGetWidthForm
    ?pathWidth nvGetWidthForm->Metal_Width->value
    ?doneProc "nvCreatePathDoneProc"
    ?pathStyle "Truncate"
); enter_Path
)

procedure(nvCreateGetWidthForm()

metal_width=hiCreateFloatField(?name 'Metal_Width
          ?value 0.1
          ?prompt "Metal Width"
           ; this is to update the rubber banding...
           ?callback "nvCreatePathChangeWidth()"
          )
hiCreateAppForm(
?name 'nvGetWidthForm
?formTitle "METAL WIDTH"
; note that it must be an options form, and there are
; different allowed buttons on this form
?formType 'options
?buttonLayout 'HideCancel
?fields list(
list(metal_width 0:20 300:10 80)
)
) ; hiCreateAppForm
;) ; let
) ; procedure_nvGetWidthForm()

;------------------------------------------------------------------------
; When finished, draw the path
;------------------------------------------------------------------------
procedure(nvCreatePathDoneProc(win done points)
let((cv)
    when(done
        cv=geGetEditCellView(win)
        dbCreatePath(cv leGetEntryLayer() points nvGetWidthForm->Metal_Width->value)
    )
)
)

;------------------------------------------------------------------------
; This is used to update the global variable recording the points.
; Only used so that when you change the width on the options form,
; it will reinitialize the new enterPath with the points collected
; so far.
;------------------------------------------------------------------------
procedure(nvCreatePathCurrentPointsProc(win points)
nvCreatePathCurrentPoints=points
)

procedure(nvCreatePath()
unless(boundp('nvGetWidthForm)
nvCreateGetWidthForm()
)
nvCreatePathCurrentPoints=nil
enterPath(
    ?prompts
      list( "Point at the first point of the path:"
            "Point at the next point of the path:"
      )
    ?addPointProc "nvCreatePathCurrentPointsProc"
    ?delPointProc "nvCreatePathCurrentPointsProc"
    ?form nvGetWidthForm
    ?pathWidth nvGetWidthForm->Metal_Width->value
    ?doneProc "nvCreatePathDoneProc"
    ?pathStyle "Truncate"
    ; comment out if you don't want the form to appear initially
    ?alwaysMap t
); enter_Path

); procedure_nvCreatePath

hiSetBindKey("Layout" "<Key>/" "nvCreatePath()")
hiSetBindKey("Layout" "<Key>1" "leSetEntryLayer(\"M1\")")
hiSetBindKey("Layout" "<Key>2" "leSetEntryLayer(\"M2\")")
hiSetBindKey("Layout" "<Key>3" "leSetEntryLayer(\"M3\")")
Cancel
Vote Up 0 Vote Down

Cancel

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.