Copying symbols for creating padstacks.

Neither should work. I'm reasonably sure that you can't edit pads that way. I think you need to create a new padstack using axlDBCreatePadstack and the make_axlPadStackPad defstruct method.

axlPadstackEdit(nil nil) will tell you which attributes are editable.

Hi Dave, that was just a snippet leading up to using the above functions.

Regards, -Mike

---------------------------------------------------------------------------------------------------------------

procedure( copyPadStack()

  let((form padStackName newPadStackName ps drill_data newPad padList figureSize   )

form = ConnectivityForm

padStackName = axlFormGetField(form "padstack")

ps = axlLoadPadstack(padStackName)

newPadStackName = "Mike"

/*** Get Drill Data for padStack ***/

drill_data = make_axlPadStackDrill(

?fixed ps->fixed

?uvia   ps->uvia

?keepout   ps->keepout

?drillDiameter ps->drillDiamter

?figure ps->figure ;;symbol

?figureSize ps->figureSize

?offset ps->offset

?plating ps->plating ;;symbol

?drillChar ps->drillChar

?multiDrillData ps->multiDrillData

?holeType ps->holeType ;;symbol

?slotSize ps->slotSize

?holeTolerance ps->holeTolerance

?drillNonStandard ps->drillNonStandard ;;symbol

)

;count = 1

padList = nil

mikePad = nth(0 ps->pads)

foreach( pad ps->pads

;printf("Mike %d: pad->layer = %L\n" count pad->layer)

;printf("    Mike: figureSize = %L\n" pad->figureSize)

;printf("    Mike: padType = %L\n" pad->type)

;count++

figureSize = pad->figureSize

unless(figureSize figureSize = list(1,1)) ;;Don't send in nil values.

case(pad->type

("ANTIPAD" type = 'ANTIPAD)

("THERMAL" type = 'THERMAL)

("REGULAR" type = 'REGULAR)

(t type = nil)

);End type case.

case(pad->figureName

("CIRCLE" figure = 'CIRCLE)

(t figure = 'NULL)

)

;type = stringToSymbol(pad->type)  ;;Doesn't work. Don't know why. Using above case statement.

newPad = make_axlPadStackPad(

?layer cadr(parseString(pad->layer "/")) 

?type type  ;;Symbol

;?figure pad->figureName  ;;Symbol

?figure figure

?flash nil ;;String

?figureSize figureSize ;;Must adjust size to so that it matches the type.

?offset pad->offset

)

padList = cons(newPad, padList)

)

mikeDB = axlDBCreatePadStack(newPadStackName, drill_data, padList)

  );End let.

);End copyPadStack(). 

Hi Mike,

This one has got me stumped. I can't see why  the stringToSymbol method doesn't work.

Hopefully Frank can throw some light on this one. 

Thanks Dave, I appreciate you taking a peek at it.

-Mike 

makeSymbol converts a string to a symbol

But I believe all of the axlDBCreatePadstack options that specify a symbol will also take a string, so I would try removing that code and see if passing a string for pad layer type and figureName will work. The only restriction with a string is that it must be upper case.