TA的每日心情 | 开心 2022-12-22 15:27 |
|---|
签到天数: 62 天 [LV.6]常住居民II
|
哈哈,这是要接力么,我改正常了你们继续
axlCmdRegister( "ViewLayer" 'ViewLayer ?cmdType "general")
defun( ViewLayer ()
let((f h w)
f = axlTempFile()
h = outfile(f "w")
fprintf(h "FILE_TYPE=FORM_DEFN VERSION=2\n")
fprintf(h "FORM\n")
fprintf(h "FIXED\n")
fprintf(h "PORT 41 15\n")
fprintf(h "HEADER \"EDA365 skill\"\n")
fprintf(h "TILE\n")
fprintf(h "TABSET \"TAB\"\n")
fprintf(h "OPTIONS tabsetDispatch\n")
fprintf(h "FLOC 2 0\n")
fprintf(h "FSIZE 41 15\n")
fprintf(h "TAB \"layers\"\n")
fprintf(h "GROUP \"layers\"\n")
fprintf(h "GLOC 2 2\n")
fprintf(h "GSIZE 40 14\n")
fprintf(h "ENDGROUP\n")
fprintf(h "FIELD SilkT\n")
fprintf(h "FLOC 2 4\n")
fprintf(h "CHECKLIST \"SilkT\"\n")
fprintf(h "ENDFIELD\n")
fprintf(h "FIELD SilkT_color_B\n")
fprintf(h "FLOC 2 6\n")
fprintf(h "COLOR 2 1\n")
fprintf(h "ENDFIELD\n")
fprintf(h "FIELD SilkT_color_P\n")
fprintf(h "FLOC 2 8\n")
fprintf(h "COLOR 2 1\n")
fprintf(h "ENDFIELD\n")
fprintf(h "FIELD SilkT_color_R\n")
fprintf(h "FLOC 2 10\n")
fprintf(h "COLOR 2 1\n")
fprintf(h "ENDFIELD\n")
fprintf(h "ENDTAB\n")
fprintf(h "TAB \"other\"\n")
fprintf(h "GROUP \"other\"\n")
fprintf(h "GLOC 4 2\n")
fprintf(h "GSIZE 40 14\n")
fprintf(h "ENDGROUP\n")
fprintf(h "ENDTAB\n")
fprintf(h "ENDTABSET\n")
fprintf(h "ENDTILE\n")
fprintf(h "ENDFORM\n")
close(h)
w = axlFormCreate(gensym() f nil 'ViewLayer_Callback t)
axlFormSetField(w,"SilkT_color_R",axlLayerGet("REF DES/SILKSCREEN_TOP")->color)
axlFormSetField(w,"SilkT_color_R",axlLayerGet("REF DES/SILKSCREEN_TOP")->visible)
axlFormDisplay(w)
axlFormSetField(w,"SilkT_color_P",axlLayerGet("CKAGE GEOMETRY/SILKSCREEN_TOP")->color)
axlFormSetField(w,"SilkT_color_P",axlLayerGet("CKAGE GEOMETRY/SILKSCREEN_TOP")->visible)
axlFormDisplay(w)
axlFormSetField(w,"SilkT_color_B",axlLayerGet("BOARD GEOMETRY/SILKSCREEN_TOP")->color)
axlFormSetField(w,"SilkT_color_B",axlLayerGet("BOARD GEOMETRY/SILKSCREEN_TOP")->visible)
axlFormDisplay(w)
))
defun( ViewLayer_Callback (h)
case( h->curField
("SilkT"
axlVisibleLayer("REF DES/SILKSCREEN_TOP" ,h->curValue)
axlVisibleLayer("PACKAGE GEOMETRY/SILKSCREEN_TOP" ,h->curValue)
axlVisibleLayer("BOARD GEOMETRY/SILKSCREEN_TOP" ,h->curValue)
axlFormSetField(h,"SilkT_color_R",if(h->curValue then axlLayerGet("REF DES/SILKSCREEN_TOP")->color else 0))
axlFormSetField(h,"SilkT_color_P",if(h->curValue then axlLayerGet("REF DES/SILKSCREEN_TOP")->color else 0))
axlFormSetField(h,"SilkT_color_B",if(h->curValue then axlLayerGet("REF DES/SILKSCREEN_TOP")->color else 0))
axlColorShadowSet('mode nil)
axlVisibleUpdate(t))
("SilkT_color_R"
axlVisibleLayer("REF DES/SILKSCREEN_TOP" ,h->curValue)
axlFormSetField(h,"SilkT_color_R",if(h->curValue then axlLayerGet("REF DES/SILKSCREEN_TOP")->color else 0))
axlVisibleUpdate(t))
("SilkT_color_P"
axlVisibleLayer("PACKAGE GEOMETRY/SILKSCREEN_TOP" ,h->curValue)
axlFormSetField(h,"SilkT_color_P",if(h->curValue then axlLayerGet("REF DES/SILKSCREEN_TOP")->color else 0))
axlVisibleUpdate(t))
("SilkT_color_B"
axlVisibleLayer("BOARD GEOMETRY/SILKSCREEN_TOP" ,h->curValue)
axlFormSetField(h,"SilkT_color_B",if(h->curValue then axlLayerGet("REF DES/SILKSCREEN_TOP")->color else 0))
axlVisibleUpdate(t))
)
)
|
|