Hi everyone.
I tryed to find any similar question, but it doesnt succes.
I cad model any section in ABD Connect Edition using VBA and STF library (AECOSimBuildingDesigner Structural 9.1 Library). The code uder helps model sections
| Function CreateAMember(a As Long, b As Long, c As Long, d As Long, e As Long, f As Long, ang As Long, mySectionName As String, p as Byte) |
| Dim myMember As STFLinearMember |
| Dim section As STFSection |
| Dim pPt As Point3d |
| Dim qPt As Point3d |
| pPt.x = a |
| pPt.y = b |
| pPt.z = c |
| qPt.x = d |
| qPt.y = e |
| qPt.z = f |
| Set myMember = New STFLinearMemberList |
| Set section = New STFSectionList |
| section.SetName mySectionName |
| myMember.SetSTFSection section |
| myMember.SetPartFamily "Steel_carbon" |
| myMember.SetPartName "Beam" |
| myMember.SetMaterial "Steel", "S355" |
| myMember.SetPQPoints pPt, qPt |
| myMember.SetPlacementPoint p |
| myMember.SetRotation ang |
| 'myMember.SetJoistInstance "Beam" |
| myMember.SetCrossSectionReflection True |
| myMember.CreateTFFormRecipeList |
| myMember.Save True |
| End Function |
| Sub aaaaa() |
| CreateAMember 0, 0, 0, 1500, 0, 0, 0, "L 90x90x7" |
| CreateAMember 1500, 0, 0, 1500, 1500, 0, 30, "[ 120 UPN" |
| CreateAMember 1500, 1500, 0, 0, 1500, 0, 60, "[ 160 UPN" |
| CreateAMember 0, 1500, 0, 0, 2000, 0, 90, "[ 240 UPN" |
| End Sub |
But now i need to model slab in ABD. I am going to use STFSolid from the same library. Anybody have code for this aim. I mean create a solid in ABD using VBA.