|
ホーム / モデリング / CGaudi / 関数 / MultiChangeBoundary
MultiChangeBoundary関数
定義
MultiChangeBoundary(VertexList() As CGaudiVertex, EdgeList() As CGaudiEdge, FaceList() As CGaudiFace, oldName As String, newName As String ) As Boolean
[Python]
MultiChangeBoundary_py(CGaudiVertex[] VertexList, CGaudiEdge[] EdgeList, CGaudiFace[] FaceList, str oldName, str newName)
戻り値
| True | 成功 | |
| False | 失敗 |
[Python]
| True | 成功 | |
| False | 失敗 |
引数
| VertexList | 変更対象の点配列。空でも良い。 | |
| EdgeList | 変更対象の辺配列。空でも良い。 | |
| FaceList | 変更対象の面配列。空でも良い。 | |
| oldName | 変更前の境界条件名 | |
| newName | 変更後の新しい境界条件名 |
[Python]
| VertexList | 変更対象の点(CGaudiVertex)配列。空でも良い。 | |
| EdgeList | 変更対象の辺(CGaudiEdge)配列。空でも良い。 | |
| FaceList | 変更対象の面(CGaudiFace)配列。空でも良い。 | |
| oldName | 変更前の境界条件名 | |
| newName | 変更後の新しい境界条件名 |
解説
指定されたトポロジ全てにおいて、境界条件名を変更します。変更に失敗したらFalseを返します。
実行例
Dim Femtet As New CFemtetDim Gaudi As CGaudi
Dim Body As CGaudiBody
Dim point As New CGaudiPoint
Dim Ver() As CGaudiVertex
Dim Edge() As CGaudiEdge
Dim Face(1) As CGaudiFace
'新規プロジェクト作成
If Femtet.OpenNewProject() = False Then
Femtet.ShowLastError
End If
'Femtet.Gaudiを変数Gaudiに代入して使いやすくする
Set Gaudi = Femtet.Gaudi
point.SetCoord 0, 0, 0
Set Body = Gaudi.CreateBox(point, 10, 10, 10)
'境界条件の設定
Body.Face(0).AddBoundary "境界条件名-Old"
Body.Face(1).AddBoundary "境界条件名-Old"
'境界条件の変更
Set Face(0) = Body.Face(0)
Set Face(1) = Body.Face(1)
If (Gaudi.MultiChangeBoundary(Ver, Edge, Face, "境界条件名-Old", "境界条件名-New") = False) Then
Femtet.ShowLastError
End If