Ce texte a été traduit par Google Translate Lire le texte source

FAQ 003427 FR

6 août 2019

Thomas Günthel Modélisation & Structure RF-COM

Comment puis-je créer des splines NURBS avec l'interface COM?

Réponse

L'objet principal n'est pas un objet ligne, mais un objet de type NurbSpline.
Création d'une spline Nurbs:

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

Modèle Dim As RFEM5.model
Set model = GetObject (, "RFEM5.Model")
model.GetApplication.LockLicense

Sur erreur GoTo e

Données variables comme IModelData
Data = model.GetModelData

définir le tableau de nœuds
Nbre de nœuds (0 à 2) comme RFEM5.Node
    
nœuds (0) .No = 1
nœuds (0) .Type = Défaut
nœuds (0) .CS = cartésien
nœuds (0) .X = 1
nœuds (0) .Y = 1
nœuds (0) .Z = 0

nœuds (1) .No = 2
nœuds (1) .Type = Défaut
nœuds (1) .CS = cartésien
nœuds (1) .X = 2
nœuds (1) .Y = 1
nœuds (1) .Z = -1
    
nœuds (2) .No = 3
nœuds (2) .Type = Défaut
nœuds (2) .CS = cartésien
nœuds (2) .RefObjectNo = 2
nœuds (2) .X = 0
nœuds (2) .Y = 1
nœuds (2) .Z = 0
    
Dim darr1 (0 à 5) comme double
darr1 (0) = 1
darr1 (1) = 2
darr1 (2) = 3
darr1 (3) = 4
darr1 (4) = 5
darr1 (5) = 6
    
Dim darr2 (0 à 2) comme 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 = "ligne 2"
ns.Knots = darr1
ns.Order = 3
ns.Weights = darr2
    
Données.PréparerModification
Nœuds data.SetNodes
data.SetNurbSpline ns
e: data.FinishModification
Si Err.Number <> 0 Then MsgBox Err.Description ,, Err.Source

Définir les données = Rien
model.GetApplication.UnlockLicense
Définir le modèle = Rien

End Sub

Mots-clés

NURBS Spline COM

Téléchargements

Contactez-nous

Contactez-nous

Vous n'avez pas trouvé réponse à votre question ?
Contactez notre assistance technique gratuite par e-mail, via le chat Dlubal, sur notre forum international ou envoyez-nous votre question via notre formulaire en ligne.

+33 1 78 42 91 61

info@dlubal.fr

RFEM Autres
RF-COM 5.xx

Module additionnel

Interface programmable (API) basée sur la technologie COM

Prix de la première licence
580,00 USD