SKILL to Create 'Allegro Design Entry CIS' symbols and 'Allegro PCB Editor' footprints

Here is some very basic example code. You need to be in the symbol editor to create parts. Just open a new DRA.

Note that this code requires units to be set to mils for the benefit of US readers. However, I don't encourage developing libraries in units other than mm.

You will need to substitute the padname "255C" with one from your library to test the code.

Regards,

Dave

defun( exampleSymbol ()
 let((layer, placeBound, padName, txtOrient, txtLoc)
 ; Assembly top outline:
 layer = "PACKAGE GEOMETRY/ASSEMBLY_TOP"
 axlDBCreateRectangle(list(-100:-200, 100:200), nil, layer)

 ; Place Bound Top:
 layer = "PACKAGE GEOMETRY/PLACE_BOUND_TOP"
 placeBound = car(axlDBCreateRectangle(list(-100:-200, 100:200), t, layer))
 when(placeBound, axlDBAddProp(placeBound, list("PACKAGE_HEIGHT_MAX", 40)))
 
 ;Silkscreen outline
 layer = "PACKAGE GEOMETRY/SILKSCREEN_TOP"
 axlDBCreateLine(list(-110:-210, -110:210, 110:210, 110:-210, -110:-210), 8.0, layer)

 ; Pins:
 padName = "255C"; ********* Substitute your own padstackname here if testing this code ************
 when(axlLoadPadstack(padName)
  example_makePin(padName, 0:-150, "1", ?txtBlk "1")
  example_makePin(padName, 0:150, "2", ?txtBlk "1")
 )

 ;Silkscreen designator
 layer = "REF DES/SILKSCREEN_TOP" 
 txtOrient = make_axlTextOrientation(?textBlock "2", ?justify "center")
 axlDBCreateText("XXXXX", 0:250, txtOrient, layer)
 
 ;Assembly reference designator
 layer = "REF DES/SILKSCREEN_TOP" 
 txtOrient = make_axlTextOrientation(?textBlock "2", ?justify "center")
 axlDBCreateText("XXXXX", 0:250, txtOrient, layer)

 layer = "REF DES/ASSEMBLY_TOP"
 txtOrient = make_axlTextOrientation(?textBlock "1", ?justify "center")
 txtLoc = 0.0:axlGetParam("paramTextBlock:1") ->height / -2.0
 axlDBCreateText("XXXXX", txtLoc, txtOrient, layer)
))

defun( example_makePin (padStackName, loc, pinNumber @key (txtBlk "1"))
 let((txtO, txtOffset, txtid)
 txtOffset = 0.0:axlGetParam(strcat("paramTextBlock:", txtBlk)) ->height / -2.0
 txtO = make_axlTextOrientation(?textBlock txtBlk, ?justify "center")
 txtid = make_axlPinText(?number pinNumber,?offset txtOffset, ?text txtO)
 axlDBCreatePin(padStackName, loc, txtid)
))

Here is some very basic example code. You need to be in the symbol editor to create parts. Just open a new DRA.

Note that this code requires units to be set to mils for the benefit of US readers. However, I don't encourage developing libraries in units other than mm.

You will need to substitute the padname "255C" with one from your library to test the code.

Regards,

Dave

defun( exampleSymbol ()
 let((layer, placeBound, padName, txtOrient, txtLoc)
 ; Assembly top outline:
 layer = "PACKAGE GEOMETRY/ASSEMBLY_TOP"
 axlDBCreateRectangle(list(-100:-200, 100:200), nil, layer)

 ; Place Bound Top:
 layer = "PACKAGE GEOMETRY/PLACE_BOUND_TOP"
 placeBound = car(axlDBCreateRectangle(list(-100:-200, 100:200), t, layer))
 when(placeBound, axlDBAddProp(placeBound, list("PACKAGE_HEIGHT_MAX", 40)))
 
 ;Silkscreen outline
 layer = "PACKAGE GEOMETRY/SILKSCREEN_TOP"
 axlDBCreateLine(list(-110:-210, -110:210, 110:210, 110:-210, -110:-210), 8.0, layer)

 ; Pins:
 padName = "255C"; ********* Substitute your own padstackname here if testing this code ************
 when(axlLoadPadstack(padName)
  example_makePin(padName, 0:-150, "1", ?txtBlk "1")
  example_makePin(padName, 0:150, "2", ?txtBlk "1")
 )

 ;Silkscreen designator
 layer = "REF DES/SILKSCREEN_TOP" 
 txtOrient = make_axlTextOrientation(?textBlock "2", ?justify "center")
 axlDBCreateText("XXXXX", 0:250, txtOrient, layer)
 
 ;Assembly reference designator
 layer = "REF DES/SILKSCREEN_TOP" 
 txtOrient = make_axlTextOrientation(?textBlock "2", ?justify "center")
 axlDBCreateText("XXXXX", 0:250, txtOrient, layer)

 layer = "REF DES/ASSEMBLY_TOP"
 txtOrient = make_axlTextOrientation(?textBlock "1", ?justify "center")
 txtLoc = 0.0:axlGetParam("paramTextBlock:1") ->height / -2.0
 axlDBCreateText("XXXXX", txtLoc, txtOrient, layer)
))

defun( example_makePin (padStackName, loc, pinNumber @key (txtBlk "1"))
 let((txtO, txtOffset, txtid)
 txtOffset = 0.0:axlGetParam(strcat("paramTextBlock:", txtBlk)) ->height / -2.0
 txtO = make_axlTextOrientation(?textBlock txtBlk, ?justify "center")
 txtid = make_axlPinText(?number pinNumber,?offset txtOffset, ?text txtO)
 axlDBCreatePin(padStackName, loc, txtid)
))