pass argument to enterPoints procedure

Hi Mantang,

The answer is simple - you can't. Those callbacks defined in enterPoints(..) are always called with exactly those three respectively two arguments. That's why yo get an error when you don't implement them expecting just these arguments. So to get at the current form you'll have to issue hiGetCurrentForm(..) and geGetWindowCellView()~>instances and assign the return values to local variables.

Max

oops - I made in a mistkae in my earlier post. With geGetWindowCellView()~>instances you get all the cell view's instances. To get the selected ones only you need to

(setof fig (geGetSelectedSet (geGetWindowCellView)) fig~>objType=="inst")

Hi mbracht

Thank you for your info. Your previous message said return local variable. How do I  assign the return value of CCSPointsDone  to variable inside CCSbtnFld1CB ?  Please see the bold line.

Everyone: Any suggestion ? Thank you for your help  in advance 

procedure(CCSbtnFld1CB(theForm instances)

    let( ()

             enterPoints( ?prompts list("Click to select instances in the cellview. Press Esc key when done with selections")

             ?addPointProc "CCSAddPtCB"

             ?doneProc "CCSPointsDone"     ;  how do I assign the return value of CCSDPointDone heree

             );enterPoints

    );let

);procedure

procedure( CCSPointsDone( w done pts)

prog(str1

     str1 = ""

    unless( done str1 = buildString( setof(obj geGetSelSet() and(obj~>objType=="inst" obj~>purpose!="pin"))~>name)

    );unless

    return str1 ) ; proj 

);procedure

procedure( CCSAddPtCB( w ptlist )

geSelectPoint(w car(last(ptlist)))

);procedure

Unfortunately this is one of those things that would be a whole lot easier if the various enterFunctions (enterPoints, enterBox etc) allowed the callbacks to be specified as a function object rather than a string (CCR 2169313 is asking for this - you might want to contact customer support and request a duplicate) as then you could use a SKILL++ closure to share variables between the calling function and the callbacks. I do have a hideous workaround for that, but it's so ugly I don't want to share it in public as I wouldn't really want people relying on it.

Anyway, in this specific case, the easiest approach is to not use the doneProc but rely on the return value of enterPoints. Note that often in the schematic and layout editor the "Repeat Commands" editor option is on, and that prevents the enterPoints from returning - it calls it again afterwards. So we need to temporarily turn that off. See the code below for an illustration how to do this - based on your example somewhat:

procedure( CCFAddPtCB( w ptlist )
  geSelectPoint(w car(last(ptlist)))
)

procedure(CCFdoEnterPoints(instances)
  let((points modalCommands str1 application)
    ; temporarily turn off "repeat commands" so that the 
    ; function returns after one run. Don't bother with the doneProc
    ; but use the return value instead
    application=case(geGetEditCellView()~>cellViewType
      ("schematic" "schematic")
      ("schematicSymbol" "schematic")
      ("maskLayout" "layout")
    )
    modalCommands=envGetVal(application "modalCommands")
    ; the first block is the code to invoke, and the second block
    ; is guaranteed to run even if there is an error in the first block
    ; or it is aborted for some reason
    unwindProtect(
      {
        envSetVal(application "modalCommands" 'boolean nil)
        points=enterPoints(
          ?prompts list("Click to select instances in the cellview. Press Esc key when done with selections")
          ?addPointProc "CCFAddPtCB"
        )
        when(points
          str1 = buildString(setof(obj geGetSelSet() and(obj~>objType=="inst" obj~>purpose!="pin"))~>name)
        )
        printf("str1 is %L\n" str1)
      }
      ; make sure that the modalCommands is reset afterwards
      {
        envSetVal(application "modalCommands" 'boolean modalCommands)
      }
    )
  )
)

HI Andrew,

Thank you for your code.

Thanks,

ManChak