调查

 

'==============================================================================

'

'   mdlCmdKatakou (形鋼配置コマンド)

'

'==============================================================================

Option Explicit

 

Private intRun As Integer

 

'==============================================================================

'==============================================================================

Public Sub CommandKATAKOU()

    Const strCommandName As String = "KATAKOU"

    If YmdCommandPreprocessing(False, intRun) = False Then Exit Sub

 

    ' 現在のアクティブレイヤーを保管し、"0"レイヤーをアクティブにする

    Dim strCurLayer As String

    strCurLayer = ActiveDocument.GetVariable("CLAYER")

    Call ActiveDocument.SetVariable("CLAYER", "0")

 

    ' 形鋼配置用ダイアログの表示

    frmKatakou.Show

 

    ' アクティブレイヤーを元に戻す

 

    Call ActiveDocument.SetVariable("CLAYER", strCurLayer)

    Call YmdCommandPostprocessing(strCommandName, intRun)

End Sub

 

1.配置铁骨环境需要那些文件，OSMAR需要吗？