$***********************************************************
$ макро задает передачу с неподвижной точкой контакта на корпусе передачи
$ (зубчатые колеса, червяки, винты и т.д.)
$***********************************************************
$       формальные параметры шага МОДЕЛЬ
$ p1  - номер тела 'корпуса' кинематической пары
$ p2  - номер узла 'корпуса' совпадающего с точкой зацепления
$ p3  - номер тела входного звена (напр. шестерни)
$ p4  - номер тела выходного звена (напр. зубчатого колеса)
$ p5  - направление связи входного звена в координатах корпуса (1 - X, 2 - Y, 3 - Z)
$ p6  - направление связи выходного звена в координатах корпуса (1 - X, 2 - Y, 3 - Z)
$
BL16 NMX PRSOST TUF KPAR TDF KPAR
@   ' корпус - входное звено'
      nmx1    p5   15    4  50    1
@   ' корпус - выходное звено'
      nmx2    p6   15    4  50    1
BL17  NSE NPDS1  NUZ1 NPDS2  NUZ2  NMX
@   ' корпус - входное звено'
      nse1    p1    p2    p3    1   nmx1
@   ' корпус - выходное звено'
      nse2    p1    p2    p4    1   nmx2
@     'реакция в передаче'
#wkt.mac  3  1  nse1  1  p5  1
@     'реакция в передаче 1'
#wkt.mac  3  1  nse2  1  p6  1
$***********************************************************
$       формальные параметры шага РАСЧЕТ
$***********************************************************
$ p1  - направление связи входного звена в координатах корпуса (1 - X, 2 - Y, 3 - Z)
$ p2  - направление связи выходного звена в координатах корпуса (1 - X, 2 - Y, 3 - Z)
$ p3 - признак передачи вращения (+1 или -1)
$
$      передаточное число определяется отношением r2/r1, где r1 -
$      расстояние от оси червяка до условной точки контакта, расположенной
$      на прямой, соединяющей оси червяка и колеса. r2 - расстояние от
$      оси колеса до условной точки контакта
BL33    NXAR    PRSOST    PRSL      KSTROK
@   ' корпус - входное звено'
      nmx1       p1        1          1
      0.0   0.0          0.         0.
      nmx1       p1        2          1
        0.       0.     0.         0.
@   ' корпус - выходное звено'
      nmx2       p2        1          1
      0.0002    p3          0.         0.
      nmx2       p2        2          1
        0.       0.     0.         0.