skill编写的cadence打label增强程序

   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;;;;;;;;;;;;;;;;;;;;;;; Create Multiple Labels ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; /*===================================================================================
   Important Notice:
   NA. =====================================================================================
   How to Use:
   1.Load file "spHiCreateMultiLabel.il"
   2.Enter interactive procedure name "spHiCreateMultiLabel()" in CIW.
   3.Select correct layer in your LSW.
   4.An option form will be displayed. If not , press "F3".
   4.Fill data in those fields based on your requirment.
   6.Click on your layout window to determine the origin of your labels.
   =====================================================================================
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   Author:Spark Su
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Revision History:
   1.0 22-Oct-2006
   Initial
   2.0 04-Dec-2006
   1. Delete TextLayer filed. Layer should be selected in LSW.
   2. Change local variable names.
   3.0 09-May-2008
   1. Add interactive procedure spHiCreateMultiLabel()
   2. Reduce global variables.
   =====================================================================================
   Global User Defined Procedures in This Script:
   spHiCreateMultiLabel()
   spHiCreateMultiLabelPtsDone()
   -------------------------------------------------------------------------------------
   Invoked Shared Global User Defined Procedures:
   NA.
   -------------------------------------------------------------------------------------
   Global Variables:
   spHiCreateMultiLabelOptionForm
   =====================================================================================
   End of readme.
   ===================================================================================*/ procedure(spHiCreateMultiLabel()
   ;--------------------------------------------------------------------------------
   if(!boundp('spHiCreateMultiLabelOptionForm) then
   hiCreateOptionsForm(
   'spHiCreateMultiLabelOptionForm
   "Create Label"
   list(
   hiCreateStringField(
   ?name 'spFieldTextMain
   ?prompt "Main Text"
   )
   hiCreateIntField(
   ?name 'spFieldNumStart
   ?prompt "From"
   ?value nil
   ?defValue 0
   ?range '(0 32767)
   )
   hiCreateIntField(
   ?name 'spFieldNumEnd
   ?prompt "To"
   ?value nil
   ?defValue 0
   ?range '(0 32767)
   )
   hiCreateIntField(
   ?name 'spFieldNumStep
   ?prompt "Step"
   ?value nil
   ?defValue 1
   ?range '(-1024 1024)
   )
   hiCreateFloatField(
   ?name 'spFieldFontSize
   ?prompt "FontSize"
   ?value nil
   ?defValue 0.5
   ?range '(0 255)
   )
   hiCreateCyclicField(
   ?name 'spFieldFontName
   ?prompt "FontName"
   ?defValue "stick"
   ?choices list("stick" "roman")
   )
   hiCreateCyclicField(
   ?name 'spFieldDirection
   ?prompt "Direction"
   ?defValue "Vertical"
   ?choices list("Vertical" "Horizontal")
   )
   hiCreateCyclicField(
   ?name 'Modeselect
   ?prompt "Mode"
   ?defValue "Auto"
   ?choices list("Auto" "Manual")
   )
   hiCreateFloatField(
   ?name 'spFieldPitch
   ?prompt "Pitch"
   ?value nil
   ?range '(-1024 1024)
   )
   hiCreateCyclicField(
   ?name 'spFieldJustification
   ?prompt "Justification"
   ?defValue "centerCenter"
   ?choices list("lowerLeft" "centerLeft" "upperLeft" "lowerCenter" "centerCenter"
   "upperCenter" "lowerRight" "centerRight" "upperRight" )
   )
   hiCreateCyclicField(
   ?name 'spFieldJoint
   ?prompt "Joint"
   ?choices list("< >" "[ ]")
   )
   hiCreateCyclicField(
   ?name 'spFieldRotation
   ?prompt "Rotation"
   ?choices list("0" "90" "180" "270")
   )
   )
   nil
   )
   );end if
   ;-------------------------------------------------------------------------------- ;--------------------------------------------------------------------------------
   ;enterPoint
   if(enterPoint(
   ?prompts list( "Click to enter the first label location")
   ?doneProc "spHiCreateMultiLabelPtsDone"
   ?form spHiCreateMultiLabelOptionForm)
   then t
   else nil
   );end if
   );end procedure
   ;--------------------------------------------------------------------------------
   ;--------------------------------------------------------------------------------
   procedure(spHiCreateMultiLabelPtsDone(w done pts)
   let(( cv TextMain numstart numend loopstep direction
   Pitch FontSize FontName Justification Rotation
   LswEntryLayer loopstart loopend Joint x y
   JointLeft JointRight TextTmp xPitch yPitch
   ptsLabel Text) if(done then
   cv=deGetCellView()
   TextMain=spHiCreateMultiLabelOptionForm->spFieldTextMain->value
   numstart=spHiCreateMultiLabelOptionForm->spFieldNumStart->value
   numend=spHiCreateMultiLabelOptionForm->spFieldNumEnd->value
   loopstep=spHiCreateMultiLabelOptionForm->spFieldNumStep->value
   direction=spHiCreateMultiLabelOptionForm->spFieldDirection->value
   Mode=spHiCreateMultiLabelOptionForm->Modeselect->value
   Pitch=spHiCreateMultiLabelOptionForm->spFieldPitch->value
   FontSize=spHiCreateMultiLabelOptionForm->spFieldFontSize->value
   FontName=spHiCreateMultiLabelOptionForm->spFieldFontName->value
   Justification=spHiCreateMultiLabelOptionForm->spFieldJustification->value
   Rotation=spHiCreateMultiLabelOptionForm->spFieldRotation->value LswEntryLayer=leGetEntryLayer() loopstart= numstart
   loopend= (numend-numstart)/loopstep
   Joint=spHiCreateMultiLabelOptionForm->spFieldJoint->value
   x=car(car(pts))
   y=car(cdr(car(pts))) JointLeft=""
   JointRight=""
   if( Joint=="< >"
   then
   JointLeft="<"
   JointRight=">"
   else
   JointLeft= "["
   JointRight= "]"
   );end if if( Mode=="Auto"
   then
   if( direction=="Vertical"
   then
   xPitch=0
   yPitch=Pitch
   else
   xPitch=Pitch
   yPitch=0
   );end if for( i 0 loopend
   sprintf(TextTmp "%d" i*loopstep+loopstart)
   Text=strcat( TextMain JointLeft TextTmp JointRight )
   ptsLabel=list(x y)
   dbCreateLabel( cv LswEntryLayer ptsLabel Text Justification Rotation FontName FontSize)
   x=x+xPitch
   y=y+yPitch
   );end for
   else
   for( i 0 loopend
   sprintf(TextTmp "%d" i*loopstep+loopstart)
   Text=strcat( TextMain JointLeft TextTmp JointRight )
   ptsLabel=list(x y)
   dbCreateLabel( cv LswEntryLayer ptsLabel Text Justification Rotation FontName FontSize)
   xy=enterPoint(
   ;?doneProc "PtDone"
   )
   x=xCoord(xy)
   y=yCoord(xy)
   );end for
   );end if
   );end if
   );end let
   );end procedure
   hiSetBindKey("Layout" "Ctrl<Key>l" "spHiCreateMultiLabel()")