Эта статья была переведена Google Translator

Посмотреть исходный текст

Как я могу создать сплайны NURBS с помощью COM-интерфейса?

Ответ

Главный объект - это не линейный объект, а объект типа NurbSpline.
Вот краткий пример создания NURBS (неоднородного Rational B-Spline):

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

Модель Dim Как RFEM5.model
Установить модель = GetObject (, "RFEM5.Model")
model.GetApplication.LockLicense

Ошибка при сбое

Данные Dim в качестве IModelData
Установка данных = model.GetModelData

'определить массив узлов
Тусклые узлы (0 ... 2) Как RFEM5.Node
    
Узлы (0) .No = 1
nodes (0) .Type = Default
Узлы (0) .CS = декартово
Узлы (0) .X = 1
Узлы (0) .Y = 1
Узлы (0) .Z = 0

Узлы (1) .Нет = 2
nodes (1) .Type = Default
Узлы (1) .CS = декартов
Узлы (1) .X = 2
Узлы (1) .Y = 1
Узлы (1) .Z = -1
    
Узлы (2) .Нет = 3
Узлы (2) .Type = По умолчанию
Узлы (2) .CS = декартово
Узлы (2) .RefObjectNo = 2
Узлы (2) .X = 0
Узлы (2) .Y = 1
Узлы (2) .Z = 0
    
Тусклый darr1 (от 0 до 5) как двойной
darr1 (0) = 1
darr1 (1) = 2
darr1 (2) = 3
darr1 (3) = 4
darr1 (4) = 5
darr1 (5) = 6
    
Dim 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.Order = 3
ns.Weights = darr2
    
data.PrepareModification
data.SetNodes
data.SetNurbSpline ns
e: data.FinishModification
Если Err.Number <> 0, то MsgBox Err.Description ,, Err.Source

Установка данных = Nothing
model.GetApplication.UnlockLicense
Установить модель = ничего

End Sub

Ключевые слова

NURBS Кривая COM

Загрузки

Контакты

Вы нашли ответ на свой вопрос? Если нет, свяжитесь с нами через бесплатную поддержку по электронной почте, в чате или на форуме или отправьте нам свой вопрос с помощью онлайн-формы.

+49 9673 9203 0

info@dlubal.com

RFEM Прочие
RF-COM 5.xx

Дополнительный модуль

Программируемый интерфейс (API), основанный на технологии COM

Цена первой лицензии
580,00 USD