Checking Whether all nodes in model having "TEMPERATURE" load or not

Hi All,

I wrote a tcl\tk script to query whether each node in model is having temperature load or not.
But problem with this script is, It is taking more time execute the code.
Please provide any better script if available.
Current script is taking more than 1.30 Hrs for the number of node 162114.
Please provide if any solution exist as soon as possible.

My script is:-

proc validate args {
*clearmark nodes 1;
*nodecleartempmark
*plot
hm_redraw
set selectNode [lindex $args 0]
eval *createmark nodes 1 '$selectNode'
set nodeToChkTemp [hm_getmark nodes 1]

set nodeIDNotHvngTemp ''
set lengthOfN [llength nodeToChkTemp]
set currentTime [clock seconds]
puts 'Start date: [clock format $currentTime -format %D] , Total Nodes: $lengthOfN'
puts 'The time is: [clock format $currentTime -format %H:%M:%S]'
hm_usermessage 'Getting information about temperature on node.......'

foreach node $nodeToChkTemp {
set chk 0
*clearmark loads 1
*clearmark nodes 1
*createmark nodes 1 $node
*findmark nodes 1 1 1 loads 0 2
set loadID [hm_getmark loads 2]

foreach ld $loadID {
set loadType [hm_getvalue loads id=$ld dataname=typename]
if {$loadType == 'TEMPERATURE'} {
set chk 1
break;
}
}

if { !$chk} {
lappend nodeIDNotHvngTemp $node
}
}

*numbersclear
*clearmark nodes 1;
*nodecleartempmark;
set currentTime [clock seconds]
puts 'End date: [clock format $currentTime -format %D]'
puts 'The time is: [clock format $currentTime -format %H:%M:%S]'
puts 'validate nodes: $nodeIDNotHvngTemp'

*startnotehistorystate {isolateonly Component}
*clearmark components 2
*createmark components 2 'all'
*createstringarray 2 'elements_on' 'geometry_on'
*isolateonlyentitybymark 2 1 2
*endnotehistorystate {isolateonly Component}
*plot
hm_redraw
*view 'iso1'
*window 0 0 0 0
hm_usermessage ''
return $nodeIDNotHvngTemp
}
set chkNodeLst [validate 'all']
puts 'validate nodes: $chkNodeLst'

# SCRIPT END

Regards,

Vikas Kumar