Jump to content

tinh

Members
  • Content count

    2108
  • Joined

  • Last visited

  • Days Won

    190

tinh last won the day on August 14

tinh had the most liked content!

About tinh

  • Rank
    Super User

Contact Methods

  • Website URL
    http://tinh411@gmail.com

Profile Information

  • Gender
    Male
  • Country
    Vietnam
  • Interests
    Meshing-checking tools tcl/tk
  • Are you University user?
    Yes

Recent Profile Visitors

9866 profile views
  1. tinh

    Add Results (Post page)

    Could you try set it as "H3D" And select the h3d file to input to hm? If hm cannot read h3d as result file, we may need a script to apply resulted forces
  2. tinh

    shells on interior solid faces

    And to add the panels to user button, set command for the button as hm_pushpanel "panel name"
  3. tinh

    shells on interior solid faces

    Hi Please remove "displayed" at the last line. Then it will prompt you to select elems #example: create interior faces for  3d elems by user selection ::p_CreateInteriorFaces
  4. tinh

    Add Results (Post page)

    Is that CONTF output in HM format?
  5. Try using panel Tools>position ? It will reorient and move mesh
  6. tinh

    Fatigue - Transient Response Analysis

    Maybe, use tabled1 as magnitude => with test data But if you don't have any experiment value, you may want to vary a known load (peak) with factors by generating tabled1 => it's very convenient because we just need excel with function rand() to generate them
  7. tinh

    Aerospace Tool Issue

    In HM help, it says y-axis of section is aligned with shell normals, so please try swapping DIM1 and DIM2 value of bar-section
  8. Hi Tbopts.tcl does not modify hmcustom.tcl Just installer.tcl does
  9. Are you sure your calculation is correct? I think you need to be more careful ! Please calculate it again.
  10. I put it on C:/users/tinh/hmcustom.tcl
  11. tinh

    shells on interior solid faces

    Hi, a script to create interior faces is like this: You can save it to a file, then bind it with a user defined toolbar button, then just 1-click to get faces, not 2 ! proc ::p_CreateInteriorFaces args { if {[string match -nocase display* $args]} { *createmark elems 1 displayed } else { *createmarkpanel elems 1 "Select 3d elems:" } if {[hm_marklength elems 1]==0} return *createmark elems 2 "by config" tetra4 *markintersection elems 2 elems 1 set Buf *ELEMENT_SHELL\n set i 0 set ElemList {} if {[hm_marklength elems 2]} { eval lappend ElemList [hm_getmark elems 2] set ElemNodes [join [hm_getvalue elems mark=2 dataname=nodes]] foreach {n1 n2 n3 n4} $ElemNodes { append Buf "[incr i],CompId,$n1,$n2,$n3\n" append Buf "[incr i],CompId,$n1,$n2,$n4\n" append Buf "[incr i],CompId,$n2,$n3,$n4\n" append Buf "[incr i],CompId,$n3,$n1,$n4\n" } } *createmark elems 2 "by config" penta6 *markintersection elems 2 elems 1 if {[hm_marklength elems 2]} { eval lappend ElemList [hm_getmark elems 2] set ElemNodes [join [hm_getvalue elems mark=2 dataname=nodes]] foreach {n1 n2 n3 n4 n5 n6} $ElemNodes { append Buf "[incr i],CompId,$n1,$n2,$n3\n" append Buf "[incr i],CompId,$n4,$n5,$n6\n" append Buf "[incr i],CompId,$n1,$n2,$n5,$n4\n" append Buf "[incr i],CompId,$n2,$n3,$n6,$n5\n" append Buf "[incr i],CompId,$n3,$n1,$n4,$n6\n" } } *createmark elems 2 "by config" hex8 *markintersection elems 2 elems 1 if {[hm_marklength elems 2]} { eval lappend ElemList [hm_getmark elems 2] set ElemNodes [join [hm_getvalue elems mark=2 dataname=nodes]] foreach {n1 n2 n3 n4 n5 n6 n7 n8} $ElemNodes { append Buf "[incr i],CompId,$n1,$n2,$n3,$n4\n" append Buf "[incr i],CompId,$n5,$n6,$n7,$n8\n" append Buf "[incr i],CompId,$n1,$n2,$n6,$n5\n" append Buf "[incr i],CompId,$n2,$n3,$n7,$n6\n" append Buf "[incr i],CompId,$n3,$n4,$n8,$n7\n" append Buf "[incr i],CompId,$n4,$n1,$n5,$n8\n" } } if {$i} { eval *createmark elems 1 $ElemList *findfaces elems 1 if {[hm_entityinfo exist comps ^interior_faces -byname]} { *createmark elems 1 "by comp name" ^interior_faces if {[hm_marklength elems 1]} {*deletemark elems 1} } else { *collectorcreateonly comps ^interior_faces "" 4 } set Buf [string map [list CompId [hm_getentityvalue comps ^interior_faces id 0 -byname]] $Buf] set fpt [open interior_faces.k w] puts $fpt $Buf close $fpt *createstringarray 2 "LsDyna " "Keyword971 " *feinputwithdata2 "#ls-dyna\\dynakey" interior_faces.k 0 0 0 0 0 1 2 1 0 *createmark elems 1 "by comp name" ^interior_faces *createmark elems 2 *elementtestduplicates elems 1 2 2 if {[hm_marklength elems 2]} {*deletemark elems 2} *createmark elems 1 "by comp name" ^interior_faces ^faces *createmark elems 2 *elementtestconnectivity elems 1 2 2 if {[hm_marklength elems 2]} {*deletemark elems 2} *facesdelete } *clearmarkall 1; *clearmarkall 2 } #example: create interior faces for displayed 3d elems ::p_CreateInteriorFaces displayed
  12. nastran code is ok, i think. Could you show result? (Result values in f06, do not show results by hyperview) Anyway i tested with optistruct, it is ok You don't need RJOINT because CROD has no bending dofs
  13. tinh

    Linear 1D Issue

    Hi Press F1 to know how to use that panel
  14. It worked on my hypermesh. Please check it on other machine
×