HyperWorks 集成桌面环境下二次开发【四】----脚本实例

实例一 载入模型并查看模型应力

set proc_name "contour_stress"

hwi GetSessionHandle sess

if {[catch {

hwi GetSessionHandle sess

sess GetProjectHandle proj

proj GetPageHandle page [proj GetActivePage]

proj ReleaseHandle

page GetWindowHandle win [page GetActiveWindow]

win SetClientType "Animation"

win GetClientHandle post

win ReleaseHandle

# Load model

set model_id [post AddModel d:/samples/dyna/bumper_foam/d3plot"]

post GetModelHandle mod $model_id

mod SetResult "d:/samples/dyna/bumper_foam/d3plot"

# Advance to first frame.

page GetAnimatorHandle animator

animator Next

# Enable contour state and visibility

mod GetResultCtrlHandle res

mod ReleaseHandle

res GetContourCtrlHandle contour_ctrl

res ReleaseHandle

contour_ctrl SetEnableState true

post SetDisplayOptions "contour" true

# Set result state

contour_ctrl SetDataType "stress"

contour_ctrl SetShellLayer "max"

contour_ctrl SetDimensionEnabled shell true

contour_ctrl SetDataComponent shell "P1"

contour_ctrl SetDimensionEnabled solid true

contour_ctrl SetDataComponent solid "P1"

post Draw

# Cleanup handles to avoid leaks and handle name collisions.

contour_ctrl ReleaseHandle

post ReleaseHandle

page ReleaseHandle

sess ReleaseHandle

} result]}

# Error handling

puts $logfile "----- Error occured running $proc_name -----"

puts $logfile "[sess GetError]"

puts $logfile "--------------------------------------------"

}

set proc_name "setTimeVector"

hwi GetSessionHandle sess

if {[catch {

sess GetProjectHandle proj

proj GetPageHandle page [proj GetActivePage]

page GetWindowHandle win [page GetActiveWindow]

if {[string match [win GetClientType] "Plot"]}

win GetClientHandle plot

set numcurves [plot GetNumberOfCurves]

for {set i 1} {$i <= $numcurves} {incr i}

plot GetCurveHandle curve $i

curve GetVectorHandle curve_x x

curve GetVectorHandle curve_time time

if {![string length [curve_time GetValuesList]]}

set max_x [lindex [lsort -real [curve_x GetValuesList]] end]

curve_time SetType values

curve_time SetValues [join [curve_x GetValuesList] ,]

if {$max_x >= 1.00}

set scale [expr [string length [expr int($max_x)]] * 10.00]

curve_time SetScaleFactor [expr 1.00 / $scale]

}

}

plot Recalculate

plot Draw

# Cleanup handles to avoid leaks and handle name collisions.

curve_time ReleaseHandle

curve_x ReleaseHandle

curve ReleaseHandle

}

} else

puts $logfile "Invalid Window Type: requires a plot window."

}

# Cleanup handles

plot ReleaseHandle

win ReleaseHandle

page ReleaseHandle

proj ReleaseHandle

sess ReleaseHandle

} result]}

# Error handling

set msg "Error occured running $proc_name\n\n[sess GetError]"

tk_messageBox -title "Error running script" -message $msg

}

set proc_name "jpeg_capture"

hwi GetSessionHandle sess

if {[catch {

# Get a post object handle

sess GetProjectHandle proj

proj GetPageHandle page [proj GetActivePage]

page GetWindowHandle win [page GetActiveWindow]

win SetClientType "Animation"

win GetClientHandle post

# Load model

set myfile "d:/samples/dyna/bumper_foam/d3plot"

set model_id [post AddModel $myfile]

post GetModelHandle mod $model_id

mod SetResult $myfile

# Advance to last frame.

page GetAnimatorHandle animator

animator SetAnimationMode "transient"

animator SetCurrentStep [expr [animator GetNumberOfSteps]-1]

# Enable contour state and visibility

mod GetResultCtrlHandle res

mod ReleaseHandle

res GetContourCtrlHandle contour_ctrl

res ReleaseHandle

contour_ctrl SetEnableState true

post SetDisplayOptions "contour" true

post SetDisplayOptions "legend" true

# Set to stress datatype

set datatype "stress"

contour_ctrl SetDataType $datatype

contour_ctrl SetShellLayer "max"

contour_ctrl SetDimensionEnabled shell true

contour_ctrl SetDataComponent shell "P1"

contour_ctrl SetDimensionEnabled solid true

contour_ctrl SetDataComponent solid "P1"

post Draw

sess CaptureScreen "jpeg" "$tag-$datatype.jpg"

# Set to displacement datatype

set datatype "displacement"

contour_ctrl SetDataType $datatype

post Draw

sess CaptureScreen "jpeg" "$tag-$datatype.jpg"

# Cleanup handles to avoid leaks and handle name collisions.

contour_ctrl ReleaseHandle

post ReleaseHandle

page ReleaseHandle

sess ReleaseHandle

} result]}

# Error handling

set msg "Error occured running $proc_name\n\n[sess GetError]"

tk_messageBox -title "Error running script" -message $msg

}