TCL Scripting

Punith

Hello everyone,

i am new to Tcl programming and worked little bit with command.tcl file to create simple scripts. But now I would like to create a script with the help of if loop. I wanted the script automatically create the solids with bounding surfaces option and if the solids already exist in the model then to return. Can someone help me with this?

 

I could only come out with this.

 

*createmark surfaces 1 'displayed'
*solids_create_from_surfaces 1 4 -1 2

 

Thank s and regards,

Punith

llyle_20499

Hello Punith, 

 

You can try the below,

*createmark surf 1 'displayed'
catch {*solids_create_from_surfaces 1 4 -1 2} status;
if {$status == 1} {
    puts 'Solid Created Successfully';
} else {
    puts 'Solid Creation Failed';
}

 

to create using loops, please give more information. 

 

Punith

Hello Livillyle,

thank you for the quick reply. Your code helped me.

 

Thank you so much.

 

Regards,

Punith

llyle_20499

Welcome! Glad it helped.

Punith

Can you tell me where to find expressions like catch and using IF function?I searched a lot in Hypermath help files but unable to find it.

 

Thanks and regards,

Punith

llyle_20499

Below resources will help you get started with tcl/tk programming. 

https://www.tutorialspoint.com/tcl-tk/ 

https://www.packtpub.com/networking-and-servers/tcltk-85-programming-cookbook

https://www.tcl.tk/man/tcl8.5/tutorial/tcltutorial.html

Punith

wow really helped a lot.

Thank you so much

 

Regards,

Punith

Altair Forum User

Hello every one

i would like to know the script for finding out the top most & bottom most z co-ordinates of the nodes that exists in the hypermesh model

Please some one help me

 

Thanks & regards

zaheer