443x
003570
2019-09-10

问题

是否可以通过 COM 接口创建节点版本?


回复:

是的,可以通过 COM 接口创建节点释放。 这里是一个例子:

子节点释放()

Dim iApp As RFEM5.Application
Dim iModel As RFEM5.model
    
出错时转到 e
    
Set iApp = GetObject(, "RFEM5.Application")
iApp.LockLicense
        
测试 = iApp.GetModelCount
设置 iModel = iApp.GetModel(0)
        
Dim iModeldata As RFEM5.iModeldata
设置 iModeldata = iModel.GetModelData
        
        
' 设置节点释放需要一个杆件铰
' 轴系的对象不能与释放的相同
Dim nodRel As NodalRelease
nodRel.Location = 原始位置类型
nodRel.AxisSystem = LocalFromLine
nodRel.AxisSystemFromObjectNo = 2
nodRel.Comment = "测试节点版本"
nodRel.MemberHingeNo = 1
nodRel.NodeNo = 1
nodRel.ReleasedMembers = 1
        
iModeldata.PrepareModification
iModeldata.SetNodalRelease nodRel
iModeldata.FinishModification
        
        
e: 如果 Err.Number <> 0 那么 MsgBox Err.description, , Err.Source
    
iApp.UnlockLicense


末端接头


请注意,局部坐标系可能与释放的单元不同。