yuriyoryshchuk
Mechanical
- Jan 30, 2016
- 2
Dear Colleagues,
does any body used parameter .NasExecStartText or .NasExecEndText for object femapApp.feAnalysisMgr ?
I need by my code to writedown in nastran file some additional instructions but it doesn't work somewhy.
my code:
Dim fText As femap.text
fText = femapApp.feText
fText.ID = 11
rc = fText.Get(fText.ID)
fText.text = "someinstruction text here"
rc = fText.Put(11)
Dim anSet As femap.AnalysisMgr
anSet = femapApp.feAnalysisMgr
With anSet
.ID = 7
.title = "AnSetName"
.Solver = femap.zAnalysisMgrProgram.FAM_NX_NASTRAN
.SkipStandard = True
.NasExecSkipStandard = True
.NasBulkSkipStandard = True
.NasExecStartText() = 11
.NasExecEndText = 11
.NasBulkStartText = True
.NasBulkEndTextOutsideBulk = True
rc = .Put(7)
End With
rc = femapApp.feViewRegenerate(0)
Yuriy
does any body used parameter .NasExecStartText or .NasExecEndText for object femapApp.feAnalysisMgr ?
I need by my code to writedown in nastran file some additional instructions but it doesn't work somewhy.
my code:
Dim fText As femap.text
fText = femapApp.feText
fText.ID = 11
rc = fText.Get(fText.ID)
fText.text = "someinstruction text here"
rc = fText.Put(11)
Dim anSet As femap.AnalysisMgr
anSet = femapApp.feAnalysisMgr
With anSet
.ID = 7
.title = "AnSetName"
.Solver = femap.zAnalysisMgrProgram.FAM_NX_NASTRAN
.SkipStandard = True
.NasExecSkipStandard = True
.NasBulkSkipStandard = True
.NasExecStartText() = 11
.NasExecEndText = 11
.NasBulkStartText = True
.NasBulkEndTextOutsideBulk = True
rc = .Put(7)
End With
rc = femapApp.feViewRegenerate(0)
Yuriy