Artykuł został przetłumaczony przez Google Translator

Podgląd oryginalnego tekstu

W jaki sposób utworzyć splajny NURBS z interfejsem COM?

Odpowiedź

Główny obiekt nie jest obiektem liniowym, ale obiektem typu NurbSpline.
Oto krótki przykład tworzenia NURBS (niejednorodnego Rational B-Spline):

"------------------------------------------------- -------------------------------------------------
Sub nurbs_test ()
"------------------------------------------------- -------------------------------------------------

Model przyciemnienia jako RFEM5.model
Ustawić model = GetObject (, "RFEM5.Model")
model.GetApplication.LockLicense

W przypadku błędu GoTo e

Wymiarowane dane Jako IModelData
Ustaw dane = model.GetModelData

'zdefiniować tablicę węzłów
Węzły dim (od 0 do 2) jako RFEM5.Node
    
węzły (0). Nie = 1
węzły (0) .Type = Default
węzły (0) .CS = Kartezjański
węzły (0) .X = 1
węzły (0) .Y = 1
węzły (0) .Z = 0

węzły (1) .No = 2
węzły (1) .Type = Default
węzły (1) .CS = Kartezjański
węzły (1) .X = 2
węzły (1) .Y = 1
węzły (1) .Z = -1
    
węzły (2) .Nie = 3
węzły (2) .Type = Default
węzły (2) .CS = Kartezjański
węzły (2) .RefObjectNo = 2
węzły (2) .X = 0
węzły (2) .Y = 1
węzły (2) .Z = 0
    
Dimrarrr1 (0 to 5) As Double
darr1 (0) = 1
darr1 (1) = 2
darr1 (2) = 3
darr1 (3) = 4
darr1 (4) = 5
darr1 (5) = 6
    
Dimrarrrr 2 (0 to 2) As 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 = "line 2"
ns.Knots = darr1
ns.Order = 3
ns.Weights = darr2
    
data.Precygacja
węzły data.SetNodes
data.SetNurbSpline ns
e: data.FinishModification
Jeżeli Err.Number <> 0 Then MsgBox Err.Description ,, Err.Source

Ustawić dane = Nic
model.GetApplication.UnlockLicense
Ustawić model = Nic

End Sub

Słowa kluczowe

NURBS Spline COM

Do pobrania

Kontakt

Kontakt do Dlubal

Znaleźliście Państwo odpowiedz na swoje pytanie?
Jeśli nie, mogą Państwo skontaktować się z nami bezpłatnie drogą mailową, poprzez czat lub forum lub wysłać zapytanie za pomocą formularza online.

+48 (32) 782 46 26

+48 730 358 225

info@dlubal.pl

RFEM Inne
RF-COM 5.xx

Moduł dodatkowy

Programowalny interfejs (API) w oparciu o technologię COM

Cena pierwszej licencji
580,00 USD