Changing spacing constraints when opening Allegro

Thank you Dave.

 I'm little busy for the next couple of days, but I will give it a shot once I get sometime.

 Appreciate your help! 

Hi Dave,

The code worked great!

I appreciate your help! 

Hi Dave,

After adding couple more constraints from the code you provided me I am considering making it so that the form will not pop up if the 3 criteria I specify exist on the board already.

Also, I would like to have the form close when I select one of the options after it successfully runs. 

I was wondering if you could guide me into the right direction again.  Please see below for the changes I made.

Thank you,

(defun my_form (t_open)

time = getCurrentTime()

time = parseString(time)

day = nth(1 time)

month = car(time)

month = upperCase(month)

year = nth(3 time)

date = strcat(" Date: " day " " month " " year)

CreateForm()

myform=axlFormCreate( (gensym) form_file nil 'Form_Action t)

axlFormDisplay(myform)

axlUIWPrint(myform date)

)

(defun CreateForm ()

drain()

form_file = "output-orig_form.form"

myform = outfile(form_file "w")

fprintf(myform "#Created by xml2bnf  perl utility\n")

fprintf(myform "#Coded by Venkata Ramanan/Santa Clara, CA\n\n")

fprintf(myform "FILE_TYPE=FORM_DEFN VERSION=2\n")

fprintf(myform "FORM AUTOGREYTEXT\n")

fprintf(myform "FIXED\n")

fprintf(myform "PORT 45 23\n")

fprintf(myform "HEADER \"Form Field Type Demo\"\n\n")

fprintf(myform "POPUP <ENUM>\"ITEM1\"\"0\",\"ITEM2\"\"1\",\"ITEM3\"\"2\",\"LAST ONE\"\"3\".\n\n")

fprintf(myform "TILE\n\n")

fprintf(myform "## Button Field in FORM ## \n")

fprintf(myform "FIELD Button1\n")

fprintf(myform "FLOC 8 13\n")

fprintf(myform "MENUBUTTON \"OK\" 11 3\n")

fprintf(myform "FGROUP \"TH to SMT Bottom Constraints\"\n")

fprintf(myform "ENDFIELD \n\n")

fprintf(myform "## Button Field in FORM ## \n")

fprintf(myform "FIELD Button2\n")

fprintf(myform "FLOC 24 13\n")

fprintf(myform "MENUBUTTON \"NO\" 11 3\n")

fprintf(myform "FGROUP \"TH to SMT Bottom Constraints\"\n")

fprintf(myform "ENDFIELD \n\n")

fprintf(myform "## Text Field in Form## \n")

fprintf(myform "TEXT \"Change TH to SMT Bottom Constraints to 0.050?\"\n")

fprintf(myform "FLOC 5 5\n")

fprintf(myform "TGROUP \"TH to SMT Bottom Constraints\"\n")

fprintf(myform "ENDTEXT\n\n")

fprintf(myform "ENDTILE\n\n")

fprintf(myform "ENDFORM\n\n")

close(myform)

)

(defun Form_Action (myform)

 let((t1 item index field cnt)

 (printf "field/value %L = %L (int %L\n)" myform->curField myform->curValue, myform->curValueInt )

(printf "doneState %L\n" myform->doneState )

case(myform->curField

("Button1"

println("OK pressed")

if(axlCNSSetSpacing(nil "ETCH/BOTTOM" 'thrupin_smdpin axlMKSConvert(50 "mils")) then println("Successful") else println("Failure"))

if(axlCNSSetSameNet(nil "ETCH/BOTTOM" 'thrupin_smdpin axlMKSConvert(50 "mils")) then println("Successful") else println("Failure"))

if(axlCNSSameNetModeSet('thrupin_smdpin 'on) then println("Successful") else println("Failure"))

)

("Button2"

println("NO pressed")

;(axlFormClose(myform))

)

)

unless(zerop(myform ->doneState), axlFormClose(myform))

)) 

Hi,

You seem to be getting in too deep before you understand how Skill and forms work. May try a few, simple examples first.

Anyway, just use  axlFormClose to close the form after any button push.

Just test your values before you open the form. ie. if( a && b && c then println("ok") else CreateForm() .......)

Good luck,

Dave 

Hi Dave,

Thank you again for the input.  I do feel like I'm getting too far ahead of myself, but every time something works it seems like it needs something else. :)

I looked through the doc folder in the install, but I can't seem to find anything about making skill from scratch.  All I really saw was the PDF with different commands.  Do you have a suggestion on what reading material I should work off of?