Hypermesh二次开发之找目标面

逻辑：step1：找到几何的最大最小边界坐标step2：通过坐标计算这四个外表面的中心点step3：通过点到面的距离得到最小距离及对应的面ID step4：索引面的ID

namespace eval ::Geom::Find {}proc ::Geom::Find::surfaceGetMethod3 {CompName} {  # ----------------------------------------------  #最大最小坐标计算  *createmark surfs 1 "$CompName"  set allSurf [hm_getmark surfs 1]  set compCoord [hm_getboundingbox surfs 1 2 0 0]  foreach {x_min y_min z_min x_max y_max z_max} $compCoord {}  # ----------------------------------------------  #计算四个外表面的中心坐标  set Point1 "[expr (abs($x_max)- abs($x_min))/2] $y_max [expr (abs($z_max)- abs($z_min))/2]"  set Point2 "[expr (abs($x_max)- abs($x_min))/2] $y_min [expr (abs($z_max)- abs($z_min))/2]"  set Point3 "[expr (abs($x_max)- abs($x_min))/2] [expr (abs($y_max)- abs($y_min))/2] $z_max"  set Point4 "[expr (abs($x_max)- abs($x_min))/2] [expr (abs($y_max)- abs($y_min))/2] $z_min"  foreach {x1 y1 z1} $Point1 {}  foreach {x2 y2 z2} $Point2 {}  foreach {x3 y3 z3} $Point3 {}  foreach {x4 y4 z4} $Point4 {}  # ----------------------------------------------  #得出四个外表面的ID  set surf1 [lindex [hm_getdistancefromnearestsurface [list $x1 $y1 $z1] [list {*}$allSurf]] 1]  set surf2 [lindex [hm_getdistancefromnearestsurface [list $x2 $y2 $z2] [list {*}$allSurf]] 1]  set surf3 [lindex [hm_getdistancefromnearestsurface [list $x3 $y3 $z3] [list {*}$allSurf]] 1]  set surf4 [lindex [hm_getdistancefromnearestsurface [list $x4 $y4 $z4] [list {*}$allSurf]] 1]  # *createmark surfs 1 $surf1 $surf2 $surf3 $surf4  # hm_highlightmark surfs 1 "h"}::Geom::Find::surfaceGetMethod3 $CompName

逻辑：step1：通过抽中面的命令抽中几何的外表面，这里要注意的一点是抽中面的功能并不是只能抽取到中面，其实它还可以抽取到内表面，外表面以及指定偏移距离的任何面，但是需要一些设置step2：遍历comp名称为"Middle Surface"的所有面，通过面的法向量进行判断 step3：留下法向指向Z和Y的面即可

"1.85e-25 5.48e-16 1"

namespace eval ::Geom::Find {}# --------------------------------------------------------------------------------# 提取实体外表面# --------------------------------------------------------------------------------proc ::Geom::Find::Exterior_surface {CompName} {  *createmark solids 1 "by comp" "$CompName"  *createmark surfaces 2 "all"  *midsurface_edit_base_surfaces 2 1 0 0  *midsurface_extract_10 solids 1 3 0 5 1 9 0 20 0 0 10 0 10 0 undefined 0 0 1  *createmark components 1 "^Base surfaces"  *deletemark components 1}
proc ::Geom::Find::surfaceGet {CompName} {  # ----------------------------------------------  *createmark surfs 1 "$CompName"  set surfId [hm_getmark surfs 1]  set trueSurf ""  set tol 0.00001  foreach surf $surfId {    *createmark surfs 1 $surf      # ----------------------------------------------      #得到面的中心    set surfCenter [hm_getcentroid surfs 1]    hm_markclearall 1    foreach {x y z} $surfCenter {}      # ----------------------------------------------      #求面的法向量    set surfNormal [lrange [hm_getsurfacenormalatcoordinate $surf $x $y $z] 3 5]    foreach {i j k} $surfNormal {}      # ----------------------------------------------      #消除计算精度误差导致的判断失效问题    if {[expr abs($i - 0) < $tol]} {      set i 0    }    if {[expr abs($j - 0) < $tol]} {      set j 0    }    if {[expr abs($k - 0) < $tol]} {      set k 0    }     # ----------------------------------------------   #判断法向量是否满足     if {"$i $j $k" == "0 0 1" || "$i $j $k" == "0 0 -1" || "$i $j $k" == "0 1 0" || "$i $j $k" == "0 -1 0"} {      lappend trueSurf $surf    }      }  puts "The Surf you need is $trueSurf"  # *createmark surfs 1 {*}$trueSurf  # hm_highlightmark surfs 1 "h"}
::Geom::Find::Exterior_surface $CompName::Geom::Find::surfaceGet "Middle Surface"

逻辑：step1：同样是先使用抽中面功能抽取几何外表面 step2：遍历每个面的面积放入列表，进行从小到大的排序，因为此时一共有8个面，其中4个面是圆角面，所以它的面积肯定是最小的，也就是说8个面积中，索引位置分别为0 1 2 3，然后把位置3对应的面积得到step3：使用hm_getsurfacesbyarea进行筛选，这个API可以把小于或等于你指定的面积对应的面ID得到 step4：从8个面中通过列表操作移除4个圆角面

namespace eval ::Geom::Find {}# --------------------------------------------------------------------------------# 提取实体外表面# --------------------------------------------------------------------------------proc ::Geom::Find::Exterior_surface {CompName} {  *createmark solids 1 "by comp" "$CompName"  *createmark surfaces 2 "all"  *midsurface_edit_base_surfaces 2 1 0 0  *midsurface_extract_10 solids 1 3 0 5 1 9 0 20 0 0 10 0 10 0 undefined 0 0 1  *createmark components 1 "^Base surfaces"  *deletemark components 1}::Geom::Find::Exterior_surface $CompName
proc ::Geom::Find::surfaceGetMethod2 {CompName} {#通过面积对比法,缺点就是会选取所有的surf进行判断，不一定能得到你想要的  *createmark surfs 1 "$CompName"  set allSurf [hm_getmark surfs 1]  set surfAreaList ""  foreach surf $allSurf {      set currentArea [hm_getareaofsurface surfaces $surf]    lappend surfAreaList $currentArea  }  # ----------------------------------------------  # 面积大小排序  set newAreaList [lsort -increasing $surfAreaList]  set areaValue [lindex $newAreaList 3]  set smallArea [hm_getsurfacesbyarea [expr double($areaValue)]]  hm_markremove surfs 1 {*}$smallArea  set trueSurf [hm_getmark surfs 1]  # *createmark surfs 1 {*}$trueSurf  # hm_highlightmark surfs 1 "h"}::Geom::Find::surfaceGetMethod2 "Middle Surface"