EDA365电子论坛网

标题: 求助：界面打勾问题 [打印本页]

作者: mmyutian 时间: 2013-12-3 14:11
标题: 求助：界面打勾问题
如何实现打勾执行显示一些层面，取消打勾就关掉这些层面，如图所示，打勾执行ass1on ，不打勾执行ass1off

2013-12-03_13h53_05.jpg (10.69 KB, 下载次数: 3)

2013-12-03_13h59_16.png (27.97 KB, 下载次数: 3)

2013-12-03_14h00_18.jpg (25.16 KB, 下载次数: 2)

作者: 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)

)

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

2013-12-03_15h38_17.jpg (15.46 KB, 下载次数: 2)

作者: 传说影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

欢迎光临 EDA365电子论坛网 (https://bbs.eda365.com/)