Option Explicit
Public Femap As Object
Sub 直方体ソリッド作成()
  Dim rc As Integer     'リターンコード
  
  Set Femap = CreateObject("femap.model") 'Femapの起動
  
  rc = Femap.feAppVisible(True) 'Femapの表示
  If rc <> -1 Then
    MsgBox "Femapの表示に失敗しました。", vbOKOnly, "エラー"
  End If
  
  'プリミティブソリッド作成　直方体－コーナ
  Dim Origin(1) As Double 'ワークプレーン内でソリッドの原点がある位置
  Dim Size(2) As Double   '生成プリミティブのサイズ。サイズという正確な意味は、Shapeの値で異なる
  
  Origin(0) = 0#:  Origin(1) = 0#
  Size(0) = 10:   Size(1) = 10:   Size(2) = 10 'X,Y,Z ソリッドのサイズ
  
  'プリミティブソリッド作成　直方体-コーナー
  rc = Femap.feSolidPrimitive(0, 1, True, Origin, Size, "Solid Cube")
  If rc = -1 Then
    MsgBox "直方体ソリッドを作成しました。", vbOKOnly, "終了"
  Else
    MsgBox "直方体ソリッドを作成に失敗しました。", vbCritical, "エラー"
  End If
End Sub