Выполнение действий макросом

  Dim TP, Pars

Set TP = TCSActiveModule
Set Pars = TCSActiveModule.Properties("Parameters").AsIDispatch
 Do While Not TP.EOF

            If TP.ClassType = CSDN_Const.ctPereshod  Then

             If Pars.CurrentParameterValue("SV_L")=100 then

             Call TP.SetParameterValue( "SV_L", Lsv )

             Lsv = 100 + 1
            End If
            End If

            TP.Next

 Sub WELD_rezhim(TCSActiveModule)
 Dim RASH
Dim TP' As INmkTechnology
  Dim Pars' as IParameterValues
  Set TP = TCSActiveModule
  'Dim TP
  RASH = 1
  TP.First
  Do While Not TP.EOF
   If TP.ClassType = CSDN_Const.ctPereshod  Then
      Set Pars = TP.Properties("Parameters").AsIDispatch

      'ищем параметр с кодом
      if Pars.Locate( "PAR_CODE", "SV_TIP", 0 ) Then
        If Pars.CurrentParameterValue = "T1" then

          if not TP.SetParameterValue( "SV_RASH", RASH ) then theApp.ShowErrorMessage( "Cannot set parameter!" )
                   RASH = 100500
             End If
             End If
   End If
   TP.Next
  Loop
End Sub

 Sub WELD_rezhim(TCSActiveModule)
  Dim Fpopersech
  Dim TP' As INmkTechnology
  Dim Pars ' as IParameterValues
  Dim S, RASH, M
  Dim POLOZH
    Set TP = TCSActiveModule
  kp=1.04
  TP.First
  Do While Not TP.EOF
     If TP.ClassType = CSDN_Const.ctPereshod  Then
      Set Pars = TP.Properties("Parameters").AsIDispatch


if Pars.Locate( "PAR_CODE", "SV_S", 0 ) Then
S =  Pars.CurrentParameterValue
End If

if Pars.Locate( "PAR_CODE", "SV_L", 0 ) Then
L =  Pars.CurrentParameterValue
End If

if Pars.Locate( "PAR_CODE", "SV_POLOZH", 0 ) Then
If Pars.CurrentParameterValue="Íèæíåå" then
     kn = 1
End If
End If

if Pars.Locate( "PAR_CODE", "SV_POLOZH", 0 ) Then
If Pars.CurrentParameterValue="Ïîëóâåðòèêàëüíîå (íàêëîííîå)" then
     kn = 1.05
End If
End If

if Pars.Locate( "PAR_CODE", "SV_POLOZH", 0 ) Then
If Pars.CurrentParameterValue="Âåðòèêàëüíîå èëè ãîðèçîíòàëüíîå" then
     kn = 1.1
End If
End If

if Pars.Locate( "PAR_CODE", "SV_POLOZH", 0 ) Then
If Pars.CurrentParameterValue="Ïîòîëî÷íîå" then
     kn = 1.2
End If
End If



if Pars.Locate( "PAR_CODE", "SV_TIP", 0 ) Then
   If Pars.CurrentParameterValue="Ò1" then
          'ïëîùàäü ïîïåðå÷íîãî ñå÷åíèÿ
          Fpopersech=(0.5*S*S+1.05*S)
          M = Fpopersech*7.85*L/1000
          RASH = M*kp*kn

                     if not Pars.SetParameterValueByParCode( "SV_RASH", RASH, -1, True ) then theApp.ShowErrorMessage( "Cannot set parameter!" )
        End If

   End If
End If


   TP.Next
  Loop
End Sub

 Sub WELD_rezhim(TCSActiveModule)
  Dim Fpopersech
  Dim TP' As INmkTechnology
  Dim Pars ' as IParameterValues
  Dim s, RASH, M, RASH_round
  Dim POLOZH
    Set TP = TCSActiveModule

  kp = 1.04
   Fpopersech = 0
   s = 0

   TP.First
  Do While Not TP.EOF
     If TP.ClassType = CSDN_Const.ctPereshod  Then
      Set Pars = TP.Properties("Parameters").AsIDispatch


 Pars.First
Do While Not Pars.EOF
  Select Case Pars.Properties("PAR_CODE").AsSafeString
    Case "SV_S"
      s = Pars.CurrentParameterValue
    Case "SV_L"
       L =  Pars.CurrentParameterValue
  End Select
  Pars.Next
Loop


if Pars.Locate( "PAR_CODE", "SV_POLOZH", 0 ) Then
 Select case Pars.CurrentParameterValue
    Case "Íèæíåå"
    kn = 1
    Case "Ïîëóâåðòèêàëüíîå (íàêëîííîå)"
    kn = 1.05
    Case "Âåðòèêàëüíîå èëè ãîðèçîíòàëüíîå"
    kn = 1.1
    Case "Ïîòîëî÷íîå"
    kn = 1.2
End Select
  End If


if Pars.Locate( "PAR_CODE", "SV_TIP", 0 ) Then
 Select case Pars.CurrentParameterValue
    Case "Ò1"
      Fpopersech = (0.5*s*s+1.05*s)/100
    Case "Í1"
       Fpopersech = (0.5*s*s+1.05*s)/100
End Select
         End If
    M = Fpopersech*7.85*L/10000
    RASH = M*kp*kn
  RASH_round = Round( RASH, TCSApp.DisplayPrecision )

if not Pars.SetParameterValueByParCode( "SV_RASHOD", RASH_round, -1, True ) then theApp.ShowErrorMessage( "Cannot set parameter!" )
     End If



   TP.Next
  Loop


End Sub