TCL command of auto contact pair finding?

Hi, 

looking for relevant code in scripts folder and find what you need:

#open contact manager

 source [file join [hm_info -appinfo SPECIFIEDPATH hm_scripts_dir] abaqus Contact_wizard CW.tcl]

#open autocontact

 ::autocontact::CWautocontact::AutoContactGui

#invoke selecting components>all

 *createmark comps 1 all set ::autocontact::CWautocontact1::newElems [hm_getmark comps 1] ::AbaqusCW::HighLight off if {$::autocontact::CWautocontact::flag==1} {      set ::autocontact::CWautocontact::flag 0 } if {[llength $::autocontact::CWautocontact1::newElems]} {      ::autocontact::CWautocontact1::AddCompsToTable }

# set proximity distance

 set ::autocontact::CWautocontact1::proximity_entry 5.0

# invoke 'Find' button

 ::autocontact::CWautocontact::UpdateInterface

 

Thanks a lot! It's really a great help to me.

I have one more question. How can I know which TCL file contains those command code.

There are a bunch of TCL files in scripts folder. Is there a way to find the command of  a button?

At the moment, I just manually search through every file that I think the command should be. It's kind of time consuming.

 

There are some ways to find command bound to a tk button.

but you may make hm hanging. So go to scripts folder and parse tcl files is better way

I will not reveal them, it is safer for you /emoticons/default_wink.png' srcset='/emoticons/wink@2x.png 2x' title=';)' width='20' />

once you become knowledgeable about tcl, you'll find it easily

 

I have another question. How to invoke the  ''create ' button.

I found the command of 'create' button inside the autocontact_tab.tcl file.

The command is '::autocontact::CreateEntities $T', but it doesn't work.

the command window give me an error message  reads as follows: can't read 'T': no such variable

 

 

<?xml version="1.0" encoding="UTF-8"?>

Hi,

T is data tree, it's a tk widget.

try command:

::autocontact::CreateEntities .autocontactGui.outer_frame.results_tree

Dear @tinh

 

How to get this ABAQUS CONTACT MANAGER table whole data and play around this.

like getting the details where it is tied or not.

 

 

Other thing is i need full tabular data.

Best Regards,

Vikas Kumar

 

 

hi

set ::AbaqusCW::CWcontactpair2::tiedCbox

 

array get ::AbaqusCW::CWcontactpair1::table_arraySurf

hi

set ::AbaqusCW::CWcontactpair2::tiedCbox

 

array get ::AbaqusCW::CWcontactpair1::table_arraySurf

 

 

I need this table all values 

 

 

 

 

 

which is not coming by using    array get ::AbaqusCW::CWcontactpair1::table_arraySurf

My code is 

 

source [file join [hm_info -appinfo SPECIFIEDPATH hm_scripts_dir] abaqus Contact_wizard CW.tcl]
#open autocontact
array set tableData [array get ::AbaqusCW::CWcontactpair1::table_arraySurf]

#creating own array
foreach index [array names tableData] {
         puts 'index: $index '
         puts 'arr: tableData($index): val: $tableData($index) '

         # Printing Data
}                       
puts 'END'

 

 

 

 

Thanks,

Vikas Kumar

Hi

It is

array get ::AbaqusCW::cwNonSurArray

Hello, 

Could someone  send similar code for Auto Contact for Optistruct profile? I mean this: