谢谢分享！谢谢分享！
虽然看不懂 但是得点赞 膜拜 大神
感谢大师分享经验
厉害厉害。能把源码发出来吗？我想要这个功能，没做成功
w_y8266* 发表于 2021-7-19 16:43
厉害厉害。能把源码发出来吗？我想要这个功能，没做成功
所有的源代码都在上面
感谢大师分享经验，需要你这种分享精神会更精彩！！
本帖最后由 w_y8266* 于 2021-7-19 22:58 编辑
destiny0515 发表于 2021-7-19 20:48
所有的源代码都在上面
我抄了下来，但是UG后处理报警。for {set i 0} {$i < 3} {incr i} {
set blank_mcs($i)
}
proc MTX3_vec_multiply {u m w} {
upvar $u ul; upvar $m ml; upvar $w wl
set wl(0)
set wl(1)
set wl(2)
}
MTX3_vec_multiply blank_mcs mom_msys_matrix blank_mcs_center
mom_blank_block_length 毛坯的长
mom_blank_block_width 毛坯的宽
mom_blank_block_height 毛坯的高
mom_blank_block_center 毛坯中心相对于ACS的位置
mom_msys_origin MCS原点相对于ACS的位置
mom_msys_matrix MCS姿态的9值矩阵
set blank_xx
set blank_yy
set blank_zz
set blank_x_left
set blank_y_front
set fol_height
set blank_mcs_center(2)
#X位置
if { } {
MOM_output_text "(X分中)"
} elseif {} {
MOM_output_text "(X左端为零)"
} elseif {} {
MOM_output_text "(X右端为零)"
} else {
MOM_output_text "(X分中偏移)"
}
#Y位置
if { } {
MOM_output_text "(Y分中)"
} elseif {} {
MOM_output_text "(Y下端为零)"
} elseif {} {
MOM_output_text "(Y上端为零)"
} else {
MOM_output_text "(Y分中偏移)"
}
#Z位置
if { } {
MOM_output_text "(Z顶面为零)"
} elseif {} {
MOM_output_text "(Z底面为零)"
} else {
MOM_output_text "(Z顶面偏移)"
}
感谢大师分享经验，需要你这种分享精神会更精彩！！
{:handshake:}{:handshake:}{:handshake:}
完完全全彻彻底底看不懂..................
按照大师给的代码做了一下，几个极端的点都能输出，但是其他点输出时blank_mcs_center值有问题，应该是“矩阵与转置矩阵的乘积”这个代码有问题，麻烦大概指点下代码的用法，我来看看是格式2有问题还是什么问题