Help regarding pop-push of a LIST

Can you please re-post your code (maybe you're using Chrome, which causes issues with the formatting in this forum; if so, please use a different browser). The formatting is completely lost, and I don't really have time to mess around with it to make it readable.

Thanks,

Andrew.

procedure(nvGetWidthForm()

metal_width=hiCreateFloatField(?name 'Metal_Width
          ?value width
          ?prompt "Metal Width"
           ?callback "width=hiGetCurrentForm()->metal_width->value"
          )
get_wid=hiCreateAppForm(
  ?name 'width
  ?formTitle "METAL WIDTH"
  ?buttonLayout 'OKCancel
  ?fields list(
  list(metal_width 0:20 300:10 80)
  )
) ; hiCreateAppForm
) ; let
) ; procedure_nvGetWidthForm()

procedure(nvCreatePath()
get_wid=0
width=0.1
hiDisplayForm(nvGetWidthForm())
enterPath(
    ?prompts
      list( "Point at the first point of the path:"
            "Point at the next point of the path:"
      )
    ?addPointProc "nvGetMyLayer()"
    ?points p_list
    ?form get_wid
    ?pathWidth width
    ?doneProc "nvGetMyDirection"
    ?pathStyle "Truncate"
  ); 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\")") 

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\")")

If you look at the code, I already added a comment explaining how to do this. Look 8 lines from the bottom of the code and there is a comment above the ?alwaysMap line. So comment out the ?alwaysMap line (or remove it) if you don't want the form to appear initially. 

It should already remember the width from the previous invocation.

Kindest Regards,

Andrew 

Hi Andrew,

Thanks A Lot, the script is working fine. There is only one problem when i use the enterPath() function. I cant change the layer, if i am drawing a straight line. Because it will save only the co-ordinates of the change in direction. i was thinking to add click to retrive the point if i am using it as a straight path also. Is there any other option to do this

Regards

Neeraj 

Neeraj,

It's not entirely clear to me what you're trying to do. If you want to do something where you effectively draw the path so far, then change layer, the carry on digitizing starting from the last point - you could do that easily enough by either having a bindkey which uses the global list of points that have been collected so far to create the path, and then change the enter function to pre-seed the points with the last entry in the global variable nvCreatePathCurrentPoints. Or you could make it do a finishEnterFun() and then call your orginal nvCreatePath() again - but modify it so that it takes an optional list of points. Something like:

procedure(nvCreatePath(@key points)
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
    ?points points
    ?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>F8" "finishEnterFun() leSetEntryLayer(\"Metal2\") nvCreatePath(?points last(nvCreatePathCurrentPoints))")

But maybe I've misunderstood you?

Andrew.

Hi Andrew,

 i would like to state it with an example. Can i use enterPath function for a path as shown below

 what i want to draw :

      M1_metal                           M2_metal                  M3_metal 

------------------------------**************************+++++++++++++++ 

What the enterPath functions do

            M3_metal 

+++++++++++++++++++++++++++++++++++++++++++++++++ 

Because when i use the enterFunction for drawing a straight path, it picks up the first point and end point of the path, irrespective of how many clicks you do in the straight line. I tried to click once and then change the metal layer, but it couldnt pick the point as it was a straight path and converted the whole path to last layer change path. 

It picks the point when there is a direction change of the path, i.e if i am routing path1 in x-axis then in y-axis it picks the point. But if i route and try to change the layer in x-axis it wont. 

Regards

Neeraj