'==============================================================================
'
' 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需要吗?