请高手帮忙修改一下ENUM的SKILL

wuyuhe

想要出来下图这样的结果，但是FORM一直出不来，帮忙看一下哪里出错了

1. axlCmdRegister("emnutest" 'emnutest ?cmdType "general")
   
2. procedure(emnutest()
   
3.         ENUMFormCreate()        
   
4.         formPort = axlFormCreate((gensym) "enum.form" nil nil t nil)
   
5.         axlFormDisplay(formPort)        
   
6.         axlFormBuildPopup(formPort "subclass" '(("item")))
   
7.         axlFormBuildPopup(formPort "Layer" (list "Package Geometry"))
   
8. )
   
9. procedure(enumFormCreate()
   
10.         enumFormPort = outfile("enum.form")
    
11.         fprintf(enumFormPort "FILE_TYPE=FORM_DEFN VERSION=2\n")
    
12.         fprintf(enumFormPort "FORM\n")
    
13.         fprintf(enumFormPort "FIXED\n")
    
14.         fprintf(enumFormPort "PORT 30 50\n")
    
15.         fprintf(enumFormPort "HEADER "Enum Test"\n\n")
    
16.         
    
17.         fprintf(enumFormPort "POPUP <Layer> "Package Geometry" "Package Geometry"")
    
18.         
    
19.    Desing_Layers=(axlGetParam("paramLayerGroup:Package Geometry")->groupmembers)
    
20.    fprintf(enumFormPort "POPUP <Layer_Names>")
    
21.         foreach(Item Desing_Layers
    
22.     if(Item=="ASSEMBLY_TOP" then
    
23.      (fprintf enumFormPort ""%s"" Item)
    
24.      (fprintf enumFormPort ""%s".\n" Item)
    
25.      else
    
26.      (fprintf enumFormPort ""%s"" Item)
    
27.      (fprintf enumFormPort ""%s"," Item)
    
28.     )
    
29.     )        
    
30. 
    
31.         fprintf(enumFormPort "TILE\n\n")
    
32.         fprintf(enumFormPort "FIELD Layer\n")
    
33.         fprintf(enumFormPort "FLOC 5 1\n")
    
34.         fprintf(enumFormPort "ENUMSET 19\n")        
    
35.         fprintf(enumFormPort "OPTIONS prettyprint\n")
    
36.         fprintf(enumFormPort "POP "Layer"\n")        
    
37.         fprintf(enumFormPort "ENDFIELD\n\n")
    
38.         
    
39. fprintf(enumFormPort "FIELD subcolor \n")
    
40. fprintf(enumFormPort "FLOC 1 3 \n")
    
41. fprintf(enumFormPort "COLOR 2 1 \n")
    
42. fprintf(enumFormPort "OPTIONS colorchooser \n")
    
43. fprintf(enumFormPort "ENDFIELD \n")
    
44. 
    
45. fprintf(enumFormPort "FIELD subclass \n")
    
46. fprintf(enumFormPort "FLOC 5 3 \n")
    
47. fprintf(enumFormPort "ENUMSET 19 \n")
    
48. fprintf(enumFormPort "POP "Layer_Names" \n")
    
49. fprintf(enumFormPort "OPTIONS prettyprint ownerdrawn \n")
    
50. fprintf(enumFormPort "ENDFIELD \n")
    
51.         
    
52.         fprintf(enumFormPort "ENDTILE\n")
    
53.         fprintf(enumFormPort "ENDFORM\n")
    
54.         close(enumFormPort)
    
55. )

复制代码

wuyuhe

ENUMFormCreate() 我源代码是小写的不知道粘贴的时候为什么ENUM变大写了，且POP中的P都变成表情了

wuyuhe

ENUMFormCreate() 我源代码是小写的不知道粘贴的时候为什么ENUM变大写了，且POP中的P都变成表情了

vivienluo

1. fprintf(enumFormPort "POPUP <Layer> "Package Geometry" "Package Geometry"\n")
   
2. 
   

复制代码

少了一个换行符！