Please enable JavaScript to view this site.

MESYS Berechnungssoftware

Navigation: Allgemein > COM-Schnittstelle

Verwendung des COM-Servers

Scroll Prev Top Next More

Der COM-Server kann verwendet werden, um Funktionen innerhalb der MESYS-Software aus anderen Programmen heraus aufzurufen.

Ein einfaches Beispiel in einer VisualBasic-Funktion:

Public Sub test()

Dim mesys As MesysCOM

Set mesys = New MesysCOM

Dim rbc As MesysRBC

 

Set rbc = mesys.createRBC

Dim d As Long

Dim pmax As Double

 

Call rbc.setVarInt("inputType", 2)

Call rbc.setVarInt("Z", 12)

Call rbc.setVarDouble("Dw", 5)

Call rbc.setVarDouble("Dpw", 50)

Call rbc.setVarDouble("Fy", 1000)

Call rbc.setVarDouble("ni", 500)

 

result = rbc.Calculate

Call rbc.showReport("c:/temp/report.pdf")

Call rbc.getVarDouble("pmax", pmax)

Call rbc.getVarInt("Z", d)

Call rbc.calculateBearing(True, 0, True, 1000, True, 0, False, 0, False, 0, 500, 0, 20, 20)

Call rbc.getVarDouble("pmax", pmax)

Set rbc = Nothing

Set mesys = Nothing

 

End Sub

 

And here the same example in Python using the members with variants as [in, out] parameters do not work from python:

Und hier das gleiche Beispiel in Python mit den Funktionen mit VARIANTS da die [in, out] Parameter in Python nicht funktionieren:

import comtypes.client

 

mesys = comtypes.client.CreateObject("MesysCOM64.MesysCOM")

rbc = mesys.createRBC()

rbc.setVar("inputType", 2)

rbc.setVar("Z", 12)

rbc.setVar("Dw", 5)

rbc.setVar("Dpw", 50)

rbc.setVar("Fy", 1000)

rbc.setVar("ni", 500)

rbc.calculate()

rbc.showReport("c:/temp/report.pdf")

pmax = rbc.getVar("pmax")

z = rbc.getVar("Z")

rbc.calculateBearing(True, 0, True, 1000, True, 0, False, 0, False, 0, 500, 0, 20, 20)

pmax2 = rbc.getVar("pmax")

stiffness = rbc.getStiffnessMatrixAsVector();

rbc = None

mesys = None