登录【网站注册】点击左边“微信账号登陆”图标,微信扫描即自动注册并登陆
搜索
查看: 1456|回复: 1

[PowerMILL] 这个变颜色的宏怎么添加到右键菜单?整好久都没搞定

[复制链接]
发表于 2017-6-18 19:43:13 | 显示全部楼层 |阅读模式
DIALOGS MESSAGE OFF
DIALOGS ERROR OFF
GRAPHICS LOCK
VIEW MODEL ; SHADE RAINBOW
EDIT MODEL ALL DESELECT ALL
//平坦面 黄色
EDIT SELECTUNDERCUT MODEL ALL FORM SELECTUNDERCUT
VIEW MODEL ; UCANGLE "90"
EDIT SELECTIONTOOLS MATCH_DRAFT_ANGLE YES
EDIT SELECTIONTOOLS INCLUDE_PARTIALS NO
FORM APPLY SELECTUNDERCUT
VIEW MODEL ; UCANGLE "-90"
FORM APPLY SELECTUNDERCUT
FOREACH Model IN FOLDER('Model') {
    INT i =number_selected(Model.Components)
    IF i>0 {
      EDIT MODEL $Model.Name COLOUR RGBSELECT
      RGB 1.00000 1.00000 0.00000
    }
}
EDIT MODEL ALL DESELECT ALL
//垂直面 紫色
VIEW MODEL ; UCANGLE "0"
FORM APPLY SELECTUNDERCUT
FOREACH Model IN FOLDER('Model') {
    INT i =number_selected(Model.Components)
    IF i>0 {
      EDIT MODEL $Model.Name COLOUR RGBSELECT
      RGB 0.50196 0.00000 1.00000
    }
}
EDIT MODEL ALL DESELECT ALL
//倒扣面 红色
VIEW MODEL ; UCANGLE "-0.01"
EDIT SELECTIONTOOLS MATCH_DRAFT_ANGLE NO
EDIT SELECTIONTOOLS INCLUDE_PARTIALS YES
FORM APPLY SELECTUNDERCUT
FOREACH Model IN FOLDER('Model') {
    INT i =number_selected(Model.Components)
    IF i>0 {
      EDIT MODEL $Model.Name COLOUR RGBSELECT
      RGB 1.00000 0.00000 0.00000
    }
}
FORM ACCEPT SELECTUNDERCUT
EDIT MODEL ALL DESELECT ALL
//曲面
EDIT SELECTION SMART NO FORM MODELSELECT
EDIT SELECTION APPROXIMATE 'web'
EDIT SELECTION MODEL FILTER "255,0,0"
EDIT SELECTION MODEL FILTER "255,255,0"
EDIT SELECTION MODEL FILTER "128,0,255"
FORM CANCEL MODELSELECT
FOREACH Model IN FOLDER('Model') {
    INT i =number_selected(Model.Components)
    IF i>0 {
      EDIT MODEL $Model.Name SELECT INVERT ALL
      EDIT MODEL $Model.Name COLOUR RGBSELECT
      RGB 0.50196 1.00000 1.00000
    }
}
EDIT MODEL ALL DESELECT ALL
EDIT SELECTUNDERCUT MODEL ALL FORM SELECTUNDERCUT
VIEW MODEL ; UCANGLE "-90"
EDIT SELECTIONTOOLS MATCH_DRAFT_ANGLE YES
EDIT SELECTIONTOOLS INCLUDE_PARTIALS NO
FORM APPLY SELECTUNDERCUT
FOREACH Model IN FOLDER('Model') {
    INT i =number_selected(Model.Components)
    IF i>0 {
      EDIT MODEL $Model.Name COLOUR RGBSELECT
      RGB 1.00000 1.00000 0.00000
    }
}
FORM ACCEPT SELECTUNDERCUT
EDIT MODEL ALL DESELECT ALL
DIALOGS MESSAGE ON
DIALOGS ERROR ON
GRAPHICS UNLOCK
164540f0u7quviezumsuu5.png.thumb.jpg
【温馨提示】技术问题请优先发到问答专栏,优胜教师团队将及时回复,谢谢! ...
发表于 2017-6-20 10:20:21 | 显示全部楼层
请参考优胜外挂,记事本打开D:\YSPM\sys\Pmill2\user_menu,按格式添加宏
http://www.ysug.com/html/jishuchengguo/2013/0326/15429.html
【温馨提示】技术问题请优先发到问答专栏,优胜教师团队将及时回复,谢谢!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则


快速回复 返回顶部 返回列表