后处理多坐标系检测

刘子项

有时候我们编程可能会使用到多个坐标系，然后将程序给调机的会忘记告诉他使用了多个坐标系，而他也可能因为疏忽，不去复查程序导致撞机的恶性事件发生
在此附上一段代码，基本思路检查当前操作从属几何体的值与下一个操作从属几何体的值比较，如果相同则不输出警告，不同则警告，但并不阻止后处理。希望在此抛砖引玉，路过的大师请多多指正，将这个自定义命令放在程序头就行了。测试了一下还是可行的
global mom_oper_geom
global mom_next_oper_geom
if {$mom_oper_geom!=$mom_next_oper_geom
} {
        MOM_display_message "请注意有多个工件坐标系"

    }
}

刘子项

这段代码检测的集合体所以有缺陷，需要的换下面这段检测坐标偏置值
global mom_fixture_offset_value offset_flag
if {![info exists offset_flag]} {
    set offset_flag 0
}
if {[string compare $mom_fixture_offset_value 1]&&![string compare $offset_flag 0]} {
    set msg [MOM_display_message 程序中包含多个坐标系，请选择 后处理消息 I 按原程序输出  中止后处理]
    switch $msg {
        1 {
            set offset_flag 1
        }
        2 {
            MOM_abort 中止
        }
    }
}



补充内容 (2019-8-25 09:07):
源代码源自destiny0515，略作改动

补充内容 (2019-9-3 07:51):
程序中包含多个坐标系 改为程序中包含非G54坐标系

918439573

刘子项 发表于 2019-8-24 15:33
这段代码检测的集合体所以有缺陷，需要的换下面这段检测坐标偏置值
global mom_fixture_offset_value offs ...

谢谢大神分享

destiny0515

刘子项 发表于 2019-8-9 08:52
兄台言之有理，TCL语言不会用，惭愧
，还请不吝赐教，共同学习共同进步

兄弟过谦了
你我二人是交流技术，故无赐教之说
我有一交流群（742517459），里面的小伙伴均乃爱好技术交流之辈
望兄弟入群详细讨论

destiny0515

支持楼主分享~~
提出两个问题：
1.有时候会在一个坐标系下用不同的几何体来编程，这样就会出现提示，但坐标系没有改变，可否用装夹偏置的变量来判断。
2.如果出现坐标系多次变化，假设一百次（实际中当然很少会出现这样的情况），那么就要点击一百下对话框了。。。

coolcj

学习学习，谢谢楼主分享！

刘子项

destiny0515 发表于 2019-8-5 17:05
支持楼主分享~~
提出两个问题：
1.有时候会在一个坐标系下用不同的几何体来编程，这样就会出现提示，但坐 ...

兄台言之有理，TCL语言不会用，惭愧
，还请不吝赐教，共同学习共同进步

邵阳_新邵_一刀

学习学习，谢谢楼主分享！

918439573

非常实用

邵阳_新邵_一刀

测试了一下,相同也会提示，