[매크로] Abaqus comment 없는 파일로 저장하기

HyperMesh에서 abaqus 파일을 export할때, comment만 빼고 저장하는 export 옵션은 11.0에서 지원될 예정입니다.
아래 매크로로를 이용하여, export된 파일을 연 후 바로 저장하면 comment만 제외되어 저장할 수 있습니다.

<유의사항>

아래의 스크립트를 복사하여 사용할 때에 큰 따옴표는 다른 특수문자로 인식이 되는 경우가 있으니, 큰따옴표를 다시 입력하여야 합니다.

set types { {"ABAQUS INPUT"  {*.inp}}	}
set oldINPfile [tk_getOpenFile -filetype $types ]
set newINPfile [open [hm_getSaveFile] w]

if [ catch {set fileId [ open $oldINPfile r ] } errorMessage ] {
    puts stderr "Cannot open : Nothing in here " ;
    return 0 ;
} else {
    while {[gets $fileId line] >= 0} {
        if { [ string match {***} $line ] == 0} {
            puts $newINPfile $line
        }
    }
    close $fileId
}
close $newINPfile