axlUIPrompt的值怎么传入另一个函数？

lyh289114980

axlUIPrompt的值怎么传入另一个函数？

霹雳风雷

定义变量，赋值到另一个函数，或者进行函数嵌套也行

lyh289114980

(defun test8 ()
testform=outfile("test.form" "w")
fprintf(testform "FILE_TYPE=FORM_DEFN VERSION=2\n")
fprintf(testform "FORM\n")
fprintf(testform "FIXED\n")
fprintf(testform "PORT 83 50\n")
fprintf(testform "HEADER \"testprintinfo\"\n")
fprintf(testform "TILE\n")

fprintf(testform "FIELD Add_Field\n")
fprintf(testform "FLOC 10 3\n")
fprintf(testform "MENUBUTTON \"add\" 10 3\n")
fprintf(testform "ENDFIELD\n")

fprintf(testform "FIELD print_Field\n")
fprintf(testform "FLOC 30 3\n")
fprintf(testform "MENUBUTTON \"Print\" 10 3\n")
fprintf(testform "ENDFIELD\n")
fprintf(testform "ENDTILE\n")
fprintf(testform "ENDFORM\n")
close(testform)
test8_form=axlFormCreate( (gensym) "test.form" nil 'test_action t)
axlFormDisplay(test8_form)
)

(defun test_action (test8_form)
(prog ()
  case(test8_form->curField
  ("Add_Field"
  add_fun()
  t)
  ("print_Field"
  print_fun()
  t)
  
  );end case

);end prog
)
/*--------------------------------------------
如果有需要才会执行添加动作
-------------------------------------------*/
(defun add_fun ()
add_sym=axlUIPrompt("Enter the type of symbol:" nil)
)
;*******************************************************************
(defun print_fun ()
print_list=list("aa" "bb" "cc")
when(add_sym
print_list=cons(add_sym print_list)
)
foreach(printlist print_list
printf("%s\n" printlist)
)
)

像上面这个代码就有问题：一定要我添加才能正常运行打印功能
我的目的是：我想打印出print_list这里面的三个元素，如果我想要往print_list添加n元素，然后也能打印print_list全部元素出来。请问要怎么写代码，谢谢！

lyh289114980

霹雳风雷 发表于 2015-3-6 13:19
定义变量，赋值到另一个函数，或者进行函数嵌套也行

你帮我看下怎么写，代码已经贴上。谢谢！

XYX365

lyh289114980 发表于 2015-3-6 15:11
(defun test8 ()
testform=outfile("test.form" "w")
fprintf(testform "FILE_TYPE=FORM_DEFN VERSION= ...

把這一行改一下
原來:
add_sym=axlUIPrompt("Enter the type of symbol:" nil)

修正:
add_sym=axlUIPrompt("Enter the type of symbol:" "")

axlUIPrompt函數第二個參數必須是字串

lyh289114980

XYX365 发表于 2015-3-6 16:17
把這一行改一下
原來:
add_sym=axlUIPrompt("Enter the type of symbol:" nil)

依然出错：E- *Error* eval: unbound variable - add_sym
PS:没有点击ADD按时就会出现上面错误信息，如果点击ADD按钮输入内容就不会。问题是我现在我一定要去添加才正常。最终目的就是我想添加就添加输出，不想添加也能正常运行输出。这里有个选择的过程哦

XYX365

lyh289114980 发表于 2015-3-6 16:33
依然出错：E- *Error* eval: unbound variable - add_sym
PS:没有点击ADD按时就会出现上面错误信息，如 ...

在下面這一行前面加入 add_sym = nil     when(add_sym

lyh289114980

XYX365 发表于 2015-3-6 16:54
在下面這一行前面加入 add_sym = nil     when(add_sym

还是不能达到我的目的,现在都加不了按照你说的。

XYX365

lyh289114980 发表于 2015-3-9 09:31
还是不能达到我的目的,现在都加不了按照你说的。

修改代碼如下

1. (defun test8 ()
   
2.         add_sym = nil
   
3.         testform=outfile("test.form" "w")
   
4.         fprintf(testform "FILE_TYPE=FORM_DEFN VERSION=2\n")
   
5.         fprintf(testform "FORM\n")
   
6.         fprintf(testform "FIXED\n")
   
7.         fprintf(testform "PORT 83 50\n")
   
8.         fprintf(testform "HEADER \"testprintinfo\"\n")
   
9.         fprintf(testform "TILE\n")
   
10. 
    
11.         fprintf(testform "FIELD Add_Field\n")
    
12.         fprintf(testform "FLOC 10 3\n")
    
13.         fprintf(testform "MENUBUTTON \"add\" 10 3\n")
    
14.         fprintf(testform "ENDFIELD\n")
    
15. 
    
16.         fprintf(testform "FIELD print_Field\n")
    
17.         fprintf(testform "FLOC 30 3\n")
    
18.         fprintf(testform "MENUBUTTON \"Print\" 10 3\n")
    
19.         fprintf(testform "ENDFIELD\n")
    
20.         fprintf(testform "ENDTILE\n")
    
21.         fprintf(testform "ENDFORM\n")
    
22.         close(testform)
    
23.         test8_form=axlFormCreate( (gensym) "test.form" nil 'test_action t)
    
24.         axlFormDisplay(test8_form)
    
25. )
    
26. (defun test_action (test8_form)
    
27.         (prog ()
    
28.                   case(test8_form->curField
    
29.                           ("Add_Field"
    
30.                                   add_fun()
    
31.                                   t
    
32.                           )
    
33.                           ("print_Field"
    
34.                                   print_fun()
    
35.                                   t
    
36.                           )
    
37.                   );end case
    
38.         );end prog
    
39. )
    
40. 
    
41. (defun add_fun ()
    
42.         add_sym=axlUIPrompt("Enter the type of symbol:" "")
    
43. )
    
44. ;*******************************************************************
    
45. (defun print_fun ()
    
46.         print_list=list("aa" "bb" "cc")
    
47.         when(add_sym
    
48.                 print_list=cons(add_sym print_list)
    
49.         )
    
50.         foreach(printlist print_list
    
51.                 printf("%s\n" printlist)
    
52.         )
    
53. )

复制代码

lyh289114980

XYX365 发表于 2015-3-9 11:09
修改代碼如下

THANKS YOU!COED CAN RUN NOW!