Tento text byl přeložen Google překladačem

Zobrazit původní text

Jak mohu vytvořit spline NURBS s rozhraním COM?

Odpověď

Hlavním objektem není liniový objekt, nýbrž objekt typu NurbSpline.
Zde je krátký příklad, jak vytvořit NURBS (Non-Uniform Rational B-Spline):

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

Dim model jako RFEM5.model
Nastavit model = GetObject (, "RFEM5.Model")
model.GetApplication.LockLicense

Chyba GoTo e

Dim data jako IModelData
Nastavit data = model.GetModelData

'definuje pole uzlů
Dim uzly (0 až 2) Jako RFEM5.Node
    
uzly (0) .No = 1
uzly (0). Typ = Výchozí
uzly (0) .CS = Kartézsky
uzly (0) .X = 1
uzly (0) .Y = 1
uzly (0) .Z = 0

uzly (1) .No = 2
uzly (1). Typ = Výchozí
uzly (1) .CS = kartézské
uzly (1) .X = 2
uzly (1). Y = 1
uzly (1) .Z = -1
    
uzly (2) .No = 3
uzly (2). Typ = Výchozí
uzly (2) .CS = kartézský
uzly (2) .RefObjectNo = 2
uzly (2) .X = 0
uzly (2). Y = 1
uzly (2) .Z = 0
    
Dim darr1 (0 až 5) jako dvojitý
darr1 (0) = 1
darr1 (1) = 2
darr1 (2) = 3
darr1 (3) = 4
darr1 (4) = 5
darr1 (5) = 6
    
Dim darr2 (0 až 2) jako dvojitý
darr2 (0) = 1
darr2 (1) = 1
darr2 (2) = 1
    
Dim ns jako NurbSpline
ns.General.No = 2
ns.General.Type = NurbSplineType
ns.General.NodeList = "1,2,3"
ns.General.Comment = "řádek 2"
ns.Knots = darr1
ns.Order = 3
ns.Weights = darr2
    
Přednastavte modifikaci
data
data.SetNurbSpline ns
e: data.Při dokončení modifikace
Pokud Err.Number <> 0, pak MsgBox Err.Description ,, Err.Source

Zadat data = nic
model.GetApplication.UnlockLicense
Nastavit model = Nic

Konec podřízené

Klíčová slova

NURBS Spline COM

Ke stažení

Kontakt

Kontakt

Nenalezli jste odpověď na Vaši otázku?
Kontaktujte prosím naši bezplatnou podporu e-mailem, na chatu nebo na fóru, případně nám zašlete Váš dotaz prostřednictvím online formuláře.

+420 227 203 203

info@dlubal.cz

RFEM Ostatní
RF-COM 5.xx

Přídavný modul

Programovatelné rozhraní COM

Cena za první licenci
580,00 USD