internal static void StructuralModelFromSapFile(ref cSapModel SapModel, ref StructuralModel model, string SapModelUnits)
{
model.StructuralElements = new List<Element>();
model.ModelDefinitions = new List<Definition>();
List<LoadPattern> TempLPatterns = new List<LoadPattern>();
string error = string.Empty;
if (SapModel != null)
{
// 1.a GET LOAD PATTERNS
string[] LoadPatternNames = null;
string[] LoadPatternTypes = null;
double[] LoadPatternMultipliers = null;
StructureMapper.GetLoadPatterns(ref SapModel, ref LoadPatternNames, ref LoadPatternTypes, ref LoadPatternMultipliers);
if (LoadPatternNames != null)
{
foreach (string lpname in LoadPatternNames)
{
int pos = Array.IndexOf(LoadPatternNames, lpname);
LoadPattern lp = new LoadPattern(lpname, LoadPatternTypes[pos], LoadPatternMultipliers[pos]);
model.ModelDefinitions.Add(lp);
TempLPatterns.Add(lp);
}
}
// 1.b GET LOAD CASES
string[] LoadCasesNames = null;
string[] LoadCasesTypes = null;
double[] LoadCasesMultipliers = null;
//With this method we only get the name and the type of each load case
StructureMapper.GetLoadCases(ref SapModel, ref LoadCasesNames, ref LoadCasesMultipliers, ref LoadCasesTypes);
if (LoadCasesNames != null)
{
foreach (string lcname in LoadCasesNames)
{
int pos = Array.IndexOf(LoadCasesNames, lcname);
//create a new load
LoadCase lc = new LoadCase();
lc.name = lcname;
lc.type = LoadCasesTypes[pos];
model.ModelDefinitions.Add(lc);
}
}
//1.c GET LOAD COMBOS
string[] LoadCombosNames = null;
string[][] LoadCombosTypes = null;
string[][] LoadCombosCases = null;
string[][] LoadCombosDefinitions = null;
double[][] LoadCombosMultipliers = null;
StructureMapper.GetLoadCombos(ref SapModel, ref LoadCombosNames, ref LoadCombosTypes, ref LoadCombosCases, ref LoadCombosMultipliers, ref LoadCombosDefinitions);
if (LoadCombosNames != null)
{
foreach (string lcname in LoadCombosNames)
{
int pos = Array.IndexOf(LoadCombosNames, lcname);
List<Definition> LoadDefinitions = new List<Definition>();
foreach (string comboType in LoadCombosTypes[pos])
{
int pos2 = Array.IndexOf(LoadCombosTypes[pos], comboType);
Definition def = new Definition();
if (comboType == "LoadCase")
{
//find the existing Load Case
foreach (Definition d in model.ModelDefinitions)
{
if (d.Type == Definitions.Type.LoadCase)
{
if (((LoadCase)d).name == LoadCombosDefinitions[pos][pos2])
{
def = d;
}
}
}
}
else
{
def.Type = Definitions.Type.LoadCombo;
((LoadCombo)def).name = comboType;
}
LoadDefinitions.Add(def);
}
//create a new load combo
LoadCombo loadcombo = new LoadCombo(lcname, LoadCombosTypes[pos][0], LoadDefinitions, LoadCombosMultipliers[pos].ToList());
model.ModelDefinitions.Add(loadcombo);
}
}
// 2. GET DYNAMO FRAMES ( get Loads and Releases that are assigned to that frame)
//2.a GET LOADS that are Assigned to Frames
Dictionary<int, string> DictFrm_PointLoads = new Dictionary<int, string>();
Dictionary<int, string> DictFrm_DistLoads = new Dictionary<int, string>();
//Get Point Loads
string[] framesWithPointLoads = null;
string[] PlPattern = null;
int Pnumber = 0;
int[] PmyType = null;
string[] PCsys = null;
int[] Pdir = null;
double[] PRelDist = null;
double[] PDist = null;
double[] PVal = null;
LoadMapper.GetPointLoads(ref SapModel, ref framesWithPointLoads, ref Pnumber, ref PlPattern, ref PmyType, ref PCsys, ref Pdir, ref PRelDist, ref PDist, ref PVal);
if (framesWithPointLoads != null)
{
for (int i = 0; i < framesWithPointLoads.Count(); i++)
{
DictFrm_PointLoads.Add(i, framesWithPointLoads[i]);
}
}
// Get Distributed Loads
string[] framesWithDistributedLoads = null;
string[] DlPattern = null;
int Dnumber = 0;
int[] DmyType = null;
string[] DCsys = null;
int[] Ddir = null;
double[] DRD1 = null;
double[] DRD2 = null;
double[] DDist1 = null;
double[] DDist2 = null;
double[] DVal1 = null;
double[] DVal2 = null;
LoadMapper.GetDistributedLoads(ref SapModel, ref framesWithDistributedLoads, ref Dnumber, ref DlPattern, ref DmyType, ref DCsys, ref Ddir, ref DRD1, ref DRD2, ref DDist1, ref DDist2, ref DVal1, ref DVal2);
if (framesWithDistributedLoads != null)
{
for (int i = 0; i < framesWithDistributedLoads.Count(); i++)
{
DictFrm_DistLoads.Add(i, framesWithDistributedLoads[i]);
}
}
//2.b Get Frames
// Calculate Length Scale Factor
//Double SF = Utilities.UnitConversion("m", SapModelUnits); // Dynamo API Lenght Unit is 'meter'
Double SF = 1;
List<string> FrmIds = new List<string>();
StructureMapper.GetSAPFrameList(ref SapModel,ref FrmIds);
for (int i = 0; i < FrmIds.Count; i++)
{
Point s = null;
Point e = null;
string matProp = "A992Fy50"; // default value
string secName = "W12X14"; // default value
string secCatalog = "AISC14"; // default value
string Just = "MiddleCenter"; // default value
double Rot = 0; // default value
StructureMapper.GetFrm(ref SapModel, FrmIds[i], ref s, ref e, ref matProp, ref secName, ref Just, ref Rot, ref secCatalog, SF);
SectionProp secProp = new SectionProp(secName, matProp, secCatalog);
Frame d_frm = new Frame(s, e, secProp, Just, Rot);
d_frm.Label = FrmIds[i];
model.StructuralElements.Add(d_frm);
//LOADS
// Frame might have multiple loads assigned to it...
d_frm.Loads = new List<Load>();
//Check if the frame has distributed loads
var outindexes = from obj in DictFrm_DistLoads
where obj.Value == d_frm.Label
select obj.Key;
foreach(int index in outindexes)
{
LoadPattern Dlp = null;
foreach (LoadPattern loadp in TempLPatterns)
{
if (loadp.name == DlPattern[index])
{
Dlp = loadp;
break;
}
}
if (Dlp != null)
{
// using relDist as true, and using the relative distance values DRD1 and DRD2
bool relDist = true;
Load l = new Load(Dlp, DmyType[index], Ddir[index], DRD1[index], DRD2[index], DVal1[index], DVal2[index], DCsys[index], relDist);
l.LoadType = "DistributedLoad";
d_frm.Loads.Add(l);
}
}
//Check if the frame has Point Loads
var outindexesO = from obj in DictFrm_PointLoads
where obj.Value == d_frm.Label
select obj.Key;
foreach (int index in outindexesO)
{
LoadPattern Plp = null;
foreach (LoadPattern loadp in TempLPatterns)
{
if (loadp.name == PlPattern[index])
{
Plp = loadp;
break;
}
}
if (Plp != null)
{
bool relativedist = true;
Load l = new Load(Plp, PmyType[index], Pdir[index], PRelDist[index], PVal[index], PCsys[index], relativedist);
l.LoadType = "PointLoad";
d_frm.Loads.Add(l);
}
}
//RELEASES
bool[] ii = new bool[6];
bool[] jj = new bool[6];
ReleaseMapper.Get(ref SapModel, FrmIds[i], ref ii, ref jj);
// Populate if return releases
if (ii.Contains(true) || jj.Contains(true))
{
d_frm.Releases = Release.Set(ii[0], jj[0]
, ii[1], jj[1]
, ii[2], jj[2]
, ii[3], jj[3]
, ii[4], jj[4]
, ii[5], jj[5]);
}
}
// 2.b Get Shells from SAP Model
List<string> AreaIds = new List<string>();
SAPConnection.StructureMapper.GetSAPAreaList(ref SapModel, ref AreaIds);
for (int i = 0; i < AreaIds.Count; i++)
{
Surface S = null;
string propName = string.Empty;
SAPConnection.StructureMapper.GetShell(ref SapModel, AreaIds[i], ref S, SF, ref propName);
int ShellType= 1;
bool DOF = true;
string MatProp = string.Empty;
double MatAngle = 0;
double Thickness = 0;
double Bending = 0;
SAPConnection.StructureMapper.GetShellProp(ref SapModel, propName, ref ShellType, ref DOF, ref MatProp, ref MatAngle, ref Thickness, ref Bending);
ShellProp sP = new ShellProp(propName, ShellType, DOF, MatProp, MatAngle, Thickness * SF, Bending);
Shell d_Shell = new Shell(S, sP);
d_Shell.Label = AreaIds[i];
model.StructuralElements.Add(d_Shell);
}
// 3. GET RESTRAINTS
int CountRes = RestraintMapper.Count(ref SapModel);
if (CountRes > 0)
{
List<string> PtIds = new List<string>();
RestraintMapper.GetSupportedPts(ref SapModel, ref PtIds);
// Populate Dynamo Restraints
foreach (var PtId in PtIds)
{
Point Pti = null;
bool[] restraints = new bool[6];
RestraintMapper.Get(ref SapModel, PtId, ref Pti, ref restraints, SF);
Joint myj = new Joint(Pti);
myj.Label = PtId;
// Populate on Joint Restraints
Restraint support = Restraint.Define(restraints[0], restraints[1], restraints[2], restraints[3], restraints[4], restraints[5]);
myj.JointRestraint = support;
model.StructuralElements.Add(myj);
}
}
}
else
{
throw new Exception("Make sure SAP Model is open!");
}
// Get Groups
List<String> SapGroups = new List<string>();
SAPConnection.GroupMapper.GetSAPGroupList(ref SapModel, ref SapGroups);
int counter = 0;
foreach (var g in SapGroups)
{
Group myG = new Group();
myG.Name = g;
myG.GroupElements = new List<Element>();
// get assignments
int[] types = null;
string[] Labels = null;
SAPConnection.GroupMapper.GetGroupAssignments(ref SapModel, g, ref types, ref Labels);
if (Labels!=null && Labels.Count() > 0)
{
for (int i = 0; i < Labels.Length; i++)
{
if (types[i] == 1) // Joint
{
try
{
var gel = (from el in model.StructuralElements
where el.Label == Labels[i] && el.Type == Structure.Type.Joint
select el).First();
if (gel != null)
{
myG.GroupElements.Add(gel);
}
}
catch (Exception) { }
}
else if (types[i] == 2) // frame
{
try
{
var gel = (from el in model.StructuralElements
where el.Type == Structure.Type.Frame && el.Label == Labels[i]
select el).First();
if (gel != null)
{
myG.GroupElements.Add(gel);
}
}
catch (Exception) { }
}
else if (types[i] == 3) // cable
{
//TODO: After cable object defined
}
else if (types[i] == 5) // shell
{
var gel = (from el in model.StructuralElements
where el.Type == Structure.Type.Shell && el.Label == Labels[i]
select el).First();
if (gel != null)
{
myG.GroupElements.Add(gel);
}
}
}
}
else
{
counter++;
}
//Add to Model definitions
model.ModelDefinitions.Add(myG);
}
if (counter == SapGroups.Count)
{
//throw new Exception("The group(s) have no members assigned");
}
}
/// <summary>
/// Set Restraints to Joint
/// </summary>
/// <param name="Joint">Joint</param>
/// <param name="Restraint">Restraint</param>
/// <returns></returns>
public static Joint SetRestraint( Joint Joint, Restraint Restraint )
{
// Create a new Joint using the properties of the input Joint
Joint newJoint = Joint.FromPoint(Joint.BasePoint);
// Create label
newJoint.Label = String.Format("dyn_{0}", Joint.ID.ToString());
// set the restraint
newJoint.JointRestraint = Restraint;
return newJoint;
}
/// <summary>
/// Create Joint from Dynamo Point
/// </summary>
/// <param name="Point"></param>
/// <returns></returns>
public static Joint FromPoint(Point Point)
{
Joint tJoint;
JointID tJointId = DynamoServices.TraceUtils.GetTraceData(TRACE_ID) as JointID;
if (tJointId == null)
{
// trace cache log didnot return an object, create new one !
tJoint = new Joint(Point);
// Set Label
tJoint.Label = String.Format("dyn_{0}", tJoint.ID.ToString());
}
else
{
tJoint = TracedJointManager.GetJointbyID(tJointId.IntID);
string test = tJoint.Label;
tJoint.BasePt = Point;
}
//Set the trace data on the return to be this Joint
DynamoServices.TraceUtils.SetTraceData(TRACE_ID, new JointID { IntID = tJoint.ID });
return tJoint;
}
// Create or Update Joint
private static void CreateorUpdateJoint(Joint j, ref cSapModel mySAPModel, double SF, bool update)
{
if (!update) // create new one
{
string dummy = string.Empty;
StructureMapper.CreateorUpdateJoint(ref mySapModel, j.BasePt, ref dummy, false, SF);
// Set custom Label to Frame in dynamo & Frame! User can match by using Label & ID
bool renamed = SAPConnection.StructureMapper.ChangeNameSAPJoint(ref mySapModel, dummy, j.Label);
if (!renamed)
{
j.Label = dummy;
}
}
else // modify the existing
{
string id = j.Label;
StructureMapper.CreateorUpdateJoint(ref mySapModel, j.BasePt, ref id, true, SF);
}
// 2. Assigns Restraints to Node
if (j.JointRestraint != null)
{
List<bool> restraints = new List<bool>();
restraints.Add(j.JointRestraint.u1); restraints.Add(j.JointRestraint.u2); restraints.Add(j.JointRestraint.u3);
restraints.Add(j.JointRestraint.r1); restraints.Add(j.JointRestraint.r2); restraints.Add(j.JointRestraint.r3);
// Set restaints
SAPConnection.RestraintMapper.Set(ref mySapModel, j.Label, restraints.ToArray());
}
//// 3. Assign Force to Node
//if (j.Loads != null)
//{
//}
}
