Дуга в электроэрозионной обработке. (Wc Arc). Параметры:

xpos, ypos, zpos type : numeric Положение инструмента в конце дуги. feed type : numeric Подача перемещений. xcenter, ycenter type : numeric Абсолютный центр дуги. xcenter_rel,ycenter_rel type : numeric Центр дуги относительно точки старта. radius type : numeric Радиус дуги. start_angle, end_angle type : numeric Стартовый и конечный угол дуги (в градусах). const_angle type : numeric Угол наклона. arc_direction type : integer Направление дуги {CW, CCW} (по час., против час.) arc_plane type : integer Плоскость дуговой интерполяции {XY, YZ, ZX}. arc_size type : numeric Размер дуги (в градусах). next_const_angle type : numeric Следующий константный угол (в градусах).

Описание:

Эта команда генерирует дуговое позиционирование G-кода для EDM.

Пример:

@wc_arc ; дуга в электроэрозии     if arc_direction eq CCW then ; если направление дуги против часовой стрелки, тогда        gcode = 3 ; определение функции G с значением 3     else ;(CW) иначе по часовой         gcode = 2 ; определение функции G с значением 2     endif ; конец условия «если»     if change(gcode) then ; если смена G кода, тогда         {NB' G'gcode} ; формирование кадра с определенной функцией G (строки определения выше)     else ; иначе         {NB} ; формирование только пустого кадра с нумераций     endif ; конец условия «если»     if arc_size le 360 ; если размер дуги меньше 360 градусов         {[' X'xpos] [' Y'ypos],' I'xcenter_rel, ' J'ycenter_rel } ; добавление к предыдущей строке (к пустому)     else ; иначе         if arc_size eq 360 then ; если размер дуги равен 360 градусам             {' I'xcenter_rel, ' J'ycenter_rel} ; добавление к предыдущей строке (к пустому)         endif ; конец условия «если»     endif ; конец условия «если» endp ; конец процедуры.

Электроэрозия - условия смены.(Wc Chng Condition).

Параметры:

chng_cond_num тип: integer Номер параметров chng_cond

chng_cond тип: string Массив.

chng_cond<<1,i>> - имя

chng_cond<<2,i>> - тип

{INTEGER, NUMERIC, STRING}

chng_cond<<3,i>> - значение

Описание:

Эта команда устанавливает условия для EMD

Пример:

@wc_chng_condition         local integer i, a         local numeric d         ;         ;1 = name         ;2 = type (numeric , integer , string)         ;3 = value

        i = 1         while i <= chng_cond_num             if change(chng_cond<<3,i>>) then                 if chng_cond<<2,i>> eq "NUMERIC"                     d = tonum(chng_cond<<3,i>>)                 ; {nb, ' numeric = ' d:'5.3(*1000p)'}                 endif                 if chng_cond<<2,i>> eq "INTEGER"                     a = tonum(chng_cond<<3,i>>)                 ; {nb, ' integer = ' a:'5.0(n)'}                 endif                 gcode = 10                 {nb,'G'gcode ' L10 R'i ' P'chng_cond<<3,i>>}             endif             i = i + 1         endw endp

Электроэрозия - смена E-Group. (Wc Chng E-Group).

Параметры:

e_group_name тип: string Имя группы условий.

e_group_changed тип: logical Указывает изменение 'e_group_name'.

Описание:

Эта команда устанавливает группу EMD условий.

Примеры:

@wc_chng_e_group

; e_group_name:''

if e_group_changed then

; {nb,'E'e_group_name ,' D'offset_radius}

{nb,'E'e_group_name}

endif

endp