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

mmmmyuitian · 发表于 2014-11-29 10:56:15

如题，如何实现form里面根据层面分别显示routekeepout 和constriant region，用什么语句

mmmmyuitian · 发表于 2014-11-30 12:30:53

Text_Loc=9
  Nun_lay=0
  (foreach Item Etch_Layers
Nun_lay=Nun_lay+1
fprintf(lstForm "TEXT \"%d\"\n" Nun_lay)
fprintf(lstForm "TLOC 2 %d\n" Text_Loc)
fprintf(lstForm "ENDTEXT\n")

fprintf(lstForm "TEXT \"%s\"\n" Item)
fprintf(lstForm "TLOC 5 %d\n" Text_Loc)
fprintf(lstForm "ENDTEXT\n")

fprintf(lstForm "FIELD %s_Control\n" Item)
fprintf(lstForm "FLOC 12 %d\n" Text_Loc)
fprintf(lstForm "COLOR 2 1\n")
fprintf(lstForm "ENDFIELD\n")

Text_Loc=Text_Loc + 2
  ); end foreach Item Etch_Layers

代码如上如何分层显示%s_Control 对应的routekeepout

mmmmyuitian · 发表于 2014-11-30 12:53:05

比如点击top 后面 KO下方的框显示route keepout top ,并且显示他的颜色

mmmmyuitian · 发表于 2014-11-30 13:19:16

(foreach Item Etch_Layers
("%s_control" Item)

if(PalColor_form->curValue then
axlVisibleLayer("route keepout/%s Item" t)
axlVisibleUpdate(t)
else
axlVisibleLayer("route keepout/%s Item" nil)
axlVisibleUpdate(nil)
)
)
请问哪里有问题或者怎么改一下

vivienluo · 发表于 2014-12-1 13:00:50

你的%s没法传递值啊。

mmmmyuitian · 发表于 2014-12-2 13:26:49

要如何實現傳遞指, 我就是想如圖片, 點擊對應的層面顯示對應層面的routekeepout

mmmmyuitian · 发表于 2014-12-2 13:30:30

mm= stract(Item "_control")
("mm"
  if(PalColor_form->curValue then
                              axlVisibleLayer("route keepout/Item" t)
                              axlVisibleUpdate(t)
            else
                              axlVisibleLayer("route keepout/Item" nil)
                              axlVisibleUpdate(nil)
)　這樣　要如果改正

mmmmyuitian · 发表于 2014-12-2 13:32:44

mm= stract(Item "_control")
("mm"
  if(PalColor_form->curValue then
ｍｎ＝stract(route keepout／ "Ｉｔｅｍ")
                              axlVisibleLayer("ｍｎ" t)
                              axlVisibleUpdate(t)
            else
                              axlVisibleLayer("ｍｎ" nil)
                              axlVisibleUpdate(nil)
)

mmmmyuitian · 发表于 2014-12-2 21:58:30

axlCmdRegister("

alColor" 'PalColor)
defun( PalColor ()
Etch_Layers=(axlGetParam("paramLayerGroup:ETCH")->groupMembers)

  formFileName = "./PalColor.form"
  PalColor_form_create()

alColor_form = axlMiniStatusLoad('form, formFileName 'PalColor_action t)
  PalColor_form = axlFormCreate( (gensym) formFileName `(ne inner "msglines" 2) `PalColor_action t nil)
  axlFormDisplay(PalColor_form)
  deleteFile(formFileName)
  axlControlRaise('options)
)

procedure(PalColor_form_create()
Num_Lay=0
  (foreach Item Etch_Layers
Num_Lay=Num_Lay + 1
  ); end foreach Item Etch_Layers
  Port_Size=Num_Lay + 15

      lstForm = outfile( formFileName "w")
      fprintf(lstForm "FILE_TYPE=FORM_DEFN VERSION=2\n")
      fprintf(lstForm "FORM\n")
      fprintf(lstForm "FIXED\n")
      fprintf(lstForm "

ORT 40 10\n")
      fprintf(lstForm "HEADER \"Change Block\"\n")
      fprintf(lstForm "TILE\n")

      fprintf(lstForm "TEXT \"Global Visibility:\"\n")
      fprintf(lstForm "FLOC 2 1\n")
      fprintf(lstForm "ENDTEXT\n")

      fprintf(lstForm "FIELD btnVisAllOn\n")
      fprintf(lstForm "FLOC 10 1\n")
      fprintf(lstForm "MENUBUTTON \"On\" 5 3\n")
      fprintf(lstForm "ENDFIELD\n")

      fprintf(lstForm "FIELD btnVisAllOff\n")
      fprintf(lstForm "FLOC 16 1\n")
      fprintf(lstForm "MENUBUTTON \"Off\" 5 3\n")
      fprintf(lstForm "ENDFIELD\n")

      fprintf(lstForm "TEXT \"Outline\"\n")
      fprintf(lstForm "FLOC 2 4\n")
      fprintf(lstForm "ENDTEXT\n")

      fprintf(lstForm "FIELD clrOutline\n")
      fprintf(lstForm "FLOC 10 4\n")
      fprintf(lstForm "COLOR 3 1\n")
      fprintf(lstForm "ENDFIELD\n")

  fprintf(lstForm "GROUP \"Etch Layers\"\n")
  fprintf(lstForm "GLOC 1 5\n")
  fprintf(lstForm "GSIZE 20 %d\n" Num_Lay * 2 + 4 )
  fprintf(lstForm "ENDGROUP\n")
fprintf(lstForm "TEXT \"KO\"\n")
fprintf(lstForm "OPTIONS underline\n")

      fprintf(lstForm "FLOC 12 7\n")
      fprintf(lstForm "ENDTEXT\n")
  ;-------------------------------;
  ; Set the layer toggle buttons  ;
  ;-------------------------------;
  Text_Loc=9
  Nun_lay=0
  (foreach Item Etch_Layers
Nun_lay=Nun_lay+1
fprintf(lstForm "TEXT \"%d\"\n" Nun_lay)
fprintf(lstForm "TLOC 2 %d\n" Text_Loc)
fprintf(lstForm "ENDTEXT\n")

fprintf(lstForm "TEXT \"%s\"\n" Item)
fprintf(lstForm "TLOC 5 %d\n" Text_Loc)
fprintf(lstForm "ENDTEXT\n")

fprintf(lstForm "FIELD %s_control\n" Item)
fprintf(lstForm "FLOC 12 %d\n" Text_Loc)
fprintf(lstForm "COLOR 2 1\n")
fprintf(lstForm "ENDFIELD\n")

Text_Loc=Text_Loc + 2
  ); end foreach Item Etch_Layers


      fprintf(lstForm "ENDTILE\n")
      fprintf(lstForm "ENDFORM\n")
      close(lstForm)
)

defun(PalColor_action (PalColor_form)

case(PalColor_form->curField

("clrOutline"


if(PalColor_form->curValue then
axlVisibleLayer("BOARD GEOMETRY/OUTLINE" t)
axlVisibleUpdate(t)
else
axlVisibleLayer("BOARD GEOMETRY/OUTLINE" nil)
axlVisibleUpdate(nil)
)

if(axlIsVisibleLayer("BOARD GEOMETRY/OUTLINE") then
   clrlayer=axlLayerGet("BOARD GEOMETRY/OUTLINE")
   axlFormSetField( PalColor_form "clrOutline" clrlayer->color )
      axlVisibleUpdate(nil)
  else
      axlFormSetField( PalColor_form "clrOutline" 'black)
)

)

("btnVisAllOff"
                  axlVisibleDesign(nil)
      axlVisibleUpdate(nil)
;Button Field
;Enter Action Here

)
("btnVisAllOn"
                  axlVisibleDesign(t)
      axlVisibleUpdate(t)
;Button Field
;Enter Action Here

)

(foreach Item Etch_Layers
mm=strcat(etch/ "Item")
mn=strcat(Item "_control")
("mn"
if(PalColor_form->curValue then
axlVisibleLayer("mm" t)
axlVisibleUpdate(t)
else
axlVisibleLayer("mm" nil)
axlVisibleUpdate(nil)
)

)
)

))

mmmmyuitian · 发表于 2014-12-2 21:59:34

请帮忙看怎么传递函数的值，实现layer 分层控制

帐号		自动登录	找回密码
密码			立即注册

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

相关帖子