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

}

实例三 获取应力与位移的JEPG图像

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

}

 

参考HyperWorks Desktop 手册，12.0版本。