---

Hallo,

ich bin hier neu im forum und auch ein anfänger bei der erstellung von vba programmen für FEMAP. mir gelingt es nicht aus EXCEL die Lasten auf ein vorhandenes model (NXNastran) zu übertragen. ich habe die knotenlasten in EXCEL errechnet und möchte sie nun mit einem vba makro nach FEMAP übertragen. Kann mir dazu jemanb etwas hilfe geben?

joho2006

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

hab es in der Zwischenzeit selbst herausgefunden:

Dim femap As Object
Set femap = GetObject(, "femap.model")

Dim LdSet As Object
Set LdSet = femap.feLoadSet
Dim ld As Object
Set ld = femap.feLoadMesh
ld.setID = 1

Row = 13
ID = Worksheets(tab_blatt).Cells(Row, 2).Value

ld.Color = 44
ld.CSys = 0
ld.Type = 1

While ID > 0

ldx = Worksheets(tab_blatt).Cells(Row, 8).Value

ld.ID = ID
ld.meshID = ID
ld.load(0) = ldx
ld.load(1) = 0
ld.load(2) = 0
ld.Put (ld.ID)
Row = Row + 1
ID = Worksheets(tab_blatt).Cells(Row, 2).Value
Wend

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP