EDA365电子工程师网

标题: 求大大指点！代码可以在软件开启后运行一次，第二次指令就无法打开！！ [打印本页]
作者: ghfghyb    时间: 2013-6-14 15:57
标题: 求大大指点！代码可以在软件开启后运行一次，第二次指令就无法打开！！
现代码已完成所有需要的功能，但是有一个BUG一直无法解决，就是在确后数据后执行OK（进入第498行的函数时）
，第一次可以正常使用，也可以正常输出，但是在软件完全关闭后，再用"zz1"，指令时，就无法第二次打开！！
请大大们指点一下！！！
万分感谢！！
为方便大大们不必要的扣分指导，原码复制如下！
  1. axlCmdRegister("zz1" 'stack_layer)
  2. (defun stack_layer ()
  3.                         time = getCurrentTime()
  4.                         time = parseString(time)
  5.                         day = nth(1 time)
  6.                         month = car(time)
  7.                         month = upperCase(month)
  8.                         year = nth(3 time)
  9.                         date = strcat(" Date: " day " " month " " year)
  10.                         Set_stack_layer()
  11.                         choose_row_form = axlFormCreate( (gensym) Set_stack_form_file nil 'Set_stack_layer_Action t)
  12.                         axlFormDisplay(choose_row_form)
  13.                         axlUIWPrint(choose_row_form date)
  14.                         when(isFile(Set_stack_form_file)
  15.                                 deleteFile(Set_stack_form_file)
  16.                         );when
  17.                        
  18. ;                        Create_stack_layer()
  19. ;                        Create_stack_layer_form = axlFormCreate( (gensym) Create_form_file nil 'Create_stack_layer_Action t)
  20. ;                        axlFormDisplay(Create_stack_layer_form)
  21. ;                        axlUIWPrint(Create_stack_layer_form date)
  22.        
  23.                 )


  26. (defun Set_stack_layer ()
  27.         drain()
  28.         Set_stack_form_file = "choose_row_form.form"
  29.         choose_row_form = outfile(Set_stack_form_file "w")
  30.         fprintf(choose_row_form "#Created by xml2bnf  perl utility\n")
  31.         fprintf(choose_row_form "#Coded by Venkata Ramanan/Santa Clara, CA\n\n")
  32.         fprintf(choose_row_form "FILE_TYPE=FORM_DEFN VERSION=2\n")
  33.         fprintf(choose_row_form "FORM AUTOGREYTEXT\n")
  34.         fprintf(choose_row_form "FIXED\n")
  35.         fprintf(choose_row_form "PORT 40 30\n")
  36.         fprintf(choose_row_form "HEADER \"Form Field Type Demo\"\n\n")
  37.         fprintf(choose_row_form "POPUP <ENUM>\"ITEM1\"\"0\",\"ITEM2\"\"1\",\"ITEM3\"\"2\",\"LAST ONE\"\"3\".\n\n")
  38.         fprintf(choose_row_form "POPUP <Row_Numer_List>\"\"\"0\",\"1\"\"1\",\"2\"\"2\",\"3\"\"3\",\"4\"\"4\",\"5\"\"5\",\"6\"\"6\",\"7\"\"7\",\"8\"\"8\",\"9\"\"9\",\"10\"\"10\".\n\n")
  39.         fprintf(choose_row_form "TILE\n\n")
  40.        
  41.         fprintf(choose_row_form "## ENUM Field in Form## \n")
  42.         fprintf(choose_row_form "FIELD Row_Numer\n")
  43.         fprintf(choose_row_form "FLOC 28 1\n")
  44.         fprintf(choose_row_form "STRFILLIN 2 5\n")
  45.         fprintf(choose_row_form "FGROUP \"Form1\"\n")
  46.         fprintf(choose_row_form "POP \"Row_Numer_List\"\n")
  47.         fprintf(choose_row_form "OPTIONS multiselect prettyprint\n")
  48.         fprintf(choose_row_form "ENDFIELD\n\n")

  50.         fprintf(choose_row_form "## Text Field in Form## \n")
  51.         fprintf(choose_row_form "TEXT \"Choose the row of impedance  :\"\n")
  52.         fprintf(choose_row_form "FLOC 2 1\n")
  53.         fprintf(choose_row_form "TGROUP \"Form1\"\n")
  54.         fprintf(choose_row_form "ENDTEXT\n\n")
  55.        
  56.         fprintf(choose_row_form "ENDTILE\n\n")
  57.         fprintf(choose_row_form "ENDFORM\n\n")

  59.         close(choose_row_form)
  60. )


  63. (defun Set_stack_layer_Action (choose_row_form)
  64. (let (t1 item index field cnt)(printf "field/value %L = %L (int %L\n)"
  65. choose_row_form->curField choose_row_form->curValue, choose_row_form->curValueInt )
  66. (printf "doneState %L\n" choose_row_form->doneState )
  67. case(choose_row_form->curField
  68.                 ("Row_Numer"
  69.                         Row_Numer = atoi(choose_row_form->curValue)
  70. ;                        printf("Row_Numer = %d \n" Row_Numer)
  71. ;                        when(isFile(Create_form_file)
  72. ;                                deleteFile(Create_form_file)
  73. ;                        );when
  74.                         Create_stack_layer()
  75.                         Create_stack_layer_form = axlFormCreate( (gensym) Create_form_file nil 'Create_stack_layer_Action t)
  76.                         axlFormDisplay(Create_stack_layer_form)
  77.                         axlUIWPrint(Create_stack_layer_form date)
  78.                         printf("Row_Numer = %d ***\n" Row_Numer)
  79.                        
  80.                         declare(NAMELayer[Row_Numer])
  81.                         arrayp(NAMELayer)
  82.                         declare(SWline[Row_Numer])
  83.                         arrayp(SWline)
  84.                         declare(DWline[Row_Numer])
  85.                         arrayp(DWline)
  86.                         declare(DSline[Row_Numer])
  87.                         arrayp(DSline)
  88.                        
  89.                 declare(zzSW[Row_Numer])
  90.                 arrayp(zzSW)
  91.                 declare(zzDW[Row_Numer])
  92.                 arrayp(zzDW)
  93.                 declare(zzDS[Row_Numer])
  94.                 arrayp(zzDS)



  98.                        
  99.                        
  100.                 for(lay 0 Row_Numer-1
  101. ;                        wSingle[lay] = nth(lay l_layer)
  102. ;                        wSingle[lay] = sprintf(nil "wS%d" lay)
  103.                         NAME = nLayer[lay]
  104.                         SW = wSingle[lay]
  105.                         DW = wDiff[lay]
  106.                         DS = wSpace[lay]
  107.                         NAMELayer[lay] = sprintf(nil "zNAME%d" lay)
  108.                         NAMEL = NAMELayer[lay]                       
  109.                         SWline[lay] = sprintf(nil "zSW%d" lay)
  110.                         SWL = SWline[lay]
  111.                         DWline[lay] = sprintf(nil "zDW%d" lay)
  112.                         DWL = DWline[lay]
  113.                         DSline[lay] = sprintf(nil "zDS%d" lay)
  114.                         SDL = DSline[lay]
  115.                         zzSW[lay] = "0"
  116.                         zzDW[lay] = "0"
  117.                         zzDS[lay] = "0"
  118.                        
  119.                        
  120.                         if( boundp('SWL)!=nil then
  121.                         NAMEL = "nil"
  122.                         SWL = "nil"
  123.                         DWL = "nil"
  124.                         SDL = "nil"
  125.                         )
  126.                         printf("++++SWline++++%s++++++++\n"  SWline[lay])
  127.                         axlFormSetField(Create_stack_layer_form NAME NAMEL)
  128.                         axlFormSetField(Create_stack_layer_form SW SWL)
  129.                         axlFormSetField(Create_stack_layer_form DW DWL)
  130.                         axlFormSetField(Create_stack_layer_form DS SDL)
  131. ;                        printf("----%d------\n" lay)
  132.                        
  133. ;                        printf("***SW**%s**xxs**%s**\n" SW  xxs)
  134.                        
  135.                         )

  137.                
  138.                 )
  139.         )
  140.                 )

  142.         if((nequal choose_row_form->doneState 0)
  143.         axlFormClose(choose_row_form))
  144. )


  147. (defun Create_stack_layer ()
  148.         printf("**************\n")
  149.         Create_form_file = "Create_stack_layer_form.form"
  150.         Create_stack_layer_form = outfile(Create_form_file "w")
  151.         if(car(axlDBGetDesignUnits())=="mils" then
  152.                         ZUnit = "mil"
  153.                         else ZUnit ="mm"
  154.                 );if
  155.        
  156.         fprintf(Create_stack_layer_form "#Created by xml2bnf  perl utility\n")
  157.         fprintf(Create_stack_layer_form "#Coded by Venkata Ramanan/Santa Clara, CA\n\n")
  158.         fprintf(Create_stack_layer_form "FILE_TYPE=FORM_DEFN VERSION=2\n")
  159.         fprintf(Create_stack_layer_form "FORM AUTOGREYTEXT\n")
  160.         fprintf(Create_stack_layer_form "FIXED\n")
  161.         fprintf(Create_stack_layer_form "PORT 80 30\n")
  162.         fprintf(Create_stack_layer_form "HEADER \"Form Field Type Demo\"\n\n")
  163.         fprintf(Create_stack_layer_form "TILE\n\n")
  164.         fprintf(Create_stack_layer_form "## ENUM Field in Form## \n")

  166.         fprintf(Create_stack_layer_form "## Text Field in Form## \n")
  167.         fprintf(Create_stack_layer_form "TEXT \"LAYER\"\n")
  168.         fprintf(Create_stack_layer_form "FLOC 2 1\n")
  169.         fprintf(Create_stack_layer_form "TGROUP \"Form1\"\n")
  170.         fprintf(Create_stack_layer_form "ENDTEXT\n\n")

  172.         fprintf(Create_stack_layer_form "## Text Field in Form## \n")
  173.         fprintf(Create_stack_layer_form "TEXT \"50 ohm\"\n")
  174.         fprintf(Create_stack_layer_form "FLOC 19 1\n")
  175.         fprintf(Create_stack_layer_form "TGROUP \"Form1\"\n")
  176.         fprintf(Create_stack_layer_form "ENDTEXT\n\n")

  178.         fprintf(Create_stack_layer_form "## Text Field in Form## \n")
  179.         fprintf(Create_stack_layer_form "TEXT \"100 ohm\"\n")
  180.         fprintf(Create_stack_layer_form "FLOC 31 1\n")
  181.         fprintf(Create_stack_layer_form "TGROUP \"Form1\"\n")
  182.         fprintf(Create_stack_layer_form "ENDTEXT\n\n")

  184.         fprintf(Create_stack_layer_form "## Text Field in Form## \n")
  185.         fprintf(Create_stack_layer_form "TEXT \"Reference layer\"\n")
  186.         fprintf(Create_stack_layer_form "FLOC 48 1\n")
  187.         fprintf(Create_stack_layer_form "TGROUP \"Form1\"\n")
  188.         fprintf(Create_stack_layer_form "ENDTEXT\n\n")
  189.         n = 0
  190.        
  191.                 p = axlGetParam("paramLayerGroup:ETCH")
  192.                 l_layer = p->groupMembers
  193.                 nblayer = p->nChildren
  194.                 declare(nLayer[Row_Numer])
  195.                 arrayp(nLayer)
  196.                 declare(wSingle[Row_Numer])
  197.                 arrayp(wSingle)
  198.                 declare(wDiff[Row_Numer])
  199.                 arrayp(wDiff)
  200.                 declare(wSpace[Row_Numer])
  201.                 arrayp(wSpace)
  202.        
  203.         for(lay 0 Row_Numer-1
  204.                         nLayer[lay] = sprintf(nil "NAME%d" lay)
  205.                         NAME = nLayer[lay]
  206.                        
  207.                         wSingle[lay] = sprintf(nil "SW%d" lay)
  208.                         SW = wSingle[lay]
  209.                        
  210.                         wDiff[lay] = sprintf(nil "DW%d" lay)
  211.                         DW = wDiff[lay]
  212.                        
  213.                         wSpace[lay] = sprintf(nil "DS%d" lay)
  214.                         DS = wSpace[lay]
  215.        
  216.                 i = lay*2+4
  217. ;                printf("i = %d\n" i)
  218.                 fprintf(Create_stack_layer_form "## Input Field in Form## \n")
  219.                 fprintf(Create_stack_layer_form "FIELD %s\n" NAME)
  220.                 fprintf(Create_stack_layer_form "FLOC 2 %d\n" i)
  221.                 fprintf(Create_stack_layer_form "FSIZE 8 2\n")
  222.                 fprintf(Create_stack_layer_form "STRFILLIN 14 70\n")
  223.                 fprintf(Create_stack_layer_form "FGROUP \"Form1\"\n")
  224.                 fprintf(Create_stack_layer_form "VALUE \"Input layer\"\n")
  225.                 fprintf(Create_stack_layer_form "ENDFIELD \n\n\n")

  227.                 fprintf(Create_stack_layer_form "## Input Field in Form## \n")
  228.                 fprintf(Create_stack_layer_form "FIELD %s\n" SW)
  229.                 fprintf(Create_stack_layer_form "FLOC 19 %d\n" i)
  230.                 fprintf(Create_stack_layer_form "FSIZE 5 2\n")
  231.                 fprintf(Create_stack_layer_form "STRFILLIN 4 70\n")
  232.                 fprintf(Create_stack_layer_form "FGROUP \"Form1\"\n")
  233.                 fprintf(Create_stack_layer_form "VALUE \"20\"\n")
  234.                 fprintf(Create_stack_layer_form "ENDFIELD \n\n\n")

  236.                 fprintf(Create_stack_layer_form "## Text Field in Form## \n")
  237.                 fprintf(Create_stack_layer_form "TEXT \"%s\"\n" ZUnit)
  238.                 fprintf(Create_stack_layer_form "FLOC 26 %d\n" i)
  239.                 fprintf(Create_stack_layer_form "TGROUP \"Form1\"\n")
  240.                 fprintf(Create_stack_layer_form "ENDTEXT\n\n")

  242.                 fprintf(Create_stack_layer_form "## Input Field in Form## \n")
  243.                 fprintf(Create_stack_layer_form "FIELD %s\n" DW)
  244.                 fprintf(Create_stack_layer_form "FLOC 30 %d\n" i)
  245.                 fprintf(Create_stack_layer_form "FSIZE 6 2\n")
  246.                 fprintf(Create_stack_layer_form "STRFILLIN 9 70\n")
  247.                 fprintf(Create_stack_layer_form "FGROUP \"Form1\"\n")
  248.                 fprintf(Create_stack_layer_form "VALUE \"20/10\"\n")
  249.                 fprintf(Create_stack_layer_form "ENDFIELD \n\n\n")

  251.                 fprintf(Create_stack_layer_form "## Text Field in Form## \n")
  252.                 fprintf(Create_stack_layer_form "TEXT \"%s\"\n" ZUnit)
  253.                 fprintf(Create_stack_layer_form "FLOC 42 %d\n" i)
  254.                 fprintf(Create_stack_layer_form "TGROUP \"Form1\"\n")
  255.                 fprintf(Create_stack_layer_form "ENDTEXT\n\n")
  256.        
  257.                 fprintf(Create_stack_layer_form "## Input Field in Form## \n")
  258.                 fprintf(Create_stack_layer_form "FIELD %s\n" DS)
  259.                 fprintf(Create_stack_layer_form "FLOC 48 %d\n" i)
  260.                 fprintf(Create_stack_layer_form "FSIZE 20 4\n")
  261.                 fprintf(Create_stack_layer_form "STRFILLIN 20 70\n")
  262.                 fprintf(Create_stack_layer_form "FGROUP \"Form1\"\n")
  263.                 fprintf(Create_stack_layer_form "VALUE \" Input reference layer\"\n")
  264.                 fprintf(Create_stack_layer_form "ENDFIELD \n\n\n")
  265.         )
  266.         ok_row = Row_Numer*2 +6
  267.         fprintf(Create_stack_layer_form "## Button Field in FORM ## \n")
  268.         fprintf(Create_stack_layer_form "FIELD myOK\n")
  269.         fprintf(Create_stack_layer_form "FLOC 13 %d\n" ok_row)
  270.         fprintf(Create_stack_layer_form "MENUBUTTON \"OK\" 14 3\n")
  271.         fprintf(Create_stack_layer_form "FGROUP \"Form1\"\n")
  272.         fprintf(Create_stack_layer_form "ENDFIELD \n\n")

  274.         fprintf(Create_stack_layer_form "## Button Field in FORM ## \n")
  275.         fprintf(Create_stack_layer_form "FIELD Cancel\n")
  276.         fprintf(Create_stack_layer_form "FLOC 34 %d\n" ok_row)
  277.         fprintf(Create_stack_layer_form "MENUBUTTON \"Cancel\" 13 3\n")
  278.         fprintf(Create_stack_layer_form "FGROUP \"Form1\"\n")
  279.         fprintf(Create_stack_layer_form "ENDFIELD \n\n")
  280.        
  281.         fprintf(Create_stack_layer_form "ENDTILE\n\n")
  282.         fprintf(Create_stack_layer_form "ENDFORM\n\n")

  284.         close(Create_stack_layer_form)
  285. )


  288. (defun Create_stack_layer_Action (Create_stack_layer_form)
  289.         (let (t1 item index field cnt)(printf "field/value %L = %L (int %L\n)"
  290.         Create_stack_layer_form->curField Create_stack_layer_form->curValue, Create_stack_layer_form->curValueInt )
  291.         (printf "doneState %L\n" Create_stack_layer_form->doneState )       
  292.                 case(Create_stack_layer_form->curField       
  293.                         ("NAME0"
  294.                                 nLayer[0] = Create_stack_layer_form->curValue
  295.                                 printf("nLayer[0] = %s \n" nLayer[0])
  296.                                
  297.                         )
  298.                         ("NAME1"
  299.                                 nLayer[1] = Create_stack_layer_form->curValue

  301.                         )
  302.                         ("NAME2"
  303.                                 nLayer[2] = Create_stack_layer_form->curValue

  305.                         )
  306.                         ("NAME3"
  307.                                 nLayer[3] = Create_stack_layer_form->curValue

  309.                         )
  310.                         ("NAME4"
  311.                                 nLayer[4] = Create_stack_layer_form->curValue
  312.                                
  313.                         )
  314.                         ("NAME5"
  315.                                 nLayer[5] = Create_stack_layer_form->curValue
  316.                                
  317.                         )
  318.                         ("NAME6"
  319.                                 nLayer[6] = Create_stack_layer_form->curValue
  320.                                
  321.                         )
  322.                         ("NAME7"
  323.                                 nLayer[7] = Create_stack_layer_form->curValue
  324.                                
  325.                         )
  326.                         ("NAME8"
  327.                                 nLayer[8] = Create_stack_layer_form->curValue
  328.                                
  329.                         )
  330.                         ("NAME9"
  331.                                 nLayer[9] = Create_stack_layer_form->curValue
  332.                                
  333.                         )
  334.                
  335.                         ("SW0"
  336.                                 zzSW[0] = Create_stack_layer_form->curValue

  338.                         )
  339.                        
  340.                         ("SW1"
  341.                                 zzSW[1] = Create_stack_layer_form->curValue
  342.                                
  343.                         )
  344.                        
  345.                         ("SW2"
  346.                                 zzSW[2] = Create_stack_layer_form->curValue
  347.                                
  348.                         )
  349.                        
  350.                         ("SW3"
  351.                                 zzSW[3] = Create_stack_layer_form->curValue
  352.                                
  353.                         )
  354.                        
  355.                         ("SW4"
  356.                                 zzSW[4] = Create_stack_layer_form->curValue
  357.                                
  358.                         )
  359.                        
  360.                         ("SW5"
  361.                                 zzSW[5] = Create_stack_layer_form->curValue
  362.                        
  363.                         )
  364.                        
  365.                         ("SW6"
  366.                                 zzSW[6] = Create_stack_layer_form->curValue
  367.                                
  368.                         )
  369.                        
  370.                         ("SW7"
  371.                                 zzSW[7] = Create_stack_layer_form->curValue

  373.                                
  374.                         )
  375.                        
  376.                         ("SW8"
  377.                                 zzSW[8] = Create_stack_layer_form->curValue
  378.                                
  379.                         )
  380.                        
  381.                         ("SW9"
  382.                                 zzSW[9] = Create_stack_layer_form->curValue
  383.                         )
  384.                                
  385.                         ("DW0"
  386.                                 zzDW[0] = Create_stack_layer_form->curValue

  388.                         )
  389.                        
  390.                         ("DW1"
  391.                                 zzDW[1] = Create_stack_layer_form->curValue
  392.                                
  393.                         )
  394.                        
  395.                         ("DW2"
  396.                                 zzDW[2] = Create_stack_layer_form->curValue
  397.                                
  398.                         )
  399.                        
  400.                         ("DW3"
  401.                                 zzDW[3] = Create_stack_layer_form->curValue
  402.                        
  403.                         )
  404.                        
  405.                         ("DW4"
  406.                                 zzDW[4] = Create_stack_layer_form->curValue
  407.                                
  408.                         )
  409.                        
  410.                         ("DW5"
  411.                                 zzDW[5] = Create_stack_layer_form->curValue
  412.                        
  413.                         )
  414.                        
  415.                         ("DW6"
  416.                                 zzDW[6] = Create_stack_layer_form->curValue
  417.                                
  418.                         )
  419.                        
  420.                         ("DW7"
  421.                                 zzDW[7] = Create_stack_layer_form->curValue

  423.                                
  424.                         )
  425.                        
  426.                         ("DW8"
  427.                                 zzDW[8] = Create_stack_layer_form->curValue
  428.                                
  429.                         )
  430.                        
  431.                         ("DW9"
  432.                                 zzDW[9] = Create_stack_layer_form->curValue
  433.                                
  434.                         )
  435.                                                
  436.                         ("DS0"
  437.                                 zzDS[0] = Create_stack_layer_form->curValue
  438.                                

  440.                         )
  441.                        
  442.                         ("DS1"
  443.                                 zzDS[1] = Create_stack_layer_form->curValue
  444.                                
  445.                         )
  446.                        
  447.                         ("DS2"
  448.                                 zzDS[2] = Create_stack_layer_form->curValue                       
  449.                                
  450.                         )
  451.                        
  452.                         ("DS3"
  453.                                 zzDS[3] = Create_stack_layer_form->curValue       
  454.                                
  455.                         )
  456.                        
  457.                         ("DS4"
  458.                                 zzDS[4] = Create_stack_layer_form->curValue       
  459.                                
  460.                         )
  461.                        
  462.                         ("DS5"
  463.                                 zzDS[5] = Create_stack_layer_form->curValue               
  464.                                
  465.                         )
  466.                        
  467.                         ("DS6"
  468.                                 zzDS[6] = Create_stack_layer_form->curValue       
  469.                                
  470.                         )
  471.                        
  472.                         ("DS7"
  473.                                 zzDS[7] = Create_stack_layer_form->curValue
  474.                                        
  475.                         )
  476.                        
  477.                         ("DS8"
  478.                                 zzDS[8] = Create_stack_layer_form->curValue                       
  479.                                
  480.                         )
  481.                        
  482.                         ("DS9"
  483.                                 zzDS[9] = Create_stack_layer_form->curValue               
  484.                                
  485.                         )
  486.                
  487.                         ("myOK"
  488. ;;;;;;;;;;;;;;;;;;test date;;;;;;;;;;;;;;;;;;;;;;                               
  489. ;                                for(i 0 Row_Numer-1
  490. ;                                        printf("*************\n")
  491. ;                                        printf("layer name = %s \n" nLayer[i])
  492. ;                                        printf("single width = %s \n" zzSW[i])
  493. ;                                        printf("different width and space = %s \n" zzDW[i])
  494. ;                                        printf("refernce layer = %s \n" zzDS[i])
  495. ;                                );for
  496. ;;;;;;;;;;;;;;;;;;test date;;;;;;;;;;;;;;;;;;;;;;

  498.                                 Impedance_table();开启后在软件件内无法执行两次以上
  499.                                 axlClearSelSet()
  500.                                 axlFormClose(Create_stack_layer_form)
  501.                                 printf("test\n")
  502.                         ;Button Field
  503.                         ;Enter Action Here
  504.                        
  505.                         )
  506.                         ("Cancel"
  507.                                 axlFormClose(Create_stack_layer_form)
  508.                                

  510.                         ;Button Field
  511.                         ;Enter Action Here
  512.                        
  513.                         )
  514.         )
  515. )
  516.        
  517.                

  519. if((nequal Create_stack_layer_form->doneState 0)
  520. axlFormClose(Create_stack_layer_form))
  521. )


  524. defun( Impedance_table ()
  525.         stack_layer = "MANUFACTURING/IMPEDANCE"
  526.         axlClearSelSet()
  527.         Display = axlVisibleGet()
  528.         axlVisibleDesign(nil)
  529.         axlVisibleLayer(stack_layer t)
  530.         axlDBRefreshId(axlDBGetDesign())
  531.         axlSetFindFilter(?enabled '(noall shapes text lines ) ?onButtons '(noall shapes text lines))
  532.         axlDeleteObject(axlGetSelSet( axlAddSelectAll() ) )
  533.         axlVisibleSet(Display)
  534. ;        axlClearDynamics()
  535.         Unit=car(axlDBGetDesignUnits())
  536.         case(Unit
  537.                 ("millimeters" u=1)
  538.                 ("mils" u=40)
  539.         );end case
  540.         L=66*u       
  541.         H=-1*(5+Row_Numer*4)*u
  542.         axlClearDynamics()
  543.         mypath = axlPathStart(list( 0:0 L:0 L:H 0:H 0:0))
  544.         axlAddSimpleMoveDynamics(0:0 mypath "path" ?ref_point 0:0)
  545.        
  546.         if(axlIsLayer(stack_layer) == nil then
  547.                 axlLayerCreateNonConductor(stack_layer)
  548.         );if
  549.         (axlUIWRedraw nil)
  550.         axlVisibleLayer(stack_layer t)
  551.        
  552.         pointStart=nil
  553.        
  554.         pointStart = axlEnterPoint()
  555.         Px=xCoord(pointStart)
  556.         Py=yCoord(pointStart)
  557.         myorient=make_axlTextOrientation(?textBlock "4",?rotation 0., ?mirrored nil, ?justify "left")
  558.          
  559.         axlDBCreateText("IMPEDANCE_TABLE:",list(Px+3*u Py-4*u+100), myorient, stack_layer,nil)
  560.         axlDBCreateText("LAYER",list(Px+3*u+100 Py-4*u-100), myorient, stack_layer,nil)
  561.         axlDBCreateText("50ohm",list(Px+3*u+800 Py-4*u-100), myorient, stack_layer,nil)
  562.         axlDBCreateText("100ohm",list(Px+3*u+1300 Py-4*u-100), myorient, stack_layer,nil)
  563.         axlDBCreateText("REFERENCE LAYER",list(Px+3*u+1900 Py-4*u-100), myorient, stack_layer,nil)
  564.        
  565. ;                                        printf("layer name = %s \n" nLayer[i])
  566. ;                                        printf("single width = %s \n" zzSW[i])
  567. ;                                        printf("different width and space = %s \n" zzDW[i])
  568. ;                                        printf("refernce layer = %s \n" zzDS[i])
  569.        
  570.        
  571.         for(i 0 Row_Numer-1
  572.                 n = i+1
  573.                 axlDBCreateLine( list(Px+3*u:Py-4*u-200*n Px+3*u+3000:Py-4*u-200*n), 15, stack_layer );up line
  574. ;                layer_name[i] = strcat(nLayer[i])
  575. ;                layer_Single_Width[i]= strcat(zzSW[i] )
  576. ;                layer_Differential_WidthSpace[i]= strcat(zzDW[i])
  577. ;                layer_reference[i] =stract(zzDS[i])
  578.                
  579.                 axlDBCreateText(nLayer[i],list(Px+3*u+100 Py-4*u-200*(n+0.5)), myorient, stack_layer,nil)
  580.                 axlDBCreateText(zzSW[i],list(Px+3*u+800 Py-4*u-200*(n+0.5)), myorient, stack_layer,nil)
  581.                 axlDBCreateText(zzDW[i],list(Px+3*u+1300 Py-4*u-200*(n+0.5)), myorient, stack_layer,nil)
  582.                 axlDBCreateText(zzDS[i],list(Px+3*u+1900 Py-4*u-200*(n+0.5)), myorient, stack_layer,nil)
  583.                
  584.                
  585.                
  586.         );for
  587.         axlDBCreateLine( list(Px+3*u:Py-4*u Px+3*u+3000:Py-4*u), 15, stack_layer );up line
  588.         axlDBCreateLine( list(Px+3*u:Py-4*u Px+3*u:Py-4*u-200*(Row_Numer+1)), 15, stack_layer );left line
  589.         axlDBCreateLine( list(Px+3*u:Py-4*u-200*(Row_Numer+1) Px+3*u+3000:Py-4*u-200*(Row_Numer+1)), 15, stack_layer ) ;down line
  590.         axlDBCreateLine( list(Px+3*u+3000:Py-4*u Px+3*u+3000:Py-4*u-200*(Row_Numer+1)), 15, stack_layer );right line
  591.         axlDBCreateLine( list(Px+3*u+700:Py-4*u Px+3*u+700:Py-4*u-200*(Row_Numer+1)), 15, stack_layer );left second line
  592.         axlDBCreateLine( list(Px+3*u+1200:Py-4*u Px+3*u+1200:Py-4*u-200*(Row_Numer+1)), 15, stack_layer ) ;left third line
  593.         axlDBCreateLine( list(Px+3*u+1800:Py-4*u Px+3*u+1800:Py-4*u-200*(Row_Numer+1)), 15, stack_layer );left forth line
  594.         axlClearDynamics()
  595.        
  596. );defun
复制代码
作者: betamelody    时间: 2013-6-14 16:20
525行stack_layer = "MANUFACTURING/IMPEDANCE"

第二行(defun stack_layer ()

别用这么多全局变量了改局部变量吧
作者: ifuture    时间: 2013-6-14 16:37
问题应该在这里吧：
                        when(isFile(Set_stack_form_file)
                                deleteFile(Set_stack_form_file)
                        );when

你考虑下如果把Set_stack_form_file删除了。就没有form文件了。
作者: ghfghyb    时间: 2013-6-14 16:38
betamelody

发表于 2013-6-14 16:20 |只看该作者
525行stack_layer = "MANUFACTURING/IMPEDANCE"

第二行(defun stack_layer ()

别用这么多全局变量了改局部变量吧


万分感谢，，一直就没想到这个原因，我还一直在查内存释放的问题！！
关于全局变量和部局变量的在哪个资料里多一些！
不好意思，我一直是写程序盲，是去看10月才开始学习skill，一般是要用到什么就去help里面找的！
如果有资料传我一个吧！！
谢谢！！
作者: betamelody    时间: 2013-6-14 16:43
本帖最后由 betamelody 于 2013-6-14 16:44 编辑

比如第一个函数,这样写
  1. (defun stack_layer ()
  2.   prog((time day month year date choose_row_form)
  3.                         time = getCurrentTime()
  4.                         time = parseString(time)
  5.                         day = nth(1 time)
  6.                         month = car(time)
  7.                         month = upperCase(month)
  8.                         year = nth(3 time)
  9.                         date = strcat(" Date: " day " " month " " year)
  10.                         Set_stack_layer()
  11.                         choose_row_form = axlFormCreate( (gensym) Set_stack_form_file nil 'Set_stack_layer_Action t)
  12.                         axlFormDisplay(choose_row_form)
  13.                         axlUIWPrint(choose_row_form date)
  14.                         when(isFile(Set_stack_form_file)
  15.                                 deleteFile(Set_stack_form_file)
  16.                         );when
  17.         )
  18. )
复制代码
其中time day month year date choose_row_form变量只在prog内部有效
作者: deargds    时间: 2013-6-14 16:56
stack_layer变量被覆写了。



欢迎光临 EDA365电子工程师网 (http://bbs.elecnest.cn/) Powered by Discuz! X3.2