ホーム / モデリング / CGaudi / プロパティ / MeshAdaptiveConvergence

MeshAdaptiveConvergenceプロパティ

定義

MeshAdaptiveConvergence As Double

値の取得		○
値の設定		×

引数

引数はありません

解説

直前に生成したアダプティブメッシュの精度(誤差)を取得します。
アダプティブメッシュでない場合は0となります。

実行例

Dim Femtet As New CFemtet
Dim Gaudi As CGaudi
Dim Point As New CGaudiPoint

'新規プロジェクト作成
If Femtet.OpenNewProject() = False Then
    Femtet.ShowLastError
End If

'Femtet.Gaudiを変数Gaudiに代入して使いやすくする
Set Gaudi = Femtet.Gaudi



Point.X = 0
Point.Y = 0
Point.Z = 0
Set Body = Gaudi.CreateBox(Point, 5, 5, 5)

Gaudi.MeshSize = 5
Gaudi.Mesh

'精度(誤差)の表示
MsgBox Gaudi.MeshAdaptiveConvergence, vbInformation, "MeshAdaptiveConvergence"