Questo articolo è stato tradotto da Google Traduttore

Visualizza il testo originale

Come posso creare spline NURBS con l'interfaccia COM?

Risposta

L'oggetto principale non è un oggetto linea, ma un oggetto di tipo NurbSpline.
Ecco un breve esempio per la creazione di una NURBS (B-Spline razionale non uniforme):

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

Modello dim come RFEM5.model
Imposta modello = GetObject (, "RFEM5.Model")
model.GetApplication.LockLicense

On Error Go To e

Ridimensiona dati come IModelData
Imposta data = model.GetModelData

'Definisci array di nodi
Nodi attenuati (da 0 a 2) Come RFEM5.Nodo
    
nodi (0). No = 1
Nodi (0) .Type = Default
nodi (0) .CS = Cartesiano
Nodi (0) .X = 1
nodi (0) .Y = 1
nodi (0) .Z = 0

nodi (1). No = 2
Nodi (1) .Type = Default
nodi (1) .CS = Cartesiano
nodi (1) .X = 2
nodi (1) .Y = 1
nodi (1) .Z = -1
    
nodi (2). No = 3
Nodi (2) .Type = Default
Nodi (2) .CS = Cartesiano
nodi (2) .RefObjectNo = 2
Nodi (2) .X = 0
nodi (2) .Y = 1
nodi (2) .Z = 0
    
Dim darr1 (da 0 a 5) Come doppio
darr1 (0) = 1
darr1 (1) = 2
darr1 (2) = 3
darr1 (3) = 4
darr1 (4) = 5
darr1 (5) = 6
    
Dim darr2 (0 A 2) Come doppio
darr2 (0) = 1
darr2 (1) = 1
darr2 (2) = 1
    
Dim ns As NurbSpline
ns.Generale.No = 2
ns.General.Type = NurbSplineType
ns.General.NodeList = "1,2,3"
ns.General.Comment = "riga 2"
ns.Knots = darr1
ns.Order = 3
ns.Peso = darr2
    
data.Prepara modifica
Nodi.Neti di dati
data.SetNurbSpline ns
e: data.FinishModification
Se Err.Number <> 0 Then MsgBox Err.Description ,, Err.Source

Imposta dati = Nulla
model.GetApplication.UnlockLicense
Imposta modello = Nulla

Fine sott

Parole chiave

NURBS Spline COM

Download

Contattaci

Hai trovato la tua domanda?
In caso contrario, contattaci gratuitamente tramite e-mail, chat o il forum di supporto, o inviaci la tua domanda tramite il modulo online.

+39 051 9525 443

info@dlubal.it

RFEM Other
RF-COM 5.xx

Modulo aggiuntivo

Interfaccia programmabile (API) basata sulla tecnologia COM

Prezzo della prima licenza
580,00 USD