Is it possible to parameterize a Multi Bit wire with vector expressions?

Here's a simpler version. Lawrence's code is creating some graphical artifacts which aren't really necessary if you only want to be able to netlist it (for example, there's no need to create the pins; terminals are enough). And  you wouldn't necessarily need a pcell symbol to go along with it.

Your mileage may vary - just thought I'd given an alternative since I had one to hand!

let( (CellLibrary pcellId)
  CellLibrary = "training"
  unless( ddGetObj(CellLibrary)
     error("Couldn't open library %L" CellLibrary)
  )
  
  pcellId =  pcDefinePCell(
     list( ddGetObj(CellLibrary) "rnsd" "schematic" "schematic" )
     
     /****************************************************************************
     /*
     /* Default Parameters
     /*
     /***************************************************************************/
     (
        (ns "1")
     )
     
     let(( pcCV masterCv instName instId netP netM numInsts)
       
       /*************************************************************************
       /*
       /* Get parameter values
       /*
       /************************************************************************/
       pcCV = pcCellView
       
       ;; open master cell view
       masterCv = dbOpenCellViewByType( "analogLib" "res" "symbol" nil "r" )

       ;; create the nets
       netP=dbMakeNet(pcCV "PLUS")
       netM=dbMakeNet(pcCV "MINUS")

       ;; create the terminals
       dbCreateTerm(netP "PLUS" "inputOutput")
       dbCreateTerm(netM "MINUS" "inputOutput")

       numInsts=atoi(ns)
       when(numInsts<1 numInsts=1)
       for(inst 1 numInsts
          if(inst==1 then
             netP=dbMakeNet(pcCV "PLUS")
          else 
             netP=dbMakeNet(pcCV sprintf(nil "net%d" inst-1))
          ) ; if
          if(inst==numInsts then
             netM=dbMakeNet(pcCV "MINUS")
          else 
             netM=dbMakeNet(pcCV sprintf(nil "net%d" inst))
          )

          ;; create instance
          sprintf(instName "R%d" inst)
          instId = dbCreateInst( pcCV masterCv instName (0:0) "R0" )
          dbCreateProp(instId "r" "string" "pPar(\"r\")/pPar(\"ns\")")

          ;; create instTerms for the instance to connect it up
          dbCreateInstTerm(netP instId dbFindTermByName(masterCv "PLUS"))
          dbCreateInstTerm(netM instId dbFindTermByName(masterCv "MINUS"))

       ) ; for

       dbClose( masterCv )
       ;; Always return true
       t
     ) ; ** let **
  )
  ; not sure if below is really necessary
  dbSave(pcellId)
  dbClose( pcellId ) 
) ; ** let ** 

Here's a simpler version. Lawrence's code is creating some graphical artifacts which aren't really necessary if you only want to be able to netlist it (for example, there's no need to create the pins; terminals are enough). And  you wouldn't necessarily need a pcell symbol to go along with it.

Your mileage may vary - just thought I'd given an alternative since I had one to hand!

let( (CellLibrary pcellId)
  CellLibrary = "training"
  unless( ddGetObj(CellLibrary)
     error("Couldn't open library %L" CellLibrary)
  )
  
  pcellId =  pcDefinePCell(
     list( ddGetObj(CellLibrary) "rnsd" "schematic" "schematic" )
     
     /****************************************************************************
     /*
     /* Default Parameters
     /*
     /***************************************************************************/
     (
        (ns "1")
     )
     
     let(( pcCV masterCv instName instId netP netM numInsts)
       
       /*************************************************************************
       /*
       /* Get parameter values
       /*
       /************************************************************************/
       pcCV = pcCellView
       
       ;; open master cell view
       masterCv = dbOpenCellViewByType( "analogLib" "res" "symbol" nil "r" )

       ;; create the nets
       netP=dbMakeNet(pcCV "PLUS")
       netM=dbMakeNet(pcCV "MINUS")

       ;; create the terminals
       dbCreateTerm(netP "PLUS" "inputOutput")
       dbCreateTerm(netM "MINUS" "inputOutput")

       numInsts=atoi(ns)
       when(numInsts<1 numInsts=1)
       for(inst 1 numInsts
          if(inst==1 then
             netP=dbMakeNet(pcCV "PLUS")
          else 
             netP=dbMakeNet(pcCV sprintf(nil "net%d" inst-1))
          ) ; if
          if(inst==numInsts then
             netM=dbMakeNet(pcCV "MINUS")
          else 
             netM=dbMakeNet(pcCV sprintf(nil "net%d" inst))
          )

          ;; create instance
          sprintf(instName "R%d" inst)
          instId = dbCreateInst( pcCV masterCv instName (0:0) "R0" )
          dbCreateProp(instId "r" "string" "pPar(\"r\")/pPar(\"ns\")")

          ;; create instTerms for the instance to connect it up
          dbCreateInstTerm(netP instId dbFindTermByName(masterCv "PLUS"))
          dbCreateInstTerm(netM instId dbFindTermByName(masterCv "MINUS"))

       ) ; for

       dbClose( masterCv )
       ;; Always return true
       t
     ) ; ** let **
  )
  ; not sure if below is really necessary
  dbSave(pcellId)
  dbClose( pcellId ) 
) ; ** let **