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

1621142761 · 发表于 2022-3-25 23:37

EDA365欢迎您登录！

您需要登录才可以下载或查看，没有帐号？注册

x

如下图描述
源码如下，改到一半不会了
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 outline_color\n")
      fprintf(h "FLOC 2 1\n")
      fprintf(h "COLOR 2 1\n")
      fprintf(h "ENDFIELD\n")

      fprintf(h "FIELD outline_check\n")
      fprintf(h "FLOC 4 1\n")
      fprintf(h "CHECKLIST \"Board Geometry/Outline\"\n")
      fprintf(h "ENDFIELD\n")

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

      fprintf(h "FIELD SilkT_check\n")
      fprintf(h "FLOC 4 4\n")
      fprintf(h "CHECKLIST \"SilkT\"\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,"outline_color",axlLayerGet("BOARD GEOMETRY/OUTLINE")->color)
      axlFormSetField(w,"outline_check",axlLayerGet("BOARD GEOMETRY/OUTLINE")->visible)
      axlFormDisplay(w)
      axlFormSetField(w,"SilkT_color",axlLayerGet("REF DES/SILKSCREEN_TOP")->color)
      axlFormSetField(w,"SilkT_check",axlLayerGet("REF DES/SILKSCREEN_TOP")->visible)
      axlFormDisplay(w)
))

defun( ViewLayer_Callback (h)
      case( h -> cuRField
            ("outline_check"
                     axlVisibleLayer("BOARD GEOMETRY/OUTLINE" ,h->curValue)
                     axlVisibleUpdate(t)

            )
      )
)

希望添加如下多个层面
"REF DES/SILKSCREEN_TOP" "PACKAGE GEOMETRY/SILKSCREEN_TOP" "BOARD GEOMETRY/SILKSCREEN_TOP" "BOARD GEOMETRY/DESIGN_OUTLINE" "BOARD GEOMETRY/CUTOUT" "BOARD GEOMETRY/OUTLINE"

谢谢！

db-_- · 发表于 2022-3-26 17:56

上面不变。改一下这个函数就行。
功能点击一个check，开启/关闭三个层。颜色没有意义，忽略即可。

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)
axlVisibleUpdate(t)
)
("SilkT_check"
axlVisibleLayer("REF DES/SILKSCREEN_TOP" ,h->curValue)
axlVisibleLayer("PACKAGE GEOMETRY/SILKSCREEN_TOP" ,h->curValue)
axlVisibleLayer("BOARD GEOMETRY/SILKSCREEN_TOP" ,h->curValue)
axlVisibleUpdate(t)
)
)
)

复制代码

1621142761 · 发表于 2022-4-2 23:28

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))
      )
)

aarom · 发表于 2022-3-29 08:12

提示: 作者被禁止或删除内容自动屏蔽

1621142761 · 发表于 2022-3-25 23:45

图片不知怎么的看不到，重新上图

db-_- · 发表于 2022-3-26 01:36

复制粘贴不就好了。
form里面一份
初值一份
form相应函数一份

callback里面再复制这一份就好了。

("SilkT_check"
axlVisibleLayer("REF DES/SILKSCREEN_TOP" ,h->curValue)
axlVisibleUpdate(t)
)

复制代码

aarom · 发表于 2022-3-26 01:40

提示: 作者被禁止或删除内容自动屏蔽

1621142761 · 发表于 2022-3-26 08:49

aarom 发表于 2022-03-26 01:40:31
本帖最后由 aarom 于 2022-3-26 02:03 编辑

他的寫法是在 form 裡,單獨控制每層的"顏色"及"是否顯示".

你異想天開不改form, 想利用二個選項,

1."BOARD GEOMETRY/OUTLINE" 選項同時控制"BOARD GEOMETRY/DESIGN_OUTLINE" "BOARD GEOMETRY/CUTOUT" "BOARD GEOMETRY/OUTLINE".

2."SilkT"選項同時控制"REF DES/SILKSCREEN_TOP" "ACKAGE GEOMETRY/SILKSCREEN_TOP" "BOARD GEOMETRY/SILKSCREEN_TOP"

問題他是單獨層的控制! 你要你列出的層面一層一層選嗎??
你想清楚再說, 這裡應該有人會幫. (不一定會是我.)
還是只要選項不管顏色,就能一齊控.
----------------------------------------
例如:這是他 form 的"BOARD GEOMETRY/OUTLINE" 單獨控制. 每增加一個層,就要增加一組,及改Y軸數字, 判斷名稱.(你框的是判斷完要的結果.)
      fprintf(h "FIELD outline_color\n")
      fprintf(h "FLOC 2 1\n")
      fprintf(h "COLOR 2 1\n")
      fprintf(h "ENDFIELD\n")

      fprintf(h "FIELD outline_check\n")
      fprintf(h "FLOC 4 1\n")
      fprintf(h "CHECKLIST \"Board Geometry/Outline\"\n")
      fprintf(h "ENDFIELD\n")

嗯嗯，是想将skilT这个选项控制多个层面（最后列出来的那几个层面），不知如何修改，outline的那个选项按照现在单独一个层面就可以，有时间能否帮忙改下，非常感谢！

1621142761 · 发表于 2022-3-26 08:50

db-_- 发表于 2022-03-26 01:36:59
复制粘贴不就好了。
form里面一份
初值一份
form相应函数一份

callback里面再复制这一份就好了。

("SilkT_check"

axlVisibleLayer("REF DES/SILKSCREEN_TOP" ,h->curValue)

axlVisibleUpdate(t)

)
复制代码

这个复制试过，不知的哪里出了问题，就是没反应，打不开层面

1621142761 · 发表于 2022-3-26 08:52

aarom 发表于 2022-03-26 01:40:31
本帖最后由 aarom 于 2022-3-26 02:03 编辑

他的寫法是在 form 裡,單獨控制每層的"顏色"及"是否顯示".

你異想天開不改form, 想利用二個選項,

1."BOARD GEOMETRY/OUTLINE" 選項同時控制"BOARD GEOMETRY/DESIGN_OUTLINE" "BOARD GEOMETRY/CUTOUT" "BOARD GEOMETRY/OUTLINE".

2."SilkT"選項同時控制"REF DES/SILKSCREEN_TOP" "ACKAGE GEOMETRY/SILKSCREEN_TOP" "BOARD GEOMETRY/SILKSCREEN_TOP"

問題他是單獨層的控制! 你要你列出的層面一層一層選嗎??
你想清楚再說, 這裡應該有人會幫. (不一定會是我.)
還是只要選項不管顏色,就能一齊控.
----------------------------------------
例如:這是他 form 的"BOARD GEOMETRY/OUTLINE" 單獨控制. 每增加一個層,就要增加一組,及改Y軸數字, 判斷名稱.(你框的是判斷完要的結果.)
      fprintf(h "FIELD outline_color\n")
      fprintf(h "FLOC 2 1\n")
      fprintf(h "COLOR 2 1\n")
      fprintf(h "ENDFIELD\n")

      fprintf(h "FIELD outline_check\n")
      fprintf(h "FLOC 4 1\n")
      fprintf(h "CHECKLIST \"Board Geometry/Outline\"\n")
      fprintf(h "ENDFIELD\n")

就是想这一个按钮控制多个层面，所以颜色就不能用了，就想去掉就可以了

1621142761 · 发表于 2022-3-26 20:00

db-_- 发表于 2022-03-26 17:56:58
上面不变。改一下这个函数就行。
功能点击一个check，开启/关闭三个层。颜色没有意义，忽略即可。

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)

                     axlVisibleUpdate(t)

            )

("SilkT_check"

                     axlVisibleLayer("REF DES/SILKSCREEN_TOP" ,h->curValue)

axlVisibleLayer("PACKAGE GEOMETRY/SILKSCREEN_TOP" ,h->curValue)

axlVisibleLayer("BOARD GEOMETRY/SILKSCREEN_TOP" ,h->curValue)

                     axlVisibleUpdate(t)

            )

      )

)
复制代码

可以了可以了，非常感谢！

1621142761 · 发表于 2022-3-26 21:35

zs_king 发表于 2022-03-26 20:50:01
[quote]db-_- 发表于 2022-03-26 17:56:58
上面不变。改一下这个函数就行。
功能点击一个check，开启/关闭三个层。颜色没有意义，忽略即可。

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)

                     axlVisibleUpdate(t)

            )

("SilkT_check"

                     axlVisibleLayer("REF DES/SILKSCREEN_TOP" ,h->curValue)

axlVisibleLayer("PACKAGE GEOMETRY/SILKSCREEN_TOP" ,h->curValue)

axlVisibleLayer("BOARD GEOMETRY/SILKSCREEN_TOP" ,h->curValue)

                     axlVisibleUpdate(t)

            )

      )

)
复制代码

活跃，耐心，热心。
[/quote]

高手无处不在，想问下按钮和旁边的字的字号怎么调，能不能调大点

aarom · 发表于 2022-3-27 20:04

提示: 作者被禁止或删除内容自动屏蔽

1621142761 · 发表于 2022-3-27 21:05

aarom 发表于 2022-3-27 20:04
建議勾選和顏色要分開.
可以一起選或單獨選開關, 不然就只留勾選.
只是建議

嗯嗯，这个看着挺舒服，我想做一些快捷开关层面，太多了，所以就简化了，只留了主要的，包含的就不用显示了

1621142761 · 发表于 2022-3-28 19:17

aarom 发表于 2022-3-27 20:04
建議勾選和顏色要分開.
可以一起選或單獨選開關, 不然就只留勾選.
只是建議

做成这样了，不过我又有问题了，做了个on和off，这两个不知道怎么做，能不能帮忙添加一下，想让点ON的时候打开面板上所有加载的层，而且所有选项都打上勾，点OFF的时候，关闭所有层，且所有选项都去掉勾，

1621142761 · 发表于 2022-3-28 19:20

1621142761 发表于 2022-3-28 19:17
做成这样了，不过我又有问题了，做了个on和off，这两个不知道怎么做，能不能帮忙添加一下，想让点ON的时 ...

重新上传附件

aarom · 发表于 2022-3-28 22:11

提示: 作者被禁止或删除内容自动屏蔽

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

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

EDA365欢迎您登录！

点评

点评

点评

浏览过的版块

推荐内容 /1