Sritha,
Presumably "the script" you are talking about is this one (it's hard to know since you started a separate thread with no link to the previous one).
Something like this:
procedure(CCFcreatePins(@key (cvId geGetEditCellView()) (pinWidth 0.5) (pinOrigin 0:0) (pinPitch 1.2:0) (pinLayer "Metal1")
(pinDirection "input") (busPin "pinname<1:10>"))
foreach(pinName dbProduceMemName(busPin)
; create the pin shape, then the net (if it doesn't already exist), and then create the pin
pinFig=dbCreateRect(cvId pinLayer list(pinOrigin xCoord(pinOrigin)+pinWidth:yCoord(pinOrigin)+pinWidth))
net=dbMakeNet(cvId pinName)
pin=dbCreatePin(net pinFig)
; make sure the terminal direction is what we want too
pin~>term~>direction=pinDirection
pinOrigin=xCoord(pinOrigin)+xCoord(pinPitch):yCoord(pinOrigin)+yCoord(pinPitch)
)
)
procedure(CCFcreatePinsDoneCB(w done pts)
when(done
CCFcreatePins(?cvId geGetEditCellView(w) ?pinOrigin car(pts))
)
)
procedure(CCFcreatePinsPrompt()
enterPoint(?prompts '("Enter location of first pin") ?doneProc "CCFcreatePinsDoneCB")
)
Call CCFcreatePinsPrompt() and it will then ask you to point at the start of the bus pin. I'll leave it to you to adapt to your needs.
Regards,
Andrew.