1098x
003427
2019-08-06

问题

如何创建带有 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

设置数据 = 无
模型.获取应用程序.解锁许可证
设置模型 = 无

末端接头

作者

Günthel 先生为Dlubal 软件客户提供技术支持。