问题：
如何创建带有 COM 接口的 NURBS？
答案：
主要对象不是线，而是 NurbSpline 类型的对象。
下面是一个创建 NURBS（非均匀有理 B 样条）的简短示例：
'-------------------------------- ——————————————————————————————— ——
子 nurbs_test()
'-------------------------------- ——————————————————————————————— ——
Dim model As RFEM5.model
Set model = GetObject(, "RFEM5.Model")
模型.获取应用程序.锁定许可证
出错时转到 e
将数据调暗为 IModelData
设置数据 = 模型.GetModelData
' 定义节点数组
Dim节点(0到2)作为RFEM5.Node
节点(0).No = 1
节点（0）。 类型 = 标准
节点(0).CS =笛卡尔
节点(0).X = 1
节点(0).Y = 1
节点(0).Z = 0
节点数(1).No = 2
节点(1).Type = 标准
节点(1).CS =笛卡尔
节点(1).X = 2
节点(1).Y = 1
节点(1).Z = -1
节点(2).No = 3
节点(2).Type = 标准
节点(2).CS =笛卡尔
节点(2).RefObjectNo = 2
节点(2).X = 0
节点(2).Y = 1
节点(2).Z = 0
调暗 darr1(0 到 5)
darr1(0) = 0
darr1(1) = 0
darr1(2) = 0
darr1(3) = 1
darr1(4) = 1
darr1(5) = 1
调暗 darr2(0 到 2) 作为双
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
ns.阶 = 3
ns.Weights = darr2
数据.准备修改
data.SetNodes 节点
data.SetNurbSpline ns
e: 数据.完成修改
如果 Err.Number 0 那么 MsgBox Err.Description, , Err.Source
设置数据 = 无
模型.获取应用程序.解锁许可证
设置模型 = 无
末端接头