Jump to content
  • Announcements

    • Rahul Ponginan

      Please click here for a short but important announcement   03/26/17

      Dear Users Our Commercial and Academic users around the world can use these same forums here as before i.e. the Altair Support Forum , Commercial users from India with solver queries can go to the Solver Forum for India Commercial Users , Academic Users from India and AOC India Participants are requested to go to the Forum for India Academic Users and AOC India Participants , We will be tending to all queries in all the forums promptly as before, thank you for your understanding. 

varthamanan

Members
  • Content count

    22
  • Joined

  • Last visited

About varthamanan

  • Rank
    Beginner

Recent Profile Visitors

654 profile views
  1. #::hwtk::table proc SetValueCallback { row col value } { puts "$value" return true } proc GetValueList {col row} { return } ::hwtk::dialog .d -title "::hwtk::table" set table [::hwtk::table [.d recess].table] pack $table -fill both -expand true $table columncreate int -type int -text "Integer" -validatecommand "SetValueCallback %I %C %V" $table columncreate double -type real -text "Double" -validatecommand "SetValueCallback %I %C %V" $table columncreate color -type intcolor -image palette-16.png -validatecommand "SetValueCallback %I %C %V" $table columncreate city -type combobox -text "Combobox" -valuelistcommand "GetValueList city" -validatecommand "SetValueCallback %I %C %V" $table columncreate string -text "String" -validatecommand "SetValueCallback %I %C %V" for {set j 1} {$j < 5} {incr j} { set color [expr {int(rand()*64)}] set values "int $j double $j.0 color $color city Troy string {String value $j}"; $table rowinsert end row$j -values $values } .d post proc accept_func {args} { tk_messageBox -message "You can have any function defined for this button" -title "Accept Function" -icon info }
  2. how to run a script in batchmode (hypermesh ,hyperview) in windows system
  3. Hello, I found code some code like this you can use for any panels selection hm_pushpanel "project" set id [hm_getcolnumber {project} 1 ] hm_setcollector "project" $id "comps" Thanks and Regards P.Varthamanan
  4. I have script something like this ########################################################## first script.tcl proc firstscript {} { variable i set i 10 } #======================================================= secondscript.tcl proc secondscript {} { variable i puts $i } i struggling lot because of this problem. I ran the first script, in the script I set the variable set i 10 i want get variable value $i in the second script i tried with global , variable options Please give some suggestion or solution Thanks in advance Thanks and Regards P.Varthamanan
  5. how to add shortcut key in hyperview like hypermesh

    Thanks for post Rahul can you provide link for study hyperview script I am able to do with .bind key option, I need command for the turn off and on in hyperview I want to create display option in hyperview, like D shortcut key in hypermesh, can you help me
  6. difference between connect and other sites

    what is the difference between altair connect and altair cleint login
  7. posting image

    i am not able post image, why any one can explain
  8. hm toolbars

    this is my toolbar created by most using command
  9. hm toolbars

    #created #varthamanan proc CreateToolBar { carName jataList } { #Create Toolbar ::HM_Framework:_CreateMinibar . $carName; #Add Icon foreach Data $jataList { set iconfile [ lindex $Data 2 ] set cmd [ lindex $Data 1 ] set name [ lindex $Data 0 ] ::HM_Framework:_AddIconToMinibar $carName \ [ list p_CreateMinibarIcon [ file tail $iconfile ] $cmd $name 1 ]; } #Pack Toolbar ::HM_Framework:_AddMinibarToDockframe $carName .dockframe_center; #Destroy } proc RedrawWindows { } { set pos [ hm_getcommandposition ] if { $pos == "top" } { hm_setcommandposition bottom hm_setcommandposition top } else { hm_setcommandposition top hm_setcommandposition bottom } } set jataList "" # quick edit panel set EditIcon "nodesInterpolateOnSurf-24.gif" set jataList "$jataList { {Quick Edit} { ::face {args} } $EditIcon }" # automesh panel set MeshIcon "meshLines-32.gif" set jataList "$jataList { {AutoMesh} { hm_pushpanel \"automesh\" } $MeshIcon }" # check panel set CheckIcon "check.gif" set jataList "$jataList { {Element Checks} { hm_pushpanel \"check elems\" } $CheckIcon }" # # vis button set MeshIcon "distanceBetweenNodes-24.gif" set jataList "$jataList { {Distance} { hm_pushpanel \"distance\" } $MeshIcon }" # # vis button set MeshIcon "edgesGeneral-24.gif" set jataList "$jataList { {Edges} { hm_pushpanel \"edges\" } $MeshIcon }" # vis button set MeshIcon "elem-normal.gif" set jataList "$jataList { {Normals} { hm_pushpanel \"normals\" } $MeshIcon }" # vis button set MeshIcon "intersectionGUI.gif" set jataList "$jataList { {intersection} { hm_pushpanel \"penetration\" } $MeshIcon }" # vis button set MeshIcon "numbers-24.gif" set jataList "$jataList { {Numbers} { hm_pushpanel \"numbers\" } $MeshIcon }" # vis button set MeshIcon "pan.gif" set jataList "$jataList { {Translate} { hm_pushpanel \"translate\" } $MeshIcon }" # vis button set MeshIcon "pointsExtractParametric-24.gif" set jataList "$jataList { {Project} { hm_pushpanel \"project\" } $MeshIcon }" # vis button set MeshIcon "blankNesting-24.gif" set jataList "$jataList { {Reflect} { hm_pushpanel \"reflect\" } $MeshIcon }" # vis button set MeshIcon "gap-24.gif" set jataList "$jataList { {Replace} { hm_pushpanel \"replace\" } $MeshIcon }" # vis button set MeshIcon "erase-16.gif" set jataList "$jataList { {Edit elements} { hm_pushpanel \"edit element\" } $MeshIcon }" # vis button set MeshIcon "objectives.gif" set jataList "$jataList { {Replace} { hm_pushpanel \"split\" } $MeshIcon }" # # vis button set MeshIcon "linesExtractEdge-24.gif" set jataList "$jataList { {Smooth} { hm_pushpanel \"smooth\" } $MeshIcon }" # # vis button set MeshIcon "linesOffsetConstant-24.gif" set jataList "$jataList { {node edit} { hm_pushpanel \"node edit\" } $MeshIcon }" # # vis button set MeshIcon "post-shaded-16.gif" set jataList "$jataList { {node edit} { hm_pushpanel \"ruled\" } $MeshIcon }" # # vis button set MeshIcon "3dElements-24.gif" set jataList "$jataList { {node edit} { hm_pushpanel \"drag\" } $MeshIcon }" # # vis button set MeshIcon "solidDragLine-24.gif" set jataList "$jataList { {node edit} { hm_pushpanel \"solid map\" } $MeshIcon }" # # vis button set MeshIcon "morphingVolume-16.gif" set jataList "$jataList { {node edit} { hm_pushpanel \"HyperMorph\" } $MeshIcon }" proc ::face {args} { *appendmark elements 1 "by adjacent" hm_saveusermark elems 1; *appendmark elements 1 "retrieve" hm_highlightmark elems 1 h; } # create toolbar catch { ::HM_Framework:_DeleteMinibar CustomToolBar } CreateToolBar fanels $jataList # redraw window RedrawWindows
  10. hm toolbars

    #created #varthamanan proc CreateToolBar { carName jataList } { #Create Toolbar ::HM_Framework:_CreateMinibar . $carName; #Add Icon foreach Data $jataList { set iconfile [ lindex $Data 2 ] set cmd [ lindex $Data 1 ] set name [ lindex $Data 0 ] ::HM_Framework:_AddIconToMinibar $carName \ [ list p_CreateMinibarIcon [ file tail $iconfile ] $cmd $name 1 ]; } #Pack Toolbar ::HM_Framework:_AddMinibarToDockframe $carName .dockframe_center; #Destroy } proc RedrawWindows { } { set pos [ hm_getcommandposition ] if { $pos == "top" } { hm_setcommandposition bottom hm_setcommandposition top } else { hm_setcommandposition top hm_setcommandposition bottom } } set jataList "" # quick edit panel set EditIcon "nodesInterpolateOnSurf-24.gif" set jataList "$jataList { {Quick Edit} { ::face {args} } $EditIcon }" # automesh panel set MeshIcon "meshLines-32.gif" set jataList "$jataList { {AutoMesh} { hm_pushpanel \"automesh\" } $MeshIcon }" # check panel set CheckIcon "check.gif" set jataList "$jataList { {Element Checks} { hm_pushpanel \"check elems\" } $CheckIcon }" # # vis button set MeshIcon "distanceBetweenNodes-24.gif" set jataList "$jataList { {Distance} { hm_pushpanel \"distance\" } $MeshIcon }" # # vis button set MeshIcon "edgesGeneral-24.gif" set jataList "$jataList { {Edges} { hm_pushpanel \"edges\" } $MeshIcon }" # vis button set MeshIcon "elem-normal.gif" set jataList "$jataList { {Normals} { hm_pushpanel \"normals\" } $MeshIcon }" # vis button set MeshIcon "intersectionGUI.gif" set jataList "$jataList { {intersection} { hm_pushpanel \"penetration\" } $MeshIcon }" # vis button set MeshIcon "numbers-24.gif" set jataList "$jataList { {Numbers} { hm_pushpanel \"numbers\" } $MeshIcon }" # vis button set MeshIcon "pan.gif" set jataList "$jataList { {Translate} { hm_pushpanel \"translate\" } $MeshIcon }" # vis button set MeshIcon "pointsExtractParametric-24.gif" set jataList "$jataList { {Project} { hm_pushpanel \"project\" } $MeshIcon }" # vis button set MeshIcon "blankNesting-24.gif" set jataList "$jataList { {Reflect} { hm_pushpanel \"reflect\" } $MeshIcon }" # vis button set MeshIcon "gap-24.gif" set jataList "$jataList { {Replace} { hm_pushpanel \"replace\" } $MeshIcon }" # vis button set MeshIcon "erase-16.gif" set jataList "$jataList { {Edit elements} { hm_pushpanel \"edit element\" } $MeshIcon }" # vis button set MeshIcon "objectives.gif" set jataList "$jataList { {Replace} { hm_pushpanel \"split\" } $MeshIcon }" # # vis button set MeshIcon "linesExtractEdge-24.gif" set jataList "$jataList { {Smooth} { hm_pushpanel \"smooth\" } $MeshIcon }" # # vis button set MeshIcon "linesOffsetConstant-24.gif" set jataList "$jataList { {node edit} { hm_pushpanel \"node edit\" } $MeshIcon }" # # vis button set MeshIcon "post-shaded-16.gif" set jataList "$jataList { {node edit} { hm_pushpanel \"ruled\" } $MeshIcon }" # # vis button set MeshIcon "3dElements-24.gif" set jataList "$jataList { {node edit} { hm_pushpanel \"drag\" } $MeshIcon }" # # vis button set MeshIcon "solidDragLine-24.gif" set jataList "$jataList { {node edit} { hm_pushpanel \"solid map\" } $MeshIcon }" # # vis button set MeshIcon "morphingVolume-16.gif" set jataList "$jataList { {node edit} { hm_pushpanel \"HyperMorph\" } $MeshIcon }" proc ::face {args} { *appendmark elements 1 "by adjacent" hm_saveusermark elems 1; *appendmark elements 1 "retrieve" hm_highlightmark elems 1 h; } # create toolbar catch { ::HM_Framework:_DeleteMinibar CustomToolBar } CreateToolBar fanels $jataList # redraw window RedrawWindows
  11. bind key in gui

    i am not able to post images , why
  12. bind key in gui

    this is my script its work fine , i bind the keys with no 1 2 3 but i want make it work with in gui with double middle click are some some other key
  13. how to bind key working in a gui like (shift left click) for selection window , i made the script similar to the selection windows , i am not able to bind the key working in gui and how to remove the bind key
  14. toolbar menu

    thanks
×