search a componet using loop

If I understand correctly you want to search within CSV file from Hyperworks?

 

@Nguyen-Dai

 yes

Tcl can read/write/search within CSV file. And you can run Tcl script from Hyperworks.

So I think it's possible.

@sanket_patil

 

Yes it is possible with Tcl.

Which solver(User profile) are you using?

 

Thanks,

Imoto

Hi

Example csv file:

 

CompId,Thickness

1001,1.0

1002,1.2

2001,2.0

2002,2.2

2004,2.5

 

This is a sample code

 

set myfile c:/afile.csv

set fpt [open $myfile]

set cont [string map {, ' ' \n ' '} [read $fpt]]

close $fpt

set MyCompId 2002

set Thickness [dict get $cont $MyCompId]

@imoto

I am using nastran profile.

@sanket_patil

 

Tinh is already gave you the good example:-)

 

-Here is my example-

# Auto property creation #
*evaltclscript 'AutoPropertyCreate.tcl' 0;
*evaltclstring '::autoproperty::Main' 0;

 

# Thickness update from CSV #
set ft {{'CSV Files' .csv} {'All Files' *}};
set fn [tk_getOpenFile -filetypes $ft];
set fh [open $fn r];
while {![eof $fh]} {
 gets $fh line;
 lassign [split $line ,] cid T;
 if {[hm_entityinfo exist comps $cid -byid] == '1'} {
  set pid [hm_getvalue comps id=$cid dataname=propertyid];
  *setvalue props id=$pid PSHELL_T=$T;
 }
}
close $fh;

 

If you are not using PSHELL card, you have to change the attribute name.

@imoto @tinh @Nguyen-Dai

 Thank you so much for help. It is working good.

 

Regards,

Sanket