求大神帮忙，在帖子里找到一个skill，想修改一下，但能力太差

1621142761

zs_king 发表于 2022-03-28 19:21:05
不如对着365里面的quicklayer做。

想做，但是能力有限，不会写，只会照搬????

1621142761

aarom 发表于 2022-03-28 22:11:41

我做的是這樣.

这样要是想要的层面多了界面就会很大

1621142761

aarom 发表于 2022-03-29 08:12:15


顯示一齊選或不選......
defun( ViewLayer_Callback (h)
        case( h -> curField
              ("outline_check"
                axlVisibleLayer("BOARD GEOMETRY/OUTLINE" ,h->curValue)
                axlVisibleLayer("BOARD GEOMETRY/DESIGN_OUTLINE" ,h->curValue)
                axlVisibleLayer("BOARD GEOMETRY/CUTOUT" ,h->curValue)
                axlFormSetField(w,"outline_color",axlLayerGet("BOARD GEOMETRY/OUTLINE")->visible)                  ;傳回chechlist-"outline_color" 選或不選,但顏色黑是另外處理.
                axlFormSetField(w,"outline_color1",axlLayerGet("BOARD GEOMETRY/DESIGN_OUTLINE")->visible)
                axlFormSetField(w,"outline_color2",axlLayerGet("BOARD GEOMETRY/CUTOUT")->visible)
                axlVisibleUpdate(t)
              )

              ("SilkT_check"
                axlVisibleLayer("REF DES/SILKSCREEN_TOP" ,h->curValue)
                axlVisibleLayer("ACKAGE GEOMETRY/SILKSCREEN_TOP" ,h->curValue)
                axlVisibleLayer("BOARD GEOMETRY/SILKSCREEN_TOP" ,h->curValue)
                axlFormSetField(w,"SilkT_color",axlLayerGet("REF DES/SILKSCREEN_TOP")->visible)
                axlFormSetField(w,"SilkT_color1",axlLayerGet("ACKAGE GEOMETRY/SILKSCREEN_TOP")->visible)
                axlFormSetField(w,"SilkT_color2",axlLayerGet("BOARD GEOMETRY/SILKSCREEN_TOP")->visible)
                axlVisibleUpdate(t)
              )

这个是ON和OFF吗？怎么在按钮上加载呢

selena19730105

哭哭~又是威望值不夠不能下載~

1621142761

aarom 发表于 2022-3-29 08:12
顯示一齊選或不選......
defun( ViewLayer_Callback (h)
        case( h -> curField

不好意思，看错了，我试了下你的方法，但是不知为啥我做的点子选项无法开关，能否帮忙看下

1621142761

1621142761 发表于 2022-3-29 19:52
不好意思，看错了，我试了下你的方法，但是不知为啥我做的点子选项无法开关，能否帮忙看下

另外添加附件

1621142761

selena19730105 发表于 2022-3-29 15:49
哭哭~又是威望值不夠不能下載~

不是完整版的，ON和OFF还不知道怎么做，正在请各路大神帮忙

1621142761

zs_king 发表于 2022-3-29 07:18
像这个类型的代码，可以相同样式的，用List+循环来做，可能会稍微好点 ！
下面这个图提供一下思路。。 ...

这个写法挺好，是做了一个排列，虽然不会写，但有些能看懂

1621142761

zs_king 发表于 2022-03-30 11:23:28
[quote]1621142761 发表于 2022-03-29 19:58:27
[quote]selena19730105 发表于 2022-3-29 15:49
哭哭~又是威望值不夠不能下載~

不是完整版的，ON和OFF还不知道怎么做，正在请各路大神帮忙
[/quote]

on off 实际上，在判断点击的是这个控件时，执行一条代码。。  axlVisableDesign(nil)    是全关。。nil改成t 是全开单词可能不完全拼对。。。大概差不多哦。。。后面最好价格显示相关的update。。手机打字，函数就不说精确的拼写了。。见谅
[/quote]

好的，我晚上回去试一下

1621142761

zs_king 发表于 2022-3-30 11:23
不是完整版的，ON和OFF还不知道怎么做，正在请各路大神帮忙

[/quote]

试了一下，可以开关了，是axlVisibleDesign，在其他skill文件中找到的，如下图，不足的是点ON的时候其他的命令没有自动勾选，点OFF的时候其他命令也没有自动去掉勾选，这个该如何写呢

1621142761

aarom 发表于 2022-3-29 08:12
顯示一齊選或不選......
defun( ViewLayer_Callback (h)
        case( h -> curField

您好，请问按照这个做了，但是点击颜色按钮关闭，这个按钮不能变成黑色，能否帮忙看下是哪的原因，谢谢！如下源码
axlCmdRegister( "ViewLayer" 'ViewLayer ?cmdType "general")
defun( ViewLayer ()
let((f h)
        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 "FIELD SilkT\n")
        fprintf(h "FLOC 2 0\n")
        fprintf(h "CHECKLIST \"SilkT\"\n")
        fprintf(h "ENDFIELD\n")

        fprintf(h "FIELD SilkT_color_B\n")
        fprintf(h "FLOC 2 2\n")
        fprintf(h "COLOR 2 1\n")
        fprintf(h "ENDFIELD\n")

        fprintf(h "FIELD SilkT_color_P\n")
        fprintf(h "FLOC 2 4\n")
        fprintf(h "COLOR 2 1\n")
        fprintf(h "ENDFIELD\n")

        fprintf(h "FIELD SilkT_color_R\n")
        fprintf(h "FLOC 2 6\n")
        fprintf(h "COLOR 2 1\n")
        fprintf(h "ENDFIELD\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_P",axlLayerGet("PACKAGE GEOMETRY/SILKSCREEN_TOP")->color)
                axlFormSetField(w,"SilkT_color_B",axlLayerGet("BOARD GEOMETRY/SILKSCREEN_TOP")->color)
                axlFormSetField(w,"SilkT_color_R",axlLayerGet("REF DES/SILKSCREEN_TOP")->visible)
                axlFormSetField(w,"SilkT_color_P",axlLayerGet("PACKAGE GEOMETRY/SILKSCREEN_TOP")->visible)
                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(w,"SilkT_color_R",axlLayerGet("REF DES/SILKSCREEN_TOP")->visible)
                axlFormSetField(w,"SilkT_color_P",axlLayerGet("PACKAGE GEOMETRY/SILKSCREEN_TOP")->visible)
                axlFormSetField(w,"SilkT_color_B",axlLayerGet("BOARD GEOMETRY/SILKSCREEN_TOP")->visible)
                axlVisibleUpdate(t))
               ("SilkT_color_R"
                axlVisibleLayer("REF DES/SILKSCREEN_TOP" ,h->curValue)
                axlVisibleUpdate(t))
              ("SilkT_color_P"
                axlVisibleLayer("PACKAGE GEOMETRY/SILKSCREEN_TOP" ,h->curValue)
                axlVisibleUpdate(t))
              ("SilkT_color_B"
                axlVisibleLayer("BOARD GEOMETRY/SILKSCREEN_TOP" ,h->curValue)
                axlVisibleUpdate(t))
        )
)