Jump to content

Vikas Kumar

Members
  • Content count

    36
  • Joined

  • Last visited

About Vikas Kumar

  • Rank
    Beginner

Profile Information

  • Country
    India
  • Are you University user?
    Yes

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Can we run a script using tcl\tk script so it will provide all Hypemesh api's without opening Hypermesh. Or can we import package related to Hypermesh script without opening hypermesh or running tool from command prompt.
  2. I wanted to set all deformed values like Result type -> Displacement scale -> Scale factor Type -> Uniform value -> 10 Please help me as soon as possible.
  3. Vikas Kumar

    HyperWorks Script Exchange

    Hi Rahul, There is one script present in script exchange with name "SCRIPT 1276 - Transmissibility/sum spcforces in user defined groups" but it doesn't have "hg_transmissability_curves.tcl" file in any zip file. But it should be according to recorded video. I already requested for support but still waiting. Thanks, Vikas Kumar
  4. Hi all, I have to generate complex plot type graph bu using .PCH file and tcl\tk script. Can any one help me out for this. I have developed one TCL\TK script but in this culve is showing empty. The code is:- set t [clock seconds] hwi OpenStack hwi GetSessionHandle sess$t; sess$t New sess$t GetClientManagerHandle mgr$t plot; mgr$t GetBuildPlotsCtrlHandle build$t; build$t SelectDataFile "d:/abc/def.pch"; false; sess$t GetDataFileHandle dataFileHandle$t $::CPMReportGenerationToolMain::PCHFilePath; # dataFileHandle$t SetFilename $::CPMReportGenerationToolMain::PCHFilePath set dataFileName [dataFileHandle$t GetFilename] set typeList [dataFileHandle$t GetDataTypeList] set subCaseList [dataFileHandle$t GetSubcaseList] set subCaseName [lindex $subCaseList 0] dataFileHandle$t SetSubcase $subCaseName set nsub [llength $typeList]; # puts "subCaseList: $subCaseList \n nsub:$nsub \n typeList: $typeList " set xType [lindex $typeList 0]; set yType [lindex $typeList 1]; # set xVectCrv$i [Xcrv$i GetValuesList] # set yVectCrv$i [Ycrv$i GetValuesList] set yPointReqs [dataFileHandle$t GetRequestList $yType]; # puts "xType $xType \n yPointReqs: $yPointReqs" set headertext $yPointReqs; append headertext ""; set nreq [llength $yPointReqs]; #puts $nreq set components [dataFileHandle$t GetComponentList $yType]; sess$t GetProjectHandle proj$t proj$t AddPage proj$t RemovePage 1 proj$t GetPageHandle page$t [proj$t GetActivePage] set pageId [proj$t GetActivePage] page$t SetLayout 0 page$t Draw # to display at top of window page$t SetTitle "Phase Amplitude Graph"; page$t SetTitleDisplayed true; page$t SetActiveWindow $currentWindowID page$t GetWindowHandle win$t [page$t GetActiveWindow] set reqItem [lindex $yPointReqs $counterForPoint] win$t SetClientType "Plot"; win$t GetClientHandle ploth$t ploth$t SetChartType "complex"; ploth$t SetComplexMode pm ploth$t GetHeaderHandle header$t; header$t SetVisibility true; header$t SetText "Point"; set curvName "X"; ploth$t AddCurve; set ncurve [ploth$t GetNumberOfCurves]; ploth$t GetCurveHandle curv$t$dir $ncurve; curv$t$dir SetName $pointNameForCurve # set X - axis label and limit (limit value if asked) ploth$t GetHorizontalAxisHandle xAxis$t 1; xAxis$t SetVisibility true; xAxis$t SetAutoFit true; # xAxis$i SetFitToRange true xAxis$t SetScale "linear"; # xAxis$t SetMin 0; # xAxis$t SetMax 500; set xLabel "Frequency (Hz)"; xAxis$t SetLabel $xLabel; # set Y - axis label and limit (limit value if asked) ploth$t GetVerticalAxisHandle yAxis$t 1; yAxis$t SetVisibility true; yAxis$t SetAutoFit true; yAxis$t SetScale "linear"; yAxis$t SetMin 0.001; # yAxis$t SetMax 10000; yAxis$t SetLabel "Acceleration \[mm/s2\]"; # display curve curv$t$dir GetVectorHandle vectorX$t x; set vectY [curv$t$dir GetVectorHandle vectorY$t y]; vectorX$t SetType "file"; vectorX$t SetFilename "d:\abc\def.pch"; # puts "1st: $::CPMReportGenerationToolMain::PCHFilePath"; set xType "Frequency" set yType "Accelerations" vectorX$t SetDataType $xType; vectorY$t SetType "file"; vectorY$t SetFilename "d:\abc\def.pch" vectorY$t SetDataType $yType; # puts "2nd $xType $yType" vectorY$t SetRequest $pointNameID ; vectorY$t SetComponent $dir; vectorY$t SetScaleFactor 1; set xmax [xAxis$t GetMax]; set xmin [xAxis$t GetMin]; set ymax [yAxis$t GetMax]; set ymin [yAxis$t GetMin]; curv$t$dir SetVisibility true; ploth$t Recalculate; ploth$t Autoscale; ploth$t Draw; ##Modify Plots###################### curv$t$dir Trim 0 500 horizontal false ploth$t Recalculate ploth$t Draw # xAxis$t SetMin 50 # xAxis$t SetMax 500 xAxis$t SetAutoFit true xAxis$t SetFitToRange true # reset values to fit xAxis$t SetVisibility true; xAxis$t SetAutoFit true; xAxis$t SetFitToRange true ploth$t Recalculate; ploth$t Autoscale; ploth$t Draw; curv$t$dir ReleaseHandle xAxis$t ReleaseHandle yAxis$t ReleaseHandle vectorY$t ReleaseHandle vectorX$t ReleaseHandle # iNote$t ReleaseHandle page$t Draw But this code showing empty curve Thanks, Vikas Kumar
  5. Hi all, I need co-ordinate of peaks in hypergraph using TCL\TK can any one help. Is any API available for that . Thanks all,
  6. Hi all, I need to attatch a note to a curve's peak in hypergraph by using tcl\tk . can anyone help me out in this. and i want to know co-ordinate info also of the all peak. thanks
  7. Hi all, I need to attatch a note to a curve's peak in hypergraph by using tcl\tk . can anyone help me out in this. and i want to know co-ordinate info also of the all peak. thanks
  8. Vikas Kumar

    Turn On Feature lines on using TCL\TK

    Hi Vipin I have to simply turn it ON "Feature Lines" for better look.
  9. Vikas Kumar

    Turn On Feature lines on using TCL\TK

    This will work only for ISO and Section cuts but my requirement is different.
  10. Dear All, How to turn on feature lines in Hyperview using tcl\tk. I know the short cut key which is "L" by pressing "L" after loading mode (OP2 file) this will be done manually. Please let me know the commands to set feature lines on in "Display Control -> Boundary Geometry -> Features " as below image. I need TCL\Tk Command Tinh if you are seeing this post please help. I am using this code but it is not working - hwi OpenStack set t [::post::GetT] hwi GetSessionHandle sess$t sess$t GetProjectHandle proj$t proj$t AddPage proj$t RemovePage 1 proj$t SetActivePage [proj$t GetNumberOfPages] if { [catch {page$t ReleaseHandle} ts] } { } proj$t GetPageHandle page$t [proj$t GetActivePage] page$t SetActiveWindow 1 page$t GetWindowHandle win$t [page$t GetActiveWindow] win$t GetViewControlHandle view_ctrl_hdl$t view_ctrl_hdl$t SetOrientation "top" view_ctrl_hdl$t SetPerspectiveMode true win$t SetClientType "Animation" win$t GetClientHandle post1$t #Load model set model_id [post1$t AddModel "D:\Backup\abc.Op2"] post1$t GetModelHandle mod$t $model_id mod$t SetMeshMode "features" post1$t GetRenderOptionsHandle renopt_hdl renopt_hdl SetUndeformedMeshMode none renopt_hdl SetBoundaryMeshMode "features" page$t Draw post1$t Draw Thanks and Regards,
  11. Vikas Kumar

    Turn On Feature lines on using TCL\TK

    Hello Vipin' I think this command is for different purpose SetBoundaryMeshMode – Sets the boundary mesh mode for iso and section cuts. SYNTAX poIRenderOptions_handle SetBoundaryMeshMode mode TYPE HyperView Tcl Modify DESCRIPTION This command sets the boundary mesh mode for iso and section cuts. Note This functionality is common for iso and section cuts. mode Set to features or none. ERRORS Returns 0 if successful, otherwise an error code. this is for this two..
  12. Vikas Kumar

    Turn On Feature lines on using TCL\TK

    Hi Vpin, I am doing this but still it's not activating feature lines. Please help me. My code is:- hwi OpenStack set t [::post::GetT] hwi GetSessionHandle sess$t sess$t GetProjectHandle proj$t proj$t AddPage proj$t RemovePage 1 proj$t SetActivePage [proj$t GetNumberOfPages] if { [catch {page$t ReleaseHandle} ts] } { } proj$t GetPageHandle page$t [proj$t GetActivePage] page$t SetActiveWindow 1 page$t GetWindowHandle win$t [page$t GetActiveWindow] win$t GetViewControlHandle view_ctrl_hdl$t view_ctrl_hdl$t SetOrientation "top" view_ctrl_hdl$t SetPerspectiveMode true win$t SetClientType "Animation" win$t GetClientHandle post1$t #Load model set model_id [post1$t AddModel $op2_file_path] post1$t GetModelHandle mod$t $model_id mod$t SetMeshMode "features" post1$t GetRenderOptionsHandle renopt_hdl renopt_hdl SetUndeformedMeshMode none renopt_hdl SetBoundaryMeshMode "features" page$t Draw post1$t Draw Thanks, Vikas Kumar
  13. Dear All, How to turn on feature lines in Hyperview using tcl\tk. I know the short cut key which is "L" by pressing "L" after loading mode (OP2 file) this will be done manually. Please let me know the commands to set feature lines on in "Display Control -> Boundary Geometry -> Features " as below image. I need TCL\Tk Command please help. Thanks Vikas Kumar
  14. Vikas Kumar

    Load .pch file and generate graph

    Hi tinh, hwi GetSessionHandle sess; sess GetClientManagerHandle mgr plot; mgr GetBuildPlotsCtrlHandle build; build SelectDataFile "D:/Vikas/Backup/Input_Model/abc.pch" false; This command is not generating graph i have gone throuh this. thanks for your reply.
  15. Vikas Kumar

    Load .pch file and generate graph

    Just help me how to load .pch file using tcl\tk scripting. which api i should use.
×