Постпроцессор "пишет" программу

[dvn 0]

Я не понимаю выражения: "Зачем изобретать велосипед" ...

Его до сих пор изобретают, и весьма успешно ...

Друг обратился ко мне за помощью "сваять" ему пост.

Только такой, чтобы выдавал ему траекторию обхода 2D контура в виде команд языка Pascal,

т.к. своя "паскалевская кам-система" по расчету электроэрозионной обработки у него имеется и

он ею успешно пользуется. Ему просто хотелось избавиться от ручной рутинной работы по вводу

из чертежа каких-то там LINE и CIRCLE ...

Вот основные процедуры для линии и дуги, которые получились в моем посте:

@wc_line

gcode = 1

{nb,'LINE('xpos, ','ypos, ');'}

endp

;---------------

@wc_arc

local numeric var_a

local numeric var_b

local numeric var_c

local numeric var_d

var_a=xpos-xcenter

var_b=ypos-ycenter

var_c=0-xcenter

var_d=0-ycenter

if first_contur_element eq true

{nb,'CIRCLE'}

endif

if arc_direction eq CCW then

gcode = 3

{nb,'CIRCLE'}

{'('var_c, ','var_d, ','var_a, ','var_b, ','radius, ',\x27\x2B\x27);'} ;***** interpretation '-'

else ; CW

gcode = 2

{nb,'CIRCLE'}

{'('var_c, ','var_d, ','var_a, ','var_b, ','radius, ',\x27\x2D\x27);'}

endif

endp

;---------------

@wc_insert_wire

mcode = 6

{nb, ''}

{nb, ' ** In this place START for PASCAL PROGRAMM **'}

{nb, ''}

{nb, '{$I C:\\BP\\BIN\\PRG\\VSAP2.PAS}'} ;***** path to Borland Pascal programm

{nb, ''}

{nb, 'CONST'}

{nb, ' EQV = 0.16;'}

{nb, ''}

{nb, 'BEGIN'}

{nb, 'COMMENCE;'}

{nb, ''}

{nb, 'F:=0;'}

if use_m01 eq 1

mcode = 1

{nb, 'M'mcode}

endif

endp

Потом, конечно, был написан и сам пост непосредственно для SolidCAM.

Здесь просто лишний раз показывается преимущество некоторых САМ-систем,

у которых язык постпроцессора является алгоритмическим (а не ответами на простые

вопросы типа 1 или 0 - поддерживается или не поддерживается).

Это послужило для меня толчком создать пост, который выдает dxf-формат (а зачем собственно

идти от dxf, чтобы снова его же и получить ?).

Потом ведь можно ввести граничащие условия (минуя более мудреный этап корректировки mac-файла)

для минимальной длины перемещений и избавиться тем самым от явления дребезжания шпиндельного

механизма при некоторых видах высокоскоростной обработки дерева ...