This article was translated by Google Translator View original text

New

FAQ 003427 ZH

2019年08月6日

Thomas Günthel 建模 | 结构 RF-COM

如何使用COM接口创建NURBS样条曲线?

回答

主对象不是线对象,而是类型为NurbSpline的对象。
这里有一个创建Nurbs样条曲线的简短示例:

'--------------------------------------------- -------------------------------------------------
Sub nurbs_test()
'--------------------------------------------- -------------------------------------------------

Dim model As RFEM5.model
设置model = GetObject(,“RFEM5.Model”)
model.GetApplication.LockLicense

错误转到e

Dim data as IModelData
设置data = model.GetModelData

'定义节点数组
Dim nodes(0~2)As RFEM5.Node
    
nodes(0).No = 1
nodes(0).Type =默认值
nodes(0).CS =笛卡尔坐标
nodes(0).X = 1
nodes(0).Y = 1
nodes(0)。Z = 0

节点(1).No = 2
nodes(1).Type =缺省值
nodes(1).CS =笛卡尔坐标
节点(1).X = 2
nodes(1).Y = 1
nodes(1)。Z = -1
    
节点(2).No = 3
nodes(2).Type = Default
nodes(2).CS =笛卡尔坐标
nodes(2).RefObjectNo = 2
nodes(2).X = 0
nodes(2).Y = 1
nodes(2)。Z = 0
    
Dim darr1(0到5)Double
darr1(0)= 1
darr1(1)= 2
darr1(2)= 3
darr1(3)= 4
darr1(4)= 5
darr1(5)= 6
    
Dim darr2(0到2)Double
darr2(0)= 1
darr2(1)= 1
darr2(2)= 1
    
Dim ns As NurbSpline
ns.General.No = 2
ns.General.Type = NurbSplineType
ns.General.NodeList =“1,2,3”
ns.General.Comment =“2”
ns.Knots = darr1
nrsOrder = 3
ns.Weights = darr2
    
data.PrepareModification
data.SetNodes节点
data.SetNurbSpline ns
e:data.FinishModification
如果Err.Number <> 0那么MsgBox Err.Description ,, Err.Source

设置数据=没有
model.GetApplication.UnlockLicense
设置模型=没有

结束子

关键词

NURBS 样条曲线 COM

下载

联系我们

Kontakt zu Dlubal

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

+49 9673 9203 0

(可要求接中文热线)

info@dlubal.com

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

附加模块

RFEM 可编程序的 COM 接口

首个许可价格
580.00 USD