重要的问题及解答

  • 常见问题和解答 (FAQs)

This article was translated by Google Translator

View original text

如何在RF-COM中创建杆件偏心?

回答

下面的VBA宏显示了两个杆件偏心的创建。 该源代码可以在下载中找到。

'------------------------------------------------- -------------------------------------------------
子SetEccs()
'------------------------------------------------- -------------------------------------------------
Dim model as RFEM5.model
Dim data as IModelData
Dim ecc(1)为RFEM5.MemberEccentricity

'获取模型接口
设置模型= GetObject(,“ RFEM5.Model”)
    
'禁止COM许可证和程序访问
model.GetApplication.LockLicense

出现错误时转到
'获取模型数据接口
设置数据= model.GetModelData

'定义偏心距1
ecc(0).No = 1
ecc(0).ReferenceSystem = LocalSystemType
ecc(0).Start.X = 0.01
ecc(0).Start.Y = 0.02
ecc(0).Start.Z = 0.03
ecc(0).End.X = -0.01
ecc(0).End.Y = -0.02
ecc(0).End.Z = -0.03
ecc(0).Comment =“偏心距1”
    
'定义偏心距2
ecc(1).No = 2
ecc(1).ReferenceSystem = GlobalSystemType
ecc(1).Start.X = -0.07
ecc(1).Start.Y = -0.08
ecc(1).Start.Z = -0.09
ecc(1).End.X = 0.07
ecc(1).End.Y = 0.08
ecc(1).End.Z = 0.09
ecc(1).Comment =“偏心距2”
    
'传递杆件偏心
data.PrepareModification
data.SetMemberEccentricities ecc

e:data.FinishModification
如果Err.Number <> 0那么MsgBox Err.Description,,Err.Source
设置数据=无
'COM许可证已解锁,可以再次访问程序
model.GetApplication.UnlockLicense
设置模型= Nothing

结束子

关键词

杆件偏心 Excel VBA

下载

写评论...

写评论...

  • 浏览 124x
  • 更新 2020年11月10日

联系我们

您找到想找的问题和解答了吗?
如果没有,请通过邮件、在线聊天工具以及论坛技术支持联系我们或者把您的问题通过网上表格递交给我们。

+49 9673 9203 0

(可要求接中文热线)

info@dlubal.com

RFEM 其他附加模块
RF-COM 5.xx

附加模块

RFEM 可编程序的 COM 接口

首个许可价格
580.00 USD