Jump to content

RajeshSRSamsung

Members
  • Content count

    7
  • Joined

  • Last visited

About RajeshSRSamsung

  • Rank
    Newbie

Profile Information

  • Gender
    Male
  • Country
    Korea, South
  • Are you University user?
    No

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. RajeshSRSamsung

    Hypermesh Macro for solid Automeshing

    Dear Sandeep, with the help of Your previous tcl file, I made a hypermesh macro to automodel the lug (quarter model) as shown in the attached hm file. I need to make the full model from this. can you suggest the macro program for this. Thanking You lugmodel.hm
  2. RajeshSRSamsung

    Hypermesh Macro for solid Automeshing

    Dear Sandeep Thank You so much its exactly what i was looking for.
  3. I have a solid Hexagon 1m x 1.2 m x 0.8m.(LxB*H) I need to mesh it with 10 hexa element division in each direction. ie. total 1000 hexa element to mesh the solid. i need to write a macro to read the dimension L,B,H and mesh the cube so that each direction element division is preset to 10 divisions and always the total number of element is 1000 Nos. Thanking You
  4. RajeshSRSamsung

    GUI for HyperMesh Script

    Thank you so much Mr. Tinh.. It worked~~~
  5. RajeshSRSamsung

    GUI for HyperMesh Script

    Thank You for your reply Mr. Tinh but still getting error "can't read "w.lugType01": no such variable" when i run the following tcl file in hypermesh #*********************************************************************************** proc ::Execlug01LUG {args} { set w .lugType01 destroy $w toplevel $w wm transient $w . frame $w.f2 #--------------------------------------- label $w.f2.labL1 -text "L1 =" entry $w.f2.entL1 pack $w.f2.labL1 -side left -anchor w pack $w.f2.entL1 -padx 15 -pady 2 -side left label $w.f2.labL2 -text "L2 =" entry $w.f2.entL2 pack $w.f2.labL2 -side left -anchor w pack $w.f2.entL2 -padx 15 -pady 2 -side left pack $w.f2 -side top -anchor nw -fill x #--------------------------------------- button $w.b -text Model -font {Helvetica -25 bold} -height 1 -width 10 -background gray75 -foreground blue -command {hm_setpanelproc ::modelclick} pack $w.b -side top -anchor nw -fill x } proc ::modelclick {args} { set w.lugType01 set l1 [$w.f2.entL1 get] set l2 [$w.f2.entL2 get] *createnode 0 0 0 0 0 0; *createnode l2 0 0 0 0 0; *createnode l2 l1 0 0 0 0; *createnode 0 l1 0 0 0 0; } #***********************************************************************************
  6. RajeshSRSamsung

    GUI for HyperMesh Script

    Thank You for your reply Mr. Tinh in my tcl program i used a procedure for entry as shown below. #*********************************************************************************** proc ::Execlug01LUG {args} { set w .lugType01 destroy $w toplevel $w wm transient $w . frame $w.f2 #--------------------------------------- label $w.f2.labL1 -text "L1 =" entry $w.f2.entL1 pack $w.f2.labL1 -side left -anchor w pack $w.f2.entL1 -padx 15 -pady 2 -side left label $w.f2.labL2 -text "L2 =" entry $w.f2.entL2 pack $w.f2.labL2 -side left -anchor w pack $w.f2.entL2 -padx 15 -pady 2 -side left pack $w.f2 -side top -anchor nw -fill x #--------------------------------------- button $w.b -text Model -font {Helvetica -25 bold} -height 1 -width 10 -background gray75 -foreground blue -command {hm_setpanelproc ::modelclick} pack $w.b -side top -anchor nw -fill x } proc ::modelclick {args} { set l1 [$w.f2.entL1 get] set l2 [$w.f2.entL2 get] *createnode 0 0 0 0 0 0; *createnode l2 0 0 0 0 0; *createnode l2 l1 0 0 0 0; *createnode 0 l1 0 0 0 0; } #*********************************************************************************** In this case i am not able to get the value of l1 and l2 to create the nodes. please help me Thank You
  7. RajeshSRSamsung

    GUI for HyperMesh Script

    Hello Tinh , how i can i use the value of this "Entry $w.f$i.ent" for making node coordinate in Hypermesh. Thanking You
×