Penetration Tool as in HW14.0
Find more posts tagged with
Hi,
script like this
proc p_ParseD3hsp {FilePath} {
if {[file exists $FilePath]} {
if {[catch {
set fpt [open $FilePath]
set buffer [read -nonewline $fpt]
close $fpt
}]} {
return -code error $::errorInfo
}
set LineList [split $buffer \n]
array set PenValue {}
set MismatchedModel 0
foreach Line $LineList {
set Line [string trim $Line]
switch -glob -- $Line {
'penetrating node # *=*' {
set NodeId [string trim [string range $Line 28 end]]
if {![hm_entityinfo exist nodes $NodeId]} {
set MismatchedModel 1
break
}
}
'penetration *=*' {
set PenValue($NodeId) [string trim [string range $Line 28 end]]
catch {
*tagcreate nodes $NodeId [format %.2f $PenValue($NodeId)] $NodeId 2
}
}
}
}
if {$MismatchedModel} {
return -code error 'The d3hsp mismatched with opening model'
}
#return [array get PenValue]
} else {
return -code error 'File not existing '$FilePath''
}
}
Hi,
which option would you like?
I see thickness option is 'component thickness' which is same as in v14
v2017 can check it base on contact so I think it's better
It just hides the original panel. If you still want to use it, try enter commands (in menu View>Command Window):
hm_setpanelproc hm_resetmenu
hm_pushpanel penetration