FAQ 003427 PT

Perguntas & respostas úteis

  • Perguntas mais frequentes (FAQs)

6 de agosto de 2019

003427

Thomas Günthel

Modelação | Estrutura

RF-COM

Como é que posso criar splines NURBS com a interface COM?

Resposta

O objeto principal não é um objeto de linha, mas sim um objeto do tipo NurbSpline.
Temos aqui um pequeno exemplo para criar uma spline NURBS:

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

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

    On Error GoTo e

    Dim data As IModelData
    Set data = model.GetModelData

    ' define array of nodes
    Dim nodes(0 To 2) As RFEM5.Node
    
    nodes(0).No = 1
    nodes(0).Type = Standard
    nodes(0).CS = Cartesian
    nodes(0).X = 1
    nodes(0).Y = 1
    nodes(0).Z = 0

    nodes(1).No = 2
    nodes(1).Type = Standard
    nodes(1).CS = Cartesian
    nodes(1).X = 2
    nodes(1).Y = 1
    nodes(1).Z = -1
    
    nodes(2).No = 3
    nodes(2).Type = Standard
    nodes(2).CS = Cartesian
    nodes(2).RefObjectNo = 2
    nodes(2).X = 0
    nodes(2).Y = 1
    nodes(2).Z = 0
    
    Dim darr1(0 To 5) As Double
    darr1(0) = 0
    darr1(1) = 0
    darr1(2) = 0
    darr1(3) = 1
    darr1(4) = 1
    darr1(5) = 1
    
    Dim darr2(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.PrepareModification
    data.SetNodes nodes
    data.SetNurbSpline ns
e:  data.FinishModification
    If Err.Number <> 0 Then MsgBox Err.Description, , Err.Source

    Set data = Nothing
    model.GetApplication.UnlockLicense
    Set model = Nothing

End Sub

Palavras-chave

NURBS Spline COM

Downloads

Escreva um comentário...

Escreva um comentário...

  • Visualizações 344x
  • Atualizado 19 de março de 2021

Contacto

Contactar a 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

interface COM programável para o RFEM/RSTAB

Interface COM programável para o RFEM/RSTAB

Webinar 12 de maio de 2020 15:00 - 15:45 CEST

}
RFEM
Módulo adicional RFEM/RSTAB

Módulo adicional

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

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