Altair RISE

A program to recognize and reward our most engaged community members

Nominate Yourself Now!

Deleting a Variable / Application Error

Hey guys,

I'm looking for a command to close or delete a variable totally. I got the problem that when I'm trying to run my script for the second time this error is occuring:

Application_Error.JPG.ed387d76e88aed41356b646c9065db22.JPG

This is the file in which the error is occuring:

Before starting this script the sample.scv file is created in this file:

I guess the variable is still saved somewhere in hypermesh and thus it can be deleted totally. I'm looking forward to your ideas.

Kind regards

Michael

Unable to find an attachment - read this blog

Find more posts tagged with

English

HyperMesh

Accepted answers

All comments

tinh

What is the variable?

Why do you need to delete it?

mkress

Hello thin, thank you for your reply,

the variable is a .csv file which i created with the script ' '. After that i would like to open the file with the script ' --> '. Both scripts starts with a button in the utility menu.

Is it possible that the error related to the memory of Hypermesh? Perhaps the scripts are still running?

I want to close the script ' temp_in_fem.tcl ' with the command 'exit' at the end of the script. Perhaps i should use an other command?

Kind regards

Michael

Unable to find an attachment - read this blog

tinh

The error is very obvious that file sample.csv is not found because $path =''

Please post your code here

I cannot open tcl file

Altair Forum User

Hey tinh,

here is the codes you asked for:

set path ''
   set name ''
   set temp ''

set infor ''
set infor [open C:/Users/Simon/Documents/path.txt r]
                                                                   #Startinformationen einlesen
    while {[gets $infor line]!=-1} {
                                                                   #Variable zeilenweise auslesen
       incr z
                                                                   #Zeilenzahl
           if {$z==1} {set path $line}
           if {$z==2} {set temp $line}
           if {$z==3} {set name $line}
                                                                   #Informationen der Zeile 1+2 in Variable schreiben
                                   }

   #-------------------------------------------------------------------------------------------------------------------------------------
   #-------------------------------------------------------------------------------------------------------------------------------------
   #-------------------------------------------------------------------------------------------------------------------------------------
   #Programmteil 2: Umrechnung der Knotenspannung


   set data ''
   set data [open $path/sample.csv r]
                                                                   #Knotenspannung einlesen
       while {[gets $data lines] >=0} {
                                                                   #Loop für jede Zeile
           if {$lines==''} {break}
                                                                   #Wenn Zeile leer ist, abbruch
               incr i
                                                                   #Loopzähler
                   if {$i>=1} {
                                                                   #Ab Zeile 2 in Variable schreiben
                       set fields [split $lines ',']
                       lassign $fields field1 field2
                                                                   #Zeile an Komma trennen, die zwei erstellten Werte in Variablen schreiben
                           if {![regexp {N/A} $field2]}    {
                                                                   #Wenn in Feld 2 {N/A} steht wird die Zeile nicht in Variable geschrieben
                               if {$field2>=$temp} {
                                                                   #Nur wenn Spannung größer als Referenztemperatur, einschreiben
                               set dif_temp [expr $field2 - $temp]
                                                                   #Temperatur differenz berechnen
               set a 'TEMP'
               set b 3
                                                                   #Parameter die zusätzlich eingeschrieben werden
               set formatStr {%0s%12s%8s%8s}
                                                                   #Zeichenabstand der Variablen definieren (1s = ein Lehrzeichen)
               append xxx '[format $formatStr $a $b $field1 [format '%.1f' $dif_temp]]\n'

                                                                   #write everything in a variable
                                                   }
                                                           }
                               }
                                       }

           close $data


   #-------------------------------------------------------------------------------------------------------------------------------------
   #-------------------------------------------------------------------------------------------------------------------------------------
   #-------------------------------------------------------------------------------------------------------------------------------------
   #Programmteil 3: Suchen der Einfügezeile in der .fem Datei

       set fp ''
       set fp [open $path/$name r]
       set fem_file [read $fp]
       close $fp
                                                                   #öffnen der .fem Datei
           set a 0
           set b 0
           set e 0
                                                                   #setze Variablen =0
               set daten [split $fem_file '\n']
               foreach line_pos $daten {
                                                                   #loop, jede Zeile abfragen

               if {![regexp {SPC} $line_pos] || ![regexp {1} $line_pos]} {incr a} else {set b $a}
               if {[regexp {SPC} $line_pos] && [regexp {1} $line_pos]} {incr e}

                                                                   #Logik, für das Finden der individuelle Einfügezeile
                                       }
               set num ''
               set num [expr $b + $e +1]
                                                                   #Zeilennummer

   #-------------------------------------------------------------------------------------------------------------------------------------
   #-------------------------------------------------------------------------------------------------------------------------------------
   #-------------------------------------------------------------------------------------------------------------------------------------
   #Programmteil 4: Einschreiben in die .fem Datei


       set daten ''
       set daten [open $path/$name r]
                                                                   #öffnen der .fem Datei
           set y 0
                                                                   #Setze Variable 0
               while {[gets $daten zeile] >=0} {
                                                                   #Loop einlesen
                   incr y
                                                                   #Loopzähler
                       if {$y<=100} {
                               append zzz '$zeile\n'
                                   }
                                                                   #.fem Datei bis Zeile 100 in Variable schreiben
                           if {$y==$num} {
                               append zzz '$xxx\n'
                                       }
                                                                   #Temperaturen in Variable schreiben

                       if {$y>100} {
                                                                   #.fem Datei ab Zeile 101 in Variable schreiben

                           if {![regexp {TEMP} $zeile] || ![regexp {3} $zeile]} {

                                                                   #wenn bereits Temperaturen in der .fem Datei stehen, diese nicht in die Variable schreiben

                               append zzz '$zeile\n'
                                                                   #einschreiben der .fem Zeilen
                                                                               }
                                   }

                                               }


   #-------------------------------------------------------------------------------------------------------------------------------------
   #-------------------------------------------------------------------------------------------------------------------------------------
   #-------------------------------------------------------------------------------------------------------------------------------------
   #Programmteil 5: Outfile erzeugen / Programm schließen


       set outfile [open $path/$name w]
       puts $outfile $zzz
       close $outfile
                                                                   #outfile erzeugen und Variable einfügen

       catch {unset temp outfile}
                                                                   #zur sicherheit ????????
       exit
                                                                   #Programm schließen

Kind regards,

Simon

Unable to find an attachment - read this blog

tinh

$path depends on file 'C:/Users/Simon/Documents/path.txt'

please post its content here

Altair Forum User

This is the content of the path.txt:

C:/Users/Simon/Desktop/Test_1
110
abc.fem

tinh

You have to set z = 0 before the loop 'while'

Altair Forum User

Great, the program is finally working!