Este artigo foi traduzido pelo Google Tradutor

Ver texto original

Como posso criar splines NURBS com a interface COM?

Resposta

O objeto principal não é um objeto de linha, mas um objeto do tipo NurbSpline.
Aqui está um pequeno exemplo para criar um NURBS (Non-Uniform Rational B-Spline):

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

Modelo não encastrado como o RFEM5.model
Definir modelo = GetObject (, "RFEM5.Model")
model.GetApplication.LockLicense

No erro Ir para e

Dados escuros como IModelData
Definir dados = model.GetModelData

'define disposição dos nós
Nós de dimensão (0 a 2) como RFEM5.Node
    
nós (0). Não = 1
nós (0). Tipo = padrão
nós (0) .CS = Cartesiano
nós (0) .X = 1
nós (0) .Y = 1
nós (0) .Z = 0

nós (1) .Não = 2
nós (1). Tipo = padrão
Nós (1) .CS = Cartesiano
nós (1) .X = 2
nós (1) .Y = 1
nós (1) .Z = -1
    
nós (2). Não = 3
nós (2) .Tipo = Padrão
nós (2) .CS = cartesiano
nós (2) .RefObjectNo = 2
nós (2) .X = 0
nós (2) .Y = 1
nós (2) .Z = 0
    
Dim darr1 (0 a 5) como duplo
darr1 (0) = 1
darr1 (1) = 2
darr1 (2) = 3
darr1 (3) = 4
darr1 (4) = 5
darr1 (5) = 6
    
Dim darr2 (0 To 2) Como Double
darr2 (0) = 1
darr2 (1) = 1
darr2 (2) = 1
    
Dim ns Como NurbSpline
ns.General.Não = 2
ns.General.Type = NurbSplineType
ns.General.NodeList = "1,2,3"
ns.General.Comment = "linha 2"
ns.Knots = darr1
ns.Order = 3
ns.Pesos = darr2
    
data.PrepareModification
Nós de data.SetNodes
data.SetNurbSpline ns
e: data.FinishModification
Se Err.Number <> 0 Então MsgBox Err.Description ,, Err.Source

Definir dados = nada
model.GetApplication.UnlockLicense
Definir modelo = Nada

End Sub

Palavras-chave

NURBS Spline COM

Downloads

Contacto

Contacto da Dlubal

Encontrou a sua pergunta? Se não for o caso, entre em contacto connosco por e-mail, chat ou no fórum de discussão, ou então envie-nos a sua questão através do formulário online.

+49 9673 9203 0

(falamos português)

info@dlubal.com

RFEM Outros
RF-COM 5.xx

Módulo adicional

Interface programável (API) com base na tecnologia COM

Preço de primeira licença
580,00 USD