少尉
UID2715568
U币0
G币1587
技术0
主题3
精华0
阅读权限75
注册时间2017-3-16
最后登录2024-6-7
在线时间142 小时
手机18936660955
出生地江苏省 连云港市
少尉
|
代码我在网上找了一些,但不会用,有大佬帮忙加一下吗?
global mom_pos_arc_plane
global mom_sys_cir_vector
global mom_sys_helix_pitch_type
global mom_helix_pitch
global mom_prev_pos mom_pos_arc_center
global PI
switch $mom_pos_arc_plane {
XY { MOM_suppress once K ; set cir_index 2 ;if {[format "%.3f" [expr $mom_pos_arc_center(0) - $mom_prev_pos(0)]] == "0" } {MOM_suppress once I}
if {[format "%.3f" [expr $mom_pos_arc_center(1) - $mom_prev_pos(1)]] == "0" } {MOM_suppress once J} }
YZ { MOM_suppress once I ; set cir_index 0 ;if {[format "%.3f" [expr $mom_pos_arc_center(2) - $mom_prev_pos(2)]] == "0" } {MOM_suppress once K}
if {[format "%.3f" [expr $mom_pos_arc_center(1) - $mom_prev_pos(1)]] == "0" } {MOM_suppress once J}}
ZX { MOM_suppress once J ; set cir_index 1 ;if {[format "%.3f" [expr $mom_pos_arc_center(0) - $mom_prev_pos(0)]] == "0" } {MOM_suppress once I}
if {[format "%.3f" [expr $mom_pos_arc_center(2) - $mom_prev_pos(2)]] == "0" } {MOM_suppress once K}}
}
}
|
-
-
hcl.zip
35 KB, 下载次数: 35, 下载积分: G币 -1
后处理
|