{"id":164805,"date":"2023-03-17T08:58:41","date_gmt":"2023-03-17T08:58:41","guid":{"rendered":"\/knowledge\/forums\/topic\/i-would-like-to-make-my-own-menu-form-in-order-to-set-values-and-select-items-for-a-tcl-script-i-have-written-for-icem-cfd-looking-at-the-programmers-guide-this-seems-best-done-building-up-from-a\/"},"modified":"2023-07-31T12:26:18","modified_gmt":"2023-07-31T12:26:18","slug":"i-would-like-to-make-my-own-menu-form-in-order-to-set-values-and-select-items-for-a-tcl-script-i-have-written-for-icem-cfd-looking-at-the-programmers-guide-this-seems-best-done-building-up-from-a","status":"publish","type":"topic","link":"https:\/\/innovationspace.ansys.com\/knowledge\/forums\/topic\/i-would-like-to-make-my-own-menu-form-in-order-to-set-values-and-select-items-for-a-tcl-script-i-have-written-for-icem-cfd-looking-at-the-programmers-guide-this-seems-best-done-building-up-from-a\/","title":{"rendered":"I would like to make my own menu form in order to set values and select items for a Tcl script I have written for ICEM CFD. Looking at the ‘Programmers Guide’ this seems best done building up from a form_init command."},"content":{"rendered":"

This can be done with the “form_” functions, but I would probably stay away from them, since they are really done in the older GUI style, and if you create your own Tk widgets, you can then run ICEM in batch, but use only your windows without loading the main ICEM window. Then you can do everything with all the basic Tcl\/Tk commands. All the base commands of Tcl\/Tk are available within ICEM. Below is an example script which creates one window and selects surfaces. It is meant to be used with ICEM\u00e2\u20ac\u2122s GUI loaded. You can save this as “Tcl_gui_example.tcl”, and type \u00e2\u20ac\u0153source Tcl_gui_example.tcl\u00e2\u20ac\u009d in the ICEM message window with this script in the working directory. proc create_top_window {w} { toplevel $w wm title $w “ICEM CFD Script ($w)” button $w.surfs -text “Select” -command “set ${w}_surfs [geo_select surface]” entry $w.ent -textvariable ${w}_surfs label $w.surfs_label -text “Surfaces” set endb [frame $w.end_buttons -bd 0] button $endb.apply -text “Apply” -command “do_proc [set ${w}_surfs]” button $endb.done -text “Done” -command “destroy $w” grid $w.surfs_label $w.ent $w.surfs -sticky we -padx 2 -pady 2 grid $endb.apply $endb.done -padx 2 grid $endb – – -sticky we -pady 2 grid columnconfigure $w 1 -weight 1 } proc do_proc {surfaces} { # This procedure performs the action mess “selected surfaces: $surfacesn” } # This line sets everything going when the script is sourced create_top_window .icem_win1 # Multiple windows can be created with a different window, such as “create_top_window .icem_win2”<\/p>\n","protected":false},"template":"","class_list":["post-164805","topic","type-topic","status-publish","hentry","topic-tag-14-5","topic-tag-fluid-dynamics","topic-tag-general","topic-tag-icem-cfd"],"aioseo_notices":[],"aioseo_head":"\n\t\t\n\t\n\t\n\t\n\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t