1. 关于版图一些实用的快捷键
F3： 显示Option form F4： Full/Partial 选择切换
N： 改变snap model，n---diagonal, Shift+n---orthogonal, Ctrl+n---L90Xfirst
Ctrl+y： 当多个图形叠在一起时（点击左键默认是两个图形间切换），可以轮流选择重叠的图形
BackSpace： 当命令尚未完成时，可以撤销上一次（多次点击可撤销多次）鼠标的点击。如：画path时可撤销前面鼠标错误的点击，选择很多图形stretch，点了reference point发现有多选，可撤销点击，去掉多选图形后再stretch。
Right mouse：
a. 没有命令时重复上次命令；
b. move和Create instance时逆时针旋转，Shift＋Right mouse 轮流关于x/y轴对称； c. 画path时，L90Xfirst和L90Yfirst之间切换，Ctrl＋Right mouse Path自动换层（Path stitching）切换，Shift＋Right mouse换层时通孔旋转；
d. Reshape和split时，切换不同的高亮区域，以便下一步的操作。
2.使用reference window
一个cellview可以打开两个窗口，一个作为主窗口编辑，另外一个可以放小一点作为参考窗口（即reference window），有点像world view，不同的是主窗口的编辑不仅在参考窗口中可以看到，而且两个窗口中编辑是等效的（当然你的显示器越大，用参考窗口越好，^_^）。
可以用Window – Utilities – Copy Window打开一个参考窗口，也可以直接把一个cellview打开两次，如图
可以同时在两个窗口中编辑
3.关于Path stitching
①画path时可以从一层切换到另一层，并且自动打上对应的接触孔，这个功能叫path
stitching.
②在Change To Layer 栏里选择你要换的layer，也可以通过Control+right mouse 键来选择需要换的层。
如果Change To Layer栏里没有层可选，那是因为在technology file 中没有关于这层的contact(或者cdsVia的定义)定义，只有定义了之后才能使用path stitching功能。
下面是一个contacts定义的例子：
;******************************** ; DEVICES
;******************************** devices(
tcCreateCDSDeviceClass()
symContactDevice(
; (name viaLayer viaPurpose layer1 purpose1 layer2 purpose2
; w l (row column xPitch yPitch xBias yBias) encByLayer1 encByLayer2 legalRegion)
(ACT_M1 CON drawing ACT drawing M1 drawing
0.30 0.30 (1 1 0.60 0.60 center center) 0.14 0.15 _NA_)
(GP_M1 CON drawing GP drawing M1 drawing
0.30 0.30 (1 1 0.60 0.60 center center) 0.14 0.15 _NA_)
(M1_M2 V1 drawing M1 drawing M2 drawing
0.36 0.36 (1 1 0.71 0.71 center center) 0.12 0.12 _NA_)
(M2_M3 V2 drawing M2 drawing M3 drawing
0.36 0.36 (1 1 0.71 0.71 center center) 0.12 0.12 _NA_) ); end of symContactDevice
;;***** or you can define cdsViaDevice ************ ;cdsViaDevice(
;;( deviceName cutLayer cutPurpose layer1 purpose1 layer2 purpose2
;; row column origin stackedVias cutLayerW cutLayerL xCutSpacing yCutSpacing ;; layer1XEnc layer1YEnc layer2XEnc layer2YEnc layer1Dir layer2Dir ) ; ( CDSVIA1 V1 drawing M1 drawing M2 drawing
; 1 1 centerCenter _NA_ 0.36 0.36 0.35 0.35 0.12 0.12 0.12 0.12 \;
; ( CDSVIA2 V2 drawing M2 drawing M3 drawing
; 1 1 centerCenter _NA_ 0.36 0.36 0.35 0.35 0.12 0.12 0.12 0.12 \;
; ( CDSVIA3 V3 drawing M3 drawing M4 drawing
; 1 1 centerCenter _NA_ 0.36 0.36 0.35 0.35 0.12 0.12 0.12 0.12 \;
; ) ; end of cdsViaDevice ) ;devices
③根据path width的不同，工具会自动打上一个孔，或者是一组孔
④如果想改变孔的对齐方式，可以通过改变Contact Justification来调整
⑥如果定义了多个Contacts，Path Stitching时， a. 设置环境变量useDefaultVia 为nil，
envSetVal(\，
b. 然后换层时，如果定义了多种contact，会弹出一个选择框，可以选择你需要的孔
⑦通孔只出现一个边框时，可以点击Rotate 或者Shift and click right 来旋转通孔。
4.Placing Pin Arrays(bus pins)
你也许认为label就可以代替pin了，还用的着打pin吗？其实不然，virtuoso工具一些
连接关系都是通过pin来体现的，通过pin体现连接关系，在连线时（尤其时连线比较远，比较复杂时）可以通过打开Options->display->Display Controls->Nets，来显示复杂Net的连接。当然更实用的是在Layout-XL工具中可以对版图和电路进行实时对比（需要tech file的支持）。
当需要打bus pins的时候，可以一次打一组pins，bus pins的命名必须是Busname
的pin是顺序上升或者下降的。
5.在已存在的两个path交错的地方自动打孔
两层之间的互连，可以手动打孔，也可以用Create Contact 自动打孔，但是必须在两条path交错的地方，而且两层之间有孔的定义（见Path stitching中contact的定义），不能跨层打孔（如M1－M3之间），不能在斜线上自动打孔，两条path不受cell的层次的限制，只要是可见的。如图，选中Auto Contact, 通孔中心会自动移到两条path的中心线交点处，但要注意交点是否在格点上
6. 关于Tap的使用
Tap是用来快速捕捉任意一个图形的相关属性，捕捉到的信息会自动赋给将要生成的
Object上包括Layer信息，Net的名字，其它属性（如path的width，endtype等等）
a. 用Tap来快速选择entry Layer
选择Edit – Tap [t]，默认的是选择的Layer是边界最接近鼠标指针（或者边界与指针重合）的图形的Layer，如果两层完全重合，则有一层可能一直也选不中。
因此可以设置环境变量 layerTapCycle为 t or nil, 可以改变捕捉的方法 在CIW敲入命令（只对这个icfb窗口适用）： envSetVal(\
或者在根目录下的.cdsenv文件中加入一行，每次启动icfb就会调用这个环境变量 layout layerTapCycle boolean t
设成 nil 时（默认值）选择的Layer是边界最接近鼠标指针（或者边界与指针重合）的图形的Layer
设成 t 时，在重复的图形上连续点击，可以依次轮流的选择不同的Layer，直到选到你想要的为止。
b. 用Tap捕捉图形信息，并传给将要生成的图形上
将Tap Types设为All（net名不一样的话去掉Net，不过我们很少设置net name），点击图形后会捕捉到它的Layer信息，Net的名字，其它属性等，如下图的示例，不同的layer，width，endtype，Tap后再画path，path里的设置都和你tap的图形一样了
7. Reshape Objects
Reshape顾名思义就是改变图形的形状，但要注意几点：
1． Reshape Type设为rectangle时，rectangle的一角必须与原来的图形交错
2． Reshape Type设为line时， 第一点和最后一点必须在原来图形的边线上，另外Reshape path只能选择line，第一点必须在原来path的中线上 3． Reshape的图形在完成之前会高亮显示，点击右键会切换不同的高亮区域，确认是否是最终的图形形状
8. 关于部分选择及相关的操作
在stretch时可以选择一部分操作，但通常其他情况下只能选择全部，因为默认是full
select mode，stretch是自动切换到partial select mode时，其实按F4键就可以切换这两种模式，这种模式下可以stretch，delete等
9. 关于图形的对齐
我们经常会有一些图形需要对齐，例如一组横向摆放的pad，要求对齐且间隔相等，手动对齐比较麻烦，在Edit->Other->Align有对齐的命令，可以用来对齐两个或多个图形。对齐图形有 preselect和postselect 两种方式。
a. Postselect方式
把Selection Mod 设置为Set reference and select objects to be aligned.
点击Set New Reference，先选择一个图形的边界作为参考边，然后选择其他图形与这个参考边对齐。
b. Preselect方式
设置Selection Mod为Set reference to align preselected objects.
先选择未对齐的图形，然后点击Set New Reference and 在layout窗口选择一个对齐点，所有选择的图形就会对齐。
当然对齐还有其他的一些设置，但要注意这里的对齐操作是对一个整体而言(如一个instance，polygon等)，如果几个图形需要组合在一起，参与与其他单元的对齐，先将这几个图形make cell或者用attatch（而且被attatch的图形不能被选中），否则这几个图形将被拆开。
10. Yanking & Pasting图形（即复制-粘贴）
我们经常用copy命令来复制图形，但复制的都是一个整体（如一个instance，一条path等），Yank 命令可以复制（相当于切割）一部分图形到一个临时的buffer，而Paste命令把buffer中的图形复制到layout窗口中。
Yank & Paste与Copy的区别在于Yank的图形是chop object而来，Copy的图形是Full select object而来，Yank/Paste可以看作是 “少量信息切割” 的copy。需要注意的是Yank图形层次是可以控制的，部分选择的图形将被chop，Paste的图形是打平的（注意paste的图形的layer，如果有不需要的layer，设为invisible可以不复制这些层）；全部选择的图形依然保存层次化的结构。如图是Yank/Paste下个层次的图形的例子：
11.生成Multipart Paths
Multipart path是指一条path包含有多部分（≥2）与其相关的图形，Create Multipart Path命令是用来生成一条path并包含有其他相关的图形（relative object design ---ROD）信息，你可以用它来画一条简单的path，也可以一条有几部分组成的复杂multipart path， 例如：guard ring, transistor, bus, 或者 shielded path。
Multipart path同样可以进行stretch，chop，reshape等操作，并且对应的ROD图形会根据master path的变化自动重新画。
a. 画Multipart Paths的流程，如下图
b. 定义Master Path
对于master path的Choppable选项：
使master path和所有的subparts都choppable, 打开Choppable选项；
使master path不能choppable (但是subparts既可以choppable也可以不choppable), 关闭Choppable.
c. 添加Subpart，可以添加path，rectangle等
d. Subpath和Master Path的位置关系见下表 Separation Center Justification Zero Subpath centerline on master path centerline Left Justification Left edge of master path coincident with right edge of subpath
Table 10-2 Position of Offset Subpath in Relation to Master Path Right Justification Right edge of master path coincident with left edge of subpath Positive number Subpath centerline on left side of master path centerline Subpath centerline on right side of master path centerline Left edge of master path on right side of right edge of subpath Left edge of master path on left side of right edge of subpath Right edge of master path on left side of left edge of subpath Right edge of master path on right side of left edge of subpath Negative number
Table 10-3 Position of Subrectangles in Relation to Master Path Separation Center Justification Zero Center of width of subrectangles on master path centerline Center of width of subrectangles on left side of master path centerline Center of width of subrectangles on right side of master path centerline Left Justification Left edge of master path coincident with right edge of subrectangles Left edge of master path on right side of right edge of subrectangles Left edge of master path on left side of right edge of subrectangles Right Justification Right edge of master path coincident with left edge of subrectangles Right edge of master path on left side of left edge of subrectangles Right edge of master path on right side of left edge of subrectangles Positive number Negative number
e. 实例: 用Multipart path画Guard Ring
其中master path选择有源区Active层，而metal1和注入层（如PPlus）作为enclosure subpath，而接触孔CT设为subrectangles，metal1和CT孔设为choppable，具体方法这里不在详述，结果如下图，后面附有用Multipart path生成Bus和Tap的skill程序。
12. Search and replace的应用
查找和替换是个很有用的功能，可以快速查找一个图形对象，以及其属性，并且可以
批量替换。如图，你可以添加多个搜索条件，
在用 == 和 != 时，可以用通配符： * 可以替代任意数的任意字符 . 可以替代当前位置的任一字符 [ ] 可以替代一个范围的字符
13. 提高软件速度的一些环境变量的优化 Environment Variable Old New dotsOn displayStretchHandles t t nil nil Effect Dots are not displayed. Stretch handles are not displayed. Objects with one side of less than 6 pixels are not displayed. Instances not at the stop level with two sides of less than 6 pixels are displayed according to the filterSizeDrawingStyle setting. filterSize 3 6 filterSizeDrawingStyle gravityOn openToStopLevel originMarkersOn useTrueBBox outlined t nil t t Now used only for instances which are not empty at the display stop level. When set to empty, instances are not displayed. nil t nil nil Gravity is turned off. All data is loaded prior to rendering. Instance origin markers are not displayed. Displays only the instance master bounding box.
14.这里的skill程序是用来快速定义Multipart path的template，方便一些参数的修改，下面是用Multipart path生成Bus的skill程序
procedure(DefineBusMPPTemplate(BusNumber BusWidth BusSpace) let((CV BusLayer Tech SubListN SubPathList) CV = geGetEditRep() Tech = techGetTechFile(CV) if(Tech==nil then error(\ )
BusLayer = leGetEntryLayer() while(BusNumber>1 --BusNumber SubListN = list( ?layer BusLayer ?width BusWidth ?choppable t ?sep BusNumber*(BusWidth+BusSpace) ?justification \ ?beginOffset 0.000 ?endOffset 0.000 ) SubPathList = cons( SubListN SubPathList ) );while ;The template name is : BusMPP leDefineMPPTemplate( ?techId Tech ?name \ ?layer BusLayer ?width BusWidth ?choppable t ?endType \ ?beginExt 0.000 ?endExt 0.000 ?justification \ ?offset 0.000 ?offsetSubPath SubPathList ); );let );procedure
/**********Top procedure to create form*******************************/ procedure( CreateBus()
let((BusWidth BusSpace BusNumber BusNumberField BusWidthField BusSpaceField MyLabelField )
;;; create int field for BusNumber value. BusNumberField = hiCreateIntField( ?name 'BusNumberField ?prompt \ ?range '(1 1000) ;?value 3 ?defValue 5
;?callback \)
;;; create float field for BusWidth & BusSpace value. BusWidthField = hiCreateFloatField( ?name 'BusWidthField ?prompt \ ?range '(0.001 1000.0) ;?value 0.6 ?defValue 0.6
;?callback \)
BusSpaceField = hiCreateFloatField( ?name 'BusSpaceField ?prompt \ ?range '(0.001 1000.0) ;?value 0.6 ?defValue 0.6
;?callback \)
;;; create the label field
MyLabelField = hiCreateLabel( ?name 'MyLabelField
?labelText \ ;\ ?justification 'right ?enabled t ;?font \ ;?invisible t )
;;; create the form hiCreateAppForm(
?name 'CreateBusForm
?formTitle \
?callback \ hiGetCurrentForm()->BusWidthField->value hiGetCurrentForm()->BusSpaceField->value)\ ?fields list(
list(BusNumberField 20:5 180:30 120 )
list(BusWidthField 20:25 180:30 120 ) list(BusSpaceField 20:45 180:20 120 ) list(MyLabelField 40:80 180:25 ) )
?unmapAfterCB t ;?formType 'options
;?buttonLayout 'OKCancelDefLast ;?help 'g_help
) ; hiCreateAppForm
;hiDisplayForm( CreateBusForm ) );let
);procedure
;the current value diplayed in the form is the last value you input. procedure(DisplayCreateBusForm() if((boundp('CreateBusForm) == nil) CreateBus() ) hiDisplayForm( CreateBusForm ) )
hiSetBindKey(\
15.用Multipart path生成Tap的skill程序
procedure(DefineTapMPPTemplate()
let((EncSubPathL SubRectList EncSubPath_M1 EncSubPath_Imp EncSubPath_NW CT_N SubRectListN)
;define encSubPath list EncSubPath_M1 = list( ?layer M1LPP ?enclosure AAEncCT-M1EncCT ?choppable ChoppableM1 ?beginOffset M1BeginOffset ?endOffset M1EndOffset )
EncSubPath_Imp = list( ?layer ImpLPP ?enclosure -1*ImpEncAA ?choppable ChoppableImp ?beginOffset ImpBeginOffset ?endOffset ImpEndOffset )
EncSubPathL = cons( EncSubPath_M1 EncSubPathL ) EncSubPathL = cons( EncSubPath_Imp EncSubPathL )
when(TapType == \ EncSubPath_NW = list( ?layer NWLPP ?enclosure -1*NWEncAA ?choppable ChoppableNW ?beginOffset NWBeginOffset ?endOffset NWEndOffset )
EncSubPathL = cons( EncSubPath_NW EncSubPathL ) );when
;define subRect list CT_N = CT_Num while(CT_N > 0
SubRectListN = list( ?layer CTLPP ?width CTWidth ?length CTWidth ?choppable ChoppableCT ?sep -1*(AAEncCT+CT_N*CTWidth+(CT_N-1)*CTSpace) ?justification \ ?space CTSpace ?beginOffset CTBeginOffset ?endOffset CTEndOffset ?beginSegOffset 0.000 ?endSegOffset 0.000 ?gap CTGapType )
SubRectList = cons( SubRectListN SubRectList ) CT_N--
);end while
;The template name is : NTap/PTap leDefineMPPTemplate( ?techId Tech ?name TapName ?layer AALPP ?width CT_Num*CTWidth+(CT_Num-1)*CTSpace+2*AAEncCT ?choppable ChoppableAA ?endType \ ?beginExt 0.000 ?endExt 0.000 ?justification \ ?offset 0.000 ?encSubPath EncSubPathL ?subRect SubRectList ) ; end leDefineMPPTemplate
);end let );end procedure
;;;form & field callback procedure procedure( CreateTapFormCB()
let((TapName CTLPP AALPP M1LPP ImpLPP NWLPP CTWidth CTSpace AAEncCT ImpEncAA NWEncAA CTGapType
Choppable ChoppableAA ChoppableImp ChoppableNW ChoppableM1 ChoppableCT M1BeginOffset
M1EndOffset ImpBeginOffset ImpEndOffset NWBeginOffset NWEndOffset CTBeginOffset CTEndOffset )
TapName = CreateTapForm->TapNameField->value
CTLPP = parseString( car(last(CreateTapForm->CTLPPField->value)) \ AALPP = parseString( car(last(CreateTapForm->AALPPField->value)) \ M1LPP = parseString( car(last(CreateTapForm->M1LPPField->value)) \ ImpLPP = parseString( car(last(CreateTapForm->ImpLPPField->value)) \ ;NWLPP = parseString( car(last(CreateTapForm->NWLPPField->value)) \ CT_Num = CreateTapForm->CT_NumField->value CTWidth = CreateTapForm->CTWidthField->value CTSpace = CreateTapForm->CTSpaceField->value AAEncCT = CreateTapForm->AAEncCTField->value M1EncCT = CreateTapForm->M1EncCTField->value ImpEncAA = CreateTapForm->ImpEncAAField->value ;NWEncAA = CreateTapForm->NWEncAAField->value CTGapType = CreateTapForm->CTGapTypeField->value
case( CreateTapForm->ChoppableField->value (\
ChoppableAA=ChoppableImp=ChoppableNW=nil
ChoppableM1=ChoppableCT=t ) (\
ChoppableAA=ChoppableImp=ChoppableNW=ChoppableM1=ChoppableCT=t ) (\
ChoppableAA=ChoppableImp=ChoppableNW=ChoppableM1=ChoppableCT=nil ) );case
;;;a>=b ? a : b, used for chop Tap DRC check when M1EncCT > AAEncCT CTBeginOffset = CTEndOffset =
-1*((M1EncCT>=AAEncCT&&M1EncCT)||(M1EncCT if( CreateTapForm->RingPField->value == nil then M1BeginOffset = M1EndOffset = M1EncCT-AAEncCT ImpBeginOffset = ImpEndOffset = ImpEncAA when(TapType==\ NWLPP = parseString( car(last(CreateTapForm->NWLPPField->value)) \ NWEncAA = CreateTapForm->NWEncAAField->value NWBeginOffset = NWEndOffset = NWEncAA );when else M1BeginOffset = M1EncCT-AAEncCT M1EndOffset = AAEncCT-M1EncCT ImpBeginOffset = ImpEncAA ImpEndOffset = -1*ImpEncAA ;when(-CTBeginOffset when(-CTEndOffset NWLPP = parseString( car(last(CreateTapForm->NWLPPField->value)) \ NWEncAA = CreateTapForm->NWEncAAField->value NWBeginOffset = NWEncAA NWEndOffset = -1*NWEncAA );when );if DefineTapMPPTemplate() );let );procedure procedure(TapTypeFieldCB() TapType = CreateTapForm->TapTypeField->value CT_Num = CreateTapForm->CT_NumField->value if(CreateTapForm->RingPField->value == t then CreateTapForm->TapNameField->value = get_pname( concat(TapType \\ else CreateTapForm->TapNameField->value = get_pname( concat(TapType \ );if if(TapType == \ hiDeleteFields(CreateTapForm list('NWLPPField 'NWEncAAField) ) else hiAddFields(CreateTapForm list(list( NWLPPField 460:85 160:30 75 ) list( NWEncAAField 460:180 210:25 150 ) ) ) );if );end procedure --- TapTypeFieldCB procedure(RingPFieldCB() TapType = CreateTapForm->TapTypeField->value CT_Num = CreateTapForm->CT_NumField->value if( CreateTapForm->RingPField->value == nil then CreateTapForm->TapNameField->value = get_pname( concat(TapType \ else CreateTapForm->TapNameField->value = get_pname( concat(TapType \\ );if );end RingPFieldCB /********** procedure to create Guard ring form*******************************/ procedure( CreateTap() let((CT_Num InitLayerList AllLayerList SelectLayerList TapTypeField TapNameField CTLPPField AALPPField M1LPPField ImpLPPField CT_NumField CTWidthField CTSpaceField AAEncCTField M1EncCTField ImpEncAAField ChoppableField CTGapTypeField RingPField MyLabelField ;NWEncAAField NWLPPField ) ;init the SelectLayerList list or all layer in the tech file will be displayed. InitLayerList = list( list(\ list(\list(\ list(\list(\ list(\list(\ list(\list(\ list(\ ) AllLayerList = leGetValidLayerList(Tech) SelectLayerList = setof(ALayer InitLayerList member(ALayer AllLayerList) ) when( length(SelectLayerList) != 6 SelectLayerList = AllLayerList ) ;;; create Radio field for TapType value. TapTypeField = hiCreateRadioField( ?name 'TapTypeField ?prompt \ ?choices list( \ ?value \ ?defValue \ ?callback '( \) ;;; create String field for TapName value. TapNameField = hiCreateStringField( ?name 'TapNameField ?prompt \ ?value \ ?defValue \ ;?callback \ ?editable t ) ;;; create Layer cyclic field for CTLPP, AALPP, M1LPP, ImpLPP, NWLPP value. CTLPPField = hiCreateLayerCyclicField( Tech \ ;t_callback \ SelectLayerList nil 'CTLPPField ) AALPPField = hiCreateLayerCyclicField( Tech \ \ SelectLayerList nil 'AALPPField ) M1LPPField = hiCreateLayerCyclicField( Tech \ \ SelectLayerList nil 'M1LPPField ) ImpLPPField = hiCreateLayerCyclicField( Tech \ \ SelectLayerList nil 'ImpLPPField ) NWLPPField = hiCreateLayerCyclicField( Tech \ \ SelectLayerList nil 'NWLPPField ) ;;; create int field for tap width--CT_Num value. CT_NumField = hiCreateIntField( ?name 'CT_NumField ?prompt \ ?range '(1 1000) ?value 1 ?defValue 2 ?callback \) ;;; create float field for CTWidth, CTSpace, AAEncCT, M1EncCT, ImpEncAA, NWEncAA value. CTWidthField = hiCreateFloatField( ?name 'CTWidthField ?prompt \ ?range '(0.001 1000.0) ?value 0.4 ?defValue 0.3 ;?callback \) CTSpaceField = hiCreateFloatField( ?name 'CTSpaceField ?prompt \ ?range '(0.001 1000.0) ?value 0.4 ?defValue 0.3 ;?callback \) AAEncCTField = hiCreateFloatField( ?name 'AAEncCTField ?prompt \ ?range '(0.001 1000.0) ?value 0.15 ?defValue 0.15 ;?callback \) M1EncCTField = hiCreateFloatField( ?name 'M1EncCTField ?prompt \ ?range '(0.001 1000.0) ?value 0.2 ?defValue 0.15 ;?callback \) ImpEncAAField = hiCreateFloatField( ?name 'ImpEncAAField ?prompt \ ?range '(0.001 1000.0) ?value 0.25 ?defValue 0.04 ;?callback \) NWEncAAField = hiCreateFloatField( ?name 'NWEncAAField ?prompt \ ?range '(0.001 1000.0) ?value 0.2 ?defValue 0.15 ;?callback \) ;;; create Cyclic field for Choppable, CTGapType value. ChoppableField = hiCreateCyclicField( ?name 'ChoppableField ?prompt \ ?choices list(\ ?value \ ?defValue \ ;?callback \) CTGapTypeField = hiCreateCyclicField( ?name 'CTGapTypeField ?prompt \ ?choices list(\ ?value \ ?defValue \ ;?callback \) ;;; create Boolean field for Ring Tap subpath offset . RingPField = hiCreateBooleanButton( ?name 'RingPField ?buttonText \ ?value nil ?defValue t ?buttonLocation 'right ?callback \) ;;; create the label field MyLabelField = hiCreateLabel( ?name 'MyLabelField ?labelText \ ?justification 'right ?enabled nil ;?font \ ;?invisible t ) LayerSelectLabelField = hiCreateLabel( ?name 'LayerSelectLabelField ?labelText \ ?justification 'left ?enabled nil ;?invisible t ) DesingRuleLabelField = hiCreateLabel( ?name 'DesingRuleLabelField ?labelText \ ?justification 'left ?enabled nil ;?invisible t ) ;;; create the form CreateTapForm = hiCreateAppForm( ?name 'CreateTapForm ?formTitle \Create Tap with Multipart Path\ ?callback \ ?fields list( list( TapTypeField 20:5 360:25 160 ) list( TapNameField 20:30 300:25 140 ) list( LayerSelectLabelField 20:65 360:20 ) list( M1LPPField 20:85 160:30 75 ) list( AALPPField 240:85 160:30 75 ) list( NWLPPField 460:85 160:30 75 ) list( CTLPPField 20:120 160:30 75 ) list( ImpLPPField 240:120 160:30 75 ) list( DesingRuleLabelField 20:165 360:20 ) list( CTWidthField 20:180 160:25 100 ) list( CTSpaceField 20:210 160:25 100 ) list( CT_NumField 20:240 210:25 160 ) list( AAEncCTField 240:180 210:25 150 ) list( M1EncCTField 240:210 210:25 150 ) list( ImpEncAAField 240:240 210:25 150 ) list( NWEncAAField 460:180 210:25 150 ) list( ChoppableField 20:280 210:25 75 ) list( CTGapTypeField 240:280 220:25 120 ) list( RingPField 470:280 120:25 90 ) list( MyLabelField 460:320 220:20 ) ) ;?buttonLayout 'OKCancelDefLast ?unmapAfterCB t ;?formType? 'options ;?help \ ) ; hiCreateAppForm ;hiDisplayForm( CreateTapForm ) );let );procedure ;the current value diplayed in the form is the last value you input. procedure(DisplayCreateTapForm() if(boundp('CreateTapForm)==nil || CreateTapForm==nil then CreateTap() ) hiDisplayForm(CreateTapForm) ) ;;; init the techfile then set the binkkey. Tech = techGetTechFile(geGetEditRep()) if(boundp('Tech)==nil || Tech==nil then error(\else hiSetBindKey(\);if