write

Author: jginternational

kratos.gid/apps/MdpaGenerator/app.json

@@ -3,7 +3,8 @@
     "name": "Mdpa Generator",
     "script_files": [
         "start.tcl",
-        "xml/XmlController.tcl"
+        "xml/XmlController.tcl",
+        "write/write.tcl"
     ],
     "dimensions": [
         "3D"
@@ -18,5 +19,6 @@
         "intervals": false,
         "wizard": false
     },
+    "main_launch_file": null,
     "description": "MDPA generator \n-Useful tool to generate modelparts"
 }

kratos.gid/apps/MdpaGenerator/start.tcl

@@ -1,14 +1,14 @@
 namespace eval ::MdpaGenerator {
     Kratos::AddNamespace [namespace current]
-    
+
     # Variable declaration
     variable _app
     variable dir
 }
 
 
 proc ::MdpaGenerator::Init { app } {
-    
+
     # Variable initialization
     variable _app
     variable dir
@@ -17,4 +17,5 @@ proc ::MdpaGenerator::Init { app } {
     set dir [apps::getMyDir "MdpaGenerator"]
 
     ::MdpaGenerator::xml::Init
+    ::MdpaGenerator::write::Init
 }

kratos.gid/apps/MdpaGenerator/write/write.tcl

@@ -0,0 +1,110 @@
+namespace eval ::MdpaGenerator::write {
+    namespace path ::MdpaGenerator
+    Kratos::AddNamespace [namespace current]
+
+    # Namespace variables declaration
+    variable writeCoordinatesByGroups
+    variable writeAttributes
+    variable ConditionMap
+    # after regular conditions are written, we need this number in order to print the custom submodelpart conditions
+    # only if are applied over things that are not in the skin
+    variable last_condition_iterator
+}
+
+proc ::MdpaGenerator::write::Init { } {
+    # Namespace variables inicialization
+
+    variable last_condition_iterator
+    set last_condition_iterator 0
+
+    variable writeAttributes
+    set writeAttributes [dict create ]
+}
+
+# MDPA write event
+proc ::MdpaGenerator::write::writeModelPartEvent { } {
+    # Validation
+    set err [Validate]
+    if {$err ne ""} {error $err}
+
+    InitConditionsMap
+    writeProperties
+
+    # Init data
+    write::initWriteConfiguration [GetAttributes]
+
+    # Headers
+    write::writeModelPartData
+
+    # Nodal coordinates
+    write::writeNodalCoordinates
+
+    # Custom SubmodelParts
+    variable last_condition_iterator
+    write::writeBasicSubmodelPartsByUniqueId  $MdpaGenerator::write::ConditionMap $last_condition_iterator
+
+    # Clean
+    unset ::MdpaGenerator::write::ConditionMap
+}
+
+proc ::MdpaGenerator::write::writeCustomFilesEvent { } {
+}
+
+
+proc ::MdpaGenerator::write::Validate {} {
+    set err ""
+
+    return $err
+}
+
+# MDPA Blocks
+proc ::MdpaGenerator::write::writeProperties { } {
+    # Begin Properties
+    write::WriteString "Begin Properties 0"
+    write::WriteString "End Properties"
+    write::WriteString ""
+}
+
+proc ::MdpaGenerator::write::InitConditionsMap { {map "" } } {
+
+    variable ConditionMap
+    if {$map eq ""} {
+        set ConditionMap [objarray new intarray [expr [GiD_Info Mesh MaxNumElements] +1] 0]
+    } {
+        set ConditionMap $map
+    }
+}
+proc ::MdpaGenerator::write::FreeConditionsMap { } {
+
+    variable ConditionMap
+    unset ConditionMap
+}
+
+proc ::MdpaGenerator::write::GetAttribute {att} {
+    variable writeAttributes
+    return [dict get $writeAttributes $att]
+}
+
+proc ::MdpaGenerator::write::GetAttributes {} {
+    variable writeAttributes
+    return $writeAttributes
+}
+
+proc ::MdpaGenerator::write::SetAttribute {att val} {
+    variable writeAttributes
+    dict set writeAttributes $att $val
+}
+
+proc ::MdpaGenerator::write::AddAttribute {att val} {
+    variable writeAttributes
+    dict lappend writeAttributes $att $val
+}
+
+proc ::MdpaGenerator::write::AddAttributes {configuration} {
+    variable writeAttributes
+    set writeAttributes [dict merge $writeAttributes $configuration]
+}
+
+proc ::MdpaGenerator::write::writeParametersEvent { } {
+    
+}

kratos.gid/apps/MdpaGenerator/xml/Main.spd

@@ -1,6 +1,8 @@
 <?xml version="1.0" encoding="utf-8"?>
-  <container n="MdpaGenerator" pn="MdpaGenerator" icon="app" prefix="MDPAGen_" tree_state="open" open_window="0">
-    <container n="WriteOptions" pn="Write options"  tree_state="open">
-    </container>
-    <include n="GenericSubModelPart" active="1" path="apps/Common/xml/GenericSubModelPart.spd"/>
+<container n="MdpaGenerator" pn="MdpaGenerator" icon="app" prefix="MDPAGen_" tree_state="open" open_window="0">
+  <container n="WriteOptions" pn="Write options" tree_state="open">
+    <value n="condition_write_mode" pn="Condition mode" v='unique' values="unique,repeat,gid-id" dict="unique,Unique ids,repeat,Repeat,gid-id,GiD ids"
+    help="Ids policy for conditions applied over the same entity more than one time."/>
   </container>
+  <include n="GenericSubModelPart" active="1" path="apps/Common/xml/GenericSubModelPart.spd"/>
+</container>