求助：界面打勾问题

mmyutian · 发表于 2013-12-3 14:11

如何实现打勾执行显示一些层面，取消打勾就关掉这些层面，如图所示，打勾执行ass1on ，不打勾执行ass1off

betamelody · 发表于 2013-12-3 14:35

打勾的状态下这个field值为t 否则为nil
if(axlFormGetField(form "ASS1On") then
xxxx
else
xxxx
)

mmyutian · 发表于 2013-12-3 14:45

if(axlFormGetField(form "ASS1On") then
axlVisibleLayer("REF DES/ASSEMBLY_TOP" t)
axlVisibleUpdate(t)

else
axlVisibleLayer("REF DES/ASSEMBLY_TOP" nil)

axlVisibleUpdate(nil)
)

好像不行

betamelody · 发表于 2013-12-3 14:50

Field名字自己对照一下,好像是叫ASS1

mmyutian · 发表于 2013-12-3 15:01

请问下xxxx 代表哪一段内容

betamelody · 发表于 2013-12-3 15:06

你先确定这段代码放对地方

mmyutian · 发表于 2013-12-3 15:07

恩有对照了 field 没问题了，主要是then 后面和else 后面的内容可以用axlVisibleLayer("REF DES/ASSEMBLY_TOP" t)
axlVisibleUpdate(t)
吗？之前两个按钮点一个显示，点另外一个就关闭，现在就是想打钩就显示，不打钩就关闭

betamelody · 发表于 2013-12-3 15:09

checklist才会有变值,按钮又不会有变值

mmyutian · 发表于 2013-12-3 15:38

axlCmdRegister("display" 'Display)

procedure(Display()
let((Displayfile myform)
Displayfile = axlTempFile()
myform = outfile(Displayfile "w")
fprintf(myform "#Created by xml2bnf  perl utility\n")
fprintf(myform "#Coded by Venkata Ramanan/Santa Clara, CA\n\n")
fprintf(myform "FILE_TYPE=FORM_DEFN VERSION=2\n")
fprintf(myform "FORM AUTOGREYTEXT\n")
fprintf(myform "FIXED\n")
fprintf(myform "PORT 23 22\n")
fprintf(myform "HEADER \"ZZ tools\"\n\n")
fprintf(myform "POPUP <ENUM>\"ITEM1\"\"0\",\"ITEM2\"\"1\",\"ITEM3\"\"2\",\"LAST ONE\"\"3\".\n\n")
fprintf(myform "TILE\n\n")
fprintf(myform "## Text Field in Form## \n")
fprintf(myform "TEXT \"SilkTop\"\n")
fprintf(myform "FLOC 1 1\n")
fprintf(myform "TGROUP \"PBTop\"\n")
fprintf(myform "ENDTEXT\n\n")
fprintf(myform "## Button Field in FORM ## \n")
fprintf(myform "FIELD SilkTopOn\n")
fprintf(myform "FLOC 8 1\n")
fprintf(myform "MENUBUTTON \"On\" 5 3\n")
fprintf(myform "FGROUP \"PBTop\"\n")
fprintf(myform "ENDFIELD \n\n")
fprintf(myform "## Button Field in FORM ## \n")
fprintf(myform "FIELD SilkTopOff\n")
fprintf(myform "FLOC 15 1\n")
fprintf(myform "MENUBUTTON \"Off\" 5 3\n")
fprintf(myform "FGROUP \"PBTop\"\n")
fprintf(myform "ENDFIELD \n\n")
fprintf(myform "## Text Field in Form## \n")
fprintf(myform "TEXT \"SilkBot\"\n")
fprintf(myform "FLOC 1 3\n")
fprintf(myform "TGROUP \"PBTop\"\n")
fprintf(myform "ENDTEXT\n\n")
fprintf(myform "## Button Field in FORM ## \n")
fprintf(myform "FIELD SilkBotOn\n")
fprintf(myform "FLOC 8 3\n")
fprintf(myform "MENUBUTTON \"On\" 5 3\n")
fprintf(myform "FGROUP \"PBTop\"\n")
fprintf(myform "ENDFIELD \n\n")
fprintf(myform "## Button Field in FORM ## \n")
fprintf(myform "FIELD SilkBotOff\n")
fprintf(myform "FLOC 15 3\n")
fprintf(myform "MENUBUTTON \"Off\" 5 3\n")
fprintf(myform "FGROUP \"PBTop\"\n")
fprintf(myform "ENDFIELD \n\n")
fprintf(myform "## Text Field in Form## \n")
fprintf(myform "TEXT \"SoldTop\"\n")
fprintf(myform "FLOC 1 5\n")
fprintf(myform "TGROUP \"PBTop\"\n")
fprintf(myform "ENDTEXT\n\n")
fprintf(myform "## Button Field in FORM ## \n")
fprintf(myform "FIELD SoldTopOn\n")
fprintf(myform "FLOC 8 5\n")
fprintf(myform "MENUBUTTON \"On\" 5 3\n")
fprintf(myform "FGROUP \"PBTop\"\n")
fprintf(myform "ENDFIELD \n\n")
fprintf(myform "## Button Field in FORM ## \n")
fprintf(myform "FIELD SoldTopOff\n")
fprintf(myform "FLOC 15 5\n")
fprintf(myform "MENUBUTTON \"Off\" 5 3\n")
fprintf(myform "FGROUP \"PBTop\"\n")
fprintf(myform "ENDFIELD \n\n")
fprintf(myform "## Text Field in Form## \n")
fprintf(myform "TEXT \"SoldBot\"\n")
fprintf(myform "FLOC 1 7\n")
fprintf(myform "TGROUP \"PBTop\"\n")
fprintf(myform "ENDTEXT\n\n")
fprintf(myform "## Button Field in FORM ## \n")
fprintf(myform "FIELD SoldBotOn\n")
fprintf(myform "FLOC 8 7\n")
fprintf(myform "MENUBUTTON \"On\" 5 3\n")
fprintf(myform "FGROUP \"PBTop\"\n")
fprintf(myform "ENDFIELD \n\n")
fprintf(myform "## Button Field in FORM ## \n")
fprintf(myform "FIELD SoldBotOff\n")
fprintf(myform "FLOC 15 7\n")
fprintf(myform "MENUBUTTON \"Off\" 5 3\n")
fprintf(myform "FGROUP \"PBTop\"\n")
fprintf(myform "ENDFIELD \n\n")
fprintf(myform "## Text Field in Form## \n")
fprintf(myform "TEXT \"PBTop\"\n")
fprintf(myform "FLOC 1 9\n")
fprintf(myform "TGROUP \"PBTop\"\n")
fprintf(myform "ENDTEXT\n\n")
fprintf(myform "## Button Field in FORM ## \n")
fprintf(myform "FIELD PBTopOn\n")
fprintf(myform "FLOC 8 9\n")
fprintf(myform "MENUBUTTON \"On\" 5 3\n")
fprintf(myform "FGROUP \"PBTop\"\n")
fprintf(myform "ENDFIELD \n\n")
fprintf(myform "## Button Field in FORM ## \n")
fprintf(myform "FIELD PBTopOff\n")
fprintf(myform "FLOC 15 9\n")
fprintf(myform "MENUBUTTON \"Off\" 5 3\n")
fprintf(myform "FGROUP \"PBTop\"\n")
fprintf(myform "ENDFIELD \n\n")
fprintf(myform "## Text Field in Form## \n")
fprintf(myform "TEXT \"PBBot\"\n")
fprintf(myform "FLOC 1 11\n")
fprintf(myform "TGROUP \"PBTop\"\n")
fprintf(myform "ENDTEXT\n\n")
fprintf(myform "## Button Field in FORM ## \n")
fprintf(myform "FIELD PBBotOn\n")
fprintf(myform "FLOC 8 11\n")
fprintf(myform "MENUBUTTON \"On\" 5 3\n")
fprintf(myform "FGROUP \"PBTop\"\n")
fprintf(myform "ENDFIELD \n\n")
fprintf(myform "## Button Field in FORM ## \n")
fprintf(myform "FIELD PBBotOff\n")
fprintf(myform "FLOC 15 11\n")
fprintf(myform "MENUBUTTON \"Off\" 5 3\n")
fprintf(myform "FGROUP \"PBTop\"\n")
fprintf(myform "ENDFIELD \n\n")
fprintf(myform "## Text Field in Form## \n")
fprintf(myform "TEXT \"Ref DES\"\n")
fprintf(myform "FLOC 1 13\n")
fprintf(myform "TGROUP \"PBTop\"\n")
fprintf(myform "ENDTEXT\n\n")
fprintf(myform "## Button Field in FORM ## \n")
fprintf(myform "FIELD RTop\n")
fprintf(myform "FLOC 8 13\n")
fprintf(myform "MENUBUTTON \"RTop\" 5 3\n")
fprintf(myform "FGROUP \"PBTop\"\n")
fprintf(myform "ENDFIELD \n\n")
fprintf(myform "## Button Field in FORM ## \n")
fprintf(myform "FIELD RBot\n")
fprintf(myform "FLOC 15 13\n")
fprintf(myform "MENUBUTTON \"RBot\" 5 3\n")
fprintf(myform "FGROUP \"PBTop\"\n")
fprintf(myform "ENDFIELD \n\n")
fprintf(myform "## Text Field in Form## \n")
fprintf(myform "TEXT \"Other\"\n")
fprintf(myform "FLOC 1 15\n")
fprintf(myform "TGROUP \"PBTop\"\n")
fprintf(myform "ENDTEXT\n\n")
fprintf(myform "## Button Field in FORM ## \n")
fprintf(myform "FIELD CGOn\n")
fprintf(myform "FLOC 8 15\n")
fprintf(myform "MENUBUTTON \"CGOn\" 5 3\n")
fprintf(myform "FGROUP \"PBTop\"\n")
fprintf(myform "ENDFIELD \n\n")
fprintf(myform "## Button Field in FORM ## \n")
fprintf(myform "FIELD CAll\n")
fprintf(myform "FLOC 15 15\n")
fprintf(myform "MENUBUTTON \"CAll\" 5 3\n")
fprintf(myform "FGROUP \"PBTop\"\n")
fprintf(myform "ENDFIELD \n\n")
fprintf(myform "ENDTILE\n\n")
fprintf(myform "ENDFORM\n\n")
close(myform)

      myform = axlFormCreate(gensym() Displayfile '("NE" "msglines" 0) 'DisplayAction t nil)
      axlFormDisplay(myform)
      axlFormSetField(myform "sub_menuclass" 1)
when(isFile(Displayfile)
deleteFile(Displayfile)
)
)
)

procedure(DisplayAction(myform)
let(n( )
case(myform->curField
("SilkTopOn"
      axlVisibleLayer("PACKAGE GEOMETRY/SILKSCREEN_TOP" t)
      axlVisibleLayer("BOARD GEOMETRY/SILKSCREEN_TOP" t)
axlVisibleUpdate(t)
;Button Field
;Enter Action Here

)
("SilkTopOff"
      axlVisibleLayer("PACKAGE GEOMETRY/SILKSCREEN_TOP" nil)
      axlVisibleLayer("BOARD GEOMETRY/SILKSCREEN_TOP" nil)
axlVisibleUpdate(nil)
;Button Field
;Enter Action Here

)
("SilkBotOn"
axlVisibleLayer("PACKAGE GEOMETRY/SILKSCREEN_BOTTOM" t)
      axlVisibleLayer("BOARD GEOMETRY/SILKSCREEN_BOTTOM" t)
axlVisibleUpdate(t)
;Button Field
;Enter Action Here

)
("SilkBotOff"
axlVisibleLayer("PACKAGE GEOMETRY/SILKSCREEN_BOTTOM" nil)
      axlVisibleLayer("BOARD GEOMETRY/SILKSCREEN_BOTTOM" nil)
axlVisibleUpdate(nil)
;Button Field
;Enter Action Here

)
("SoldTopOn"
axlVisibleLayer("PACKAGE GEOMETRY/SOLDERMASK_TOP" t)
      axlVisibleLayer("BOARD GEOMETRY/SOLDERMASK_TOP" t)
axlVisibleUpdate(t)
;Button Field
;Enter Action Here

)
("SoldTopOff"
axlVisibleLayer("PACKAGE GEOMETRY/SOLDERMASK_TOP" nil)
      axlVisibleLayer("BOARD GEOMETRY/SOLDERMASK_TOP" nil)
axlVisibleUpdate(nil)
;Button Field
;Enter Action Here

)
("SoldBotOn"
axlVisibleLayer("PACKAGE GEOMETRY/SOLDERMASK_BOTTOM" t)
      axlVisibleLayer("BOARD GEOMETRY/SOLDERMASK_BOTTOM" t)
axlVisibleUpdate(t)
;Button Field
;Enter Action Here

)
("SoldBotOff"
axlVisibleLayer("PACKAGE GEOMETRY/SOLDERMASK_BOTTOM" nil)
      axlVisibleLayer("BOARD GEOMETRY/SOLDERMASK_BOTTOM" nil)
axlVisibleUpdate(nil)
;Button Field
;Enter Action Here

)
("PBTopOn"
axlVisibleLayer("PACKAGE GEOMETRY/PLACE_BOUND_TOP" t)
      axlVisibleLayer("BOARD GEOMETRY/PLACE_BOUND_TOP" t)
axlVisibleUpdate(t)
;Button Field
;Enter Action Here

)
("PBTopOff"
axlVisibleLayer("PACKAGE GEOMETRY/PLACE_BOUND_TOP" nil)
      axlVisibleLayer("BOARD GEOMETRY/PLACE_BOUND_TOP" nil)
axlVisibleUpdate(nil)
;Button Field
;Enter Action Here

)
("PBBotOn"
axlVisibleLayer("PACKAGE GEOMETRY/PLACE_BOUND_BOTTOM" t)
      axlVisibleLayer("BOARD GEOMETRY/PLACE_BOUND_BOTTOM" t)
axlVisibleUpdate(t)
;Button Field
;Enter Action Here

)
("PBBotOff"
axlVisibleLayer("PACKAGE GEOMETRY/PLACE_BOUND_BOTTOM" nil)
      axlVisibleLayer("BOARD GEOMETRY/PLACE_BOUND_BOTTOM" nil)
axlVisibleUpdate(nil)
;Button Field
;Enter Action Here

)
("RTop"
      axlVisibleDesign(nil)
      axlVisibleLayer("BOARD GEOMETRY/OUTLINE" t)
      axlVisibleLayer("PACKAGE GEOMETRY/SILKSCREEN_TOP" t)
      axlVisibleLayer("BOARD GEOMETRY/SILKSCREEN_TOP" t)
      axlVisibleLayer("REF DES/SILKSCREEN_TOP" t)
      axlVisibleLayer("PIN/TOP" t)
axlVisibleUpdate(t)
;Button Field
;Enter Action Here

)
("RBot"
      axlVisibleDesign(nil)
      axlVisibleLayer("BOARD GEOMETRY/OUTLINE" t)
      axlVisibleLayer("PACKAGE GEOMETRY/SILKSCREEN_BOTTOM" t)
      axlVisibleLayer("BOARD GEOMETRY/SILKSCREEN_BOTTOM" t)
      axlVisibleLayer("REF DES/SILKSCREEN_BOTTOM" t)
      axlVisibleLayer("PIN/BOTTOM" t)
axlVisibleUpdate(t)
;Button Field
;Enter Action Here

)
("CGOn"
axlVisibleLayer("CONSTRAINT REGION/ALL" t)
axlVisibleUpdate(t)
;Button Field
;Enter Action Here

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

)
)
)

if((nequal myform->doneState 1)
axlFormClose(myform)

)

以上是之前网站上其他人的代码想把按钮改为打勾选择

传说影I · 发表于 2013-12-26 13:43

这是自己写skill么

mmyutian · 发表于 2014-1-16 20:05

传说影I 发表于 2013-12-26 13:43
这是自己写skill么

是别人的

pallayout · 发表于 2014-11-26 17:17

https://www.eda365.com/thread-102931-1-1.html

		自动登录	找回密码
密码			注册

求助：界面打勾问题

本帖子中包含更多资源

本帖子中包含更多资源

点评

推荐内容 /1