如何实现form里面根据层面分别显示routekeepout 和constriant region

mmmmyuitian

vivienluo 发表于 2014-12-1 13:00
你的%s没法传递值啊。

希望您帮忙看下 代码 只要举例一个可以分层控制就行

vivienluo

mmmmyuitian 发表于 2014-12-2 22:00
希望您帮忙看下 代码 只要举例一个可以分层控制就行

有那么纠结吗，我帮你看看。。。。

vivienluo

给你个参考！随便写的，代码不是很优化，多注意下。



subColor.rar (1.17 KB, 下载次数: 9, 售价: 1 SKILL币)

2014-12-2 23:50 上传

点击文件名下载附件

1. ;subColor Test
   
2. ;BY Vivien Luo
   
3. ;2014/12/02 23:40
   
4. axlCmdRegister("aaa" 'subColor)
   
5. 
   
6. defun( subColor ()
   
7.         subColorformcreate()
   
8.         form = axlFormCreate(gensym() "./subColor.form" nil 'subColorAction  nil)
   
9.         axlFormSetField(form "RteKoAll"  if(axlIsVisibleLayer("ROUTE KEEPOUT/ALL"), axlLayerGet("ROUTE KEEPOUT/ALL") ->color, 'black))
   
10.         axlFormSetField(form "RteKoAll"  axlIsVisibleLayer("ROUTE KEEPOUT/ALL"))
    
11.         foreach(layer axlGetParam("paramLayerGroup:ETCH")->groupMembers
    
12.                 fieldColor = strcat("RteKo" layer)
    
13.                 colorLayer = strcat("ROUTE KEEPOUT/" layer)
    
14.                 axlFormSetField(form fieldColor  if(axlIsVisibleLayer(colorLayer), axlLayerGet(colorLayer) ->color, 'black))
    
15.                 axlFormSetField(form fieldColor  axlIsVisibleLayer(colorLayer))
    
16.         )
    
17.         axlFormDisplay(form)
    
18. )
    
19. 
    
20. defun(subColorAction (form)
    
21. case(form->curField
    
22.         ("RteKoAll"
    
23.                 layer = "ROUTE KEEPOUT/ALL"
    
24.                 axlVisibleLayer(layer, !axlIsVisibleLayer(layer))
    
25.                 axlVisibleUpdate(t)
    
26.                 axlFormSetField(form "RteKoAll"  axlIsVisibleLayer("ROUTE KEEPOUT/ALL"))
    
27.                 axlFormSetField(form "RteKoAll"  if(axlIsVisibleLayer("ROUTE KEEPOUT/ALL"), axlLayerGet("ROUTE KEEPOUT/ALL") ->color, 'black))
    
28.         )
    
29.         (t
    
30.                 ;axlUIConfirm("ttt")
    
31.                 curField = form->curField
    
32.                 foreach(layer axlGetParam("paramLayerGroup:ETCH")->groupMembers
    
33.                 fieldColor = strcat("RteKo" layer)
    
34.                 when(curField == fieldColor               
    
35.                 colorLayer = strcat("ROUTE KEEPOUT/" layer)
    
36.                 axlVisibleLayer(colorLayer, !axlIsVisibleLayer(colorLayer))
    
37.                 axlVisibleUpdate(t)
    
38.                 axlFormSetField(form fieldColor  if(axlIsVisibleLayer(colorLayer), axlLayerGet(colorLayer) ->color, 'black))
    
39.                 axlFormSetField(form fieldColor  axlIsVisibleLayer(colorLayer))
    
40.                 )
    
41.                 );end when
    
42.         )
    
43. );end case
    
44. );end defun
    
45. 
    
46. defun( subColorformcreate ()
    
47. let((subColorPort)
    
48.         subColorPort = outfile("./subColor.form")
    
49.         fprintf(subColorPort "FILE_TYPE=FORM_DEFN VERSION=2\n")
    
50.         fprintf(subColorPort "FORM\n")
    
51.         fprintf(subColorPort "FIXED\n")
    
52.         fprintf(subColorPort "PORT 30 5\n")
    
53.         fprintf(subColorPort "HEADER "SubColor Test"\n")
    
54.         fprintf(subColorPort "TILE\n")
    
55.         
    
56.         fprintf(subColorPort "TEXT RteKo\n")
    
57.         fprintf(subColorPort "TLOC 10 0\n")
    
58.         fprintf(subColorPort "ENDTEXT\n")
    
59.         Layers=(axlGetParam("paramLayerGroup:ETCH")->groupMembers)
    
60.         Tloc = 0
    
61.         foreach(layer Layers
    
62.                 Tloc = Tloc + 2
    
63.                 fprintf(subColorPort "TEXT %s\n" layer)
    
64.                 fprintf(subColorPort "TLOC 1 %d\n" Tloc)
    
65.                 fprintf(subColorPort "ENDTEXT\n")
    
66.                
    
67.                 fprintf(subColorPort "FIELD RteKo%s\n" layer)
    
68.                 fprintf(subColorPort "FLOC 10 %d\n" Tloc)
    
69.                 fprintf(subColorPort "COLOR 2 1\n")
    
70.                 fprintf(subColorPort "ENDFIELD\n")
    
71.         );end foreach
    
72.         
    
73.         fprintf(subColorPort "TEXT ALL\n")
    
74.         fprintf(subColorPort "TLOC 1 %d\n" Tloc + 2)
    
75.         fprintf(subColorPort "ENDTEXT\n")
    
76.         
    
77.         fprintf(subColorPort "FIELD RteKoAll\n")
    
78.         fprintf(subColorPort "FLOC 10 %d\n" Tloc + 2)
    
79.         fprintf(subColorPort "COLOR 2 1\n")
    
80.         fprintf(subColorPort "ENDFIELD\n")
    
81.         
    
82.         fprintf(subColorPort "ENDTILE\n")
    
83.         fprintf(subColorPort "ENDFORM\n")
    
84.         close(subColorPort)
    
85.         ;debug form file
    
86.         ;axlFormTest("./subColor.form")
    
87. );end let
    
88. );end defun

复制代码

mmmmyuitian

谢谢楼主 万分感谢 呵呵

vivienluo

希望对你有帮助。

mmmmyuitian

已經ok了 我可以以這個類推其他的 謝謝

mmmmyuitian

这里如何实现 一个checklist框, 选择展开内层或者关闭内层(gnd ,pwr)

mmmmyuitian

vivienluo 发表于 2014-12-2 23:10
给你个参考！随便写的，代码不是很优化，多注意下。

这里如何实现 一个checklist框, 选择展开内层或者关闭内层(gnd ,pwr)

mmmmyuitian

;subColor Test
;BY Vivien Luo
;2014/12/02 23:40
axlCmdRegister("aaa" 'subColor)

defun( subColor ()
        subColorformcreate()
        form = axlFormCreate(gensym() "./subColor.form" nil 'subColorAction  nil)
        axlFormSetField(form "RteKoAll"  if(axlIsVisibleLayer("ROUTE KEEPOUT/ALL"), axlLayerGet("ROUTE KEEPOUT/ALL") ->color, 'black))
        axlFormSetField(form "RteKoAll"  axlIsVisibleLayer("ROUTE KEEPOUT/ALL"))
        foreach(layer axlGetParam("paramLayerGroup:ETCH")->groupMembers
                fieldColor = strcat("RteKo" layer)
                colorLayer = strcat("ROUTE KEEPOUT/" layer)
                axlFormSetField(form fieldColor  if(axlIsVisibleLayer(colorLayer), axlLayerGet(colorLayer) ->color, 'black))
                axlFormSetField(form fieldColor  axlIsVisibleLayer(colorLayer))
        )
        axlFormDisplay(form)
)

defun(subColorAction (form)
case(form->curField
        ("RteKoAll"
                layer = "ROUTE KEEPOUT/ALL"
                axlVisibleLayer(layer, !axlIsVisibleLayer(layer))
                axlVisibleUpdate(t)
                axlFormSetField(form "RteKoAll"  axlIsVisibleLayer("ROUTE KEEPOUT/ALL"))
                axlFormSetField(form "RteKoAll"  if(axlIsVisibleLayer("ROUTE KEEPOUT/ALL"), axlLayerGet("ROUTE KEEPOUT/ALL") ->color, 'black))
        )

("Planecheck"


)



        (t
                ;axlUIConfirm("ttt")
                curField = form->curField
                foreach(layer axlGetParam("paramLayerGroup:ETCH")->groupMembers
                fieldColor = strcat("RteKo" layer)
                when(curField == fieldColor               
                colorLayer = strcat("ROUTE KEEPOUT/" layer)
                axlVisibleLayer(colorLayer, !axlIsVisibleLayer(colorLayer))
                axlVisibleUpdate(t)
                axlFormSetField(form fieldColor  if(axlIsVisibleLayer(colorLayer), axlLayerGet(colorLayer) ->color, 'black))
                axlFormSetField(form fieldColor  axlIsVisibleLayer(colorLayer))
                )
                );end when
        )
);end case
);end defun

defun( subColorformcreate ()
let((subColorPort)
        subColorPort = outfile("./subColor.form")
        fprintf(subColorPort "FILE_TYPE=FORM_DEFN VERSION=2\n")
        fprintf(subColorPort "FORM\n")
        fprintf(subColorPort "FIXED\n")
        fprintf(subColorPort "PORT 30 5\n")
        fprintf(subColorPort "HEADER \"SubColor Test\"\n")
        fprintf(subColorPort "TILE\n")
        
        fprintf(subColorPort "TEXT RteKo\n")
        fprintf(subColorPort "TLOC 1 0\n")
        fprintf(subColorPort "ENDTEXT\n")

        fprintf(subColorPort "FIELD Planecheck\n")
        fprintf(subColorPort "FLOC 10 0\n")
       fprintf(subColorPort "CHECKLIST\n")
        fprintf(subColorPort "ENDFIELD\n")
        Layers=(axlGetParam("paramLayerGroup:ETCH")->groupMembers)
        Tloc = 0
        foreach(layer Layers
         typelayer = strcat("ETCH/" layer)
         layertype=axlDBGetLayerType(typelayer)

if(layertype=="CONDUCTOR"
       then

                Tloc = Tloc + 2
                fprintf(subColorPort "TEXT %s\n" layer)
                fprintf(subColorPort "TLOC 1 %d\n" Tloc)
                fprintf(subColorPort "ENDTEXT\n")
               
                fprintf(subColorPort "FIELD RteKo%s\n" layer)
                fprintf(subColorPort "FLOC 10 %d\n" Tloc)
                fprintf(subColorPort "COLOR 2 1\n")
                fprintf(subColorPort "ENDFIELD\n")

);end else
        );end foreach
        
        fprintf(subColorPort "TEXT ALL\n")
        fprintf(subColorPort "TLOC 1 %d\n" Tloc + 2)
        fprintf(subColorPort "ENDTEXT\n")
        
        fprintf(subColorPort "FIELD RteKoAll\n")
        fprintf(subColorPort "FLOC 10 %d\n" Tloc + 2)
        fprintf(subColorPort "COLOR 2 1\n")
        fprintf(subColorPort "ENDFIELD\n")
        
        fprintf(subColorPort "ENDTILE\n")
        fprintf(subColorPort "ENDFORM\n")
        close(subColorPort)
        ;debug form file
        ;axlFormTest("./subColor.form")
);end let
);end defun  
特发出改了的skill, 请帮忙看下 "planecheck"怎么填写

墨客的秋天

学习了