Есть у меня такие макросы.

[serg.l 0]

Есть у меня такие макросы.Но вот под рограмм к ним нету может есть у кого подпрограммы такие поделитесь очень нужно.

Прикрепляю файл .

Макропрограммы.doc

[fantom.ul 735]

Есть у меня такие макросы.Но вот под рограмм к ним нету может есть у кого подпрограммы такие поделитесь очень нужно.

Прикрепляю файл .

Немного не понятна постановка вопроса.

Есть макросы - это где? На станке? Тогда, возможно, у вас просто отключен показ на дисплее П/П ряда 9ххх.

Или есть - только как информация о них в прикрепленном документе?

З.Ы. Тоже бы хотел познакомиться с текстом П/П... Присоединяюсь к просьбе.

[serg.l 0]

Немного не понятна постановка вопроса.

Есть макросы - это где? На станке? Тогда, возможно, у вас просто отключен показ на дисплее П/П ряда 9ххх.

Или есть - только как информация о них в прикрепленном документе?

З.Ы. Тоже бы хотел познакомиться с текстом П/П... Присоединяюсь к просьбе.

есть только информация та что в прикреплённом документе.хочется найти П/П к ним.

[serg.l 0]

есть только информация та что в прикреплённом документе.хочется найти П/П к ним.

Достал две вот такие подпрограммы.Одна сверление отверстий по дуге,а другая по окружности.

П.С. Ищутся остальные подпрограммы к макросам.Помогите пожалуйста.

О9914.txt

О9915.txt

[Ander 122]

наваял такие проги на плоскости согласно файла макропрограммы.doc. Не симулировал - фанука нет. Для круга перегнал в синумерик и отсимулировал (программа krug.mpf). Она сделана в шоп миле в исо режиме. Для исо нужно удалить кадры со звёздочками на конце. Там есть добавки чтобы получилась картинка.

%

o9921(ploskostj odno napr)

#100=#24-#3-#7 (X vhoda)

#101=#25+#7*#8 (Y vhoda)

#102=#101 (dinamiceskij Y)

#103=#24+#21+#3+#7 (X vyhoda)

#104=#25+#22-#7*#8 (Y vyhoda)

#105=#18 (dinamiceskij Z)

#106=#26+#6 (poslednij Z)

IF[#105LT#106] GOTO 30 (esli nacalnyj Z menjshe konecnogo)

N10 (nacinaem rabotatj)

G0G90 x#100 y#102

Z#105

G1 x#103 f#9

G0G91 z5 (podskok nad polskostju)

IF[#102EQ#104] GOTO 20

#102=#102+#7*2*#8 (novyj Y)

IF[#102LT#104] GOTO 10

#102=#104 (poslednij Y)

GOTO 10

N20 #102=#101 (vernuli nacalnyj Y)

IF[#105EQ#106] GOTO 30

#105=#105-#17 (novyj Z)

IF[#105GT#106] GOTO 10

#105=#106

GOTO 10

N30G0G90 z99m99

%

%

o9922(ploskostj zigzag)

#100=#24-#3-#7 (X vhoda)

#101=#25+#7*#8 (Y vhoda)

#102=#101 (dinamiceskij Y)

#103=#24+#21+#3+#7 (X vyhoda)

#104=#25+#22-#7*#8 (Y vyhoda)

#105=#18 (dinamiceskij Z)

#106=#26+#6 (poslednij Z)

IF[#105LT#106] GOTO 30 (esli nacalnyj Z menjshe konecnogo)

N10 (nacinaem rabotatj)

G0G90 x#100 y#102

Z#105

G1 x#103 f#9

IF[#102EQ#104] GOTO 20 (esli proshli poslednij Y)

#102=#102+#7*2*#8 (novyj Y)

IF[#102LT#104] GOTO 15

#102=#104 (poslednij Y)

N15 G0 y#102

N16 g1 x#100

IF[#102EQ#104] GOTO 20

#102=#102+#7*2*#8 (novyj Y)

IF[#102LT#104] GOTO 10

#102=#104 (poslednij Y)

GOTO 10

N20 G0G91 z5 (podskok nad polskostju)

#102=#101 (vernuli nacalnyj Y)

IF[#105EQ#106] GOTO 30 (esli proshli poslednij Z)

#105=#105-#17 (novyj Z)

IF[#105GT#106] GOTO 10

#105=#106

GOTO 10

N30G0G90 z99m99

%

%

o9923(ploskostj kruglaja)

#100=#4+#3+#7 (radius vhoda)

#101=#25-#4+#7*#8 (Y vhoda nacalnyj)

#102=#101 (dinamiceskij Y)

#103=SQRT[#100*#100-[#25-#101]*[#25-#101]] (X vhoda ot centra nacalnyj)

#104=#103 (dinamiceskij X)

#105=#18 (dinamiceskij Z)

#106=#26+#6 (Zmin)

#107=#25+#4-#7*#8 (Ymax)

IF[#105LT#106] GOTO 30 (esli nacalnyj Z menjshe konecnogo)

N10 (nacinaem rabotatj)

G0G90 x#24-#104 y#102

Z#105

G1 x#24+#104 f#9

IF[#102EQ#107] GOTO 20 (esli proshli poslednij Y)

#102=#102+#7*2*#8 (novyj Y)

if[#102<#107] GOTO 15

#102=#107

N15

#108=#25-#102 (delta Y)

#104=SQRT[#100*#100-#108*#108](novyj X ot centra)

G0 x#24+#104 y#102

G1 x#24=#104

IF[#102EQ#107] GOTO 20

#102=#102+#7*2*#8 (novyj Y)

if[#102<#107] GOTO 17

#102=#107

N17

#108=#25-#102 (delta Y)

#104=SQRT[#100*#100-#108*#108](novyj X ot centra)

GOTO 10

N20 G0G91 z5 (podskok nad polskostju)

#102=#101 (vernuli nacalnyj Y)

#104=#103 (vernuli nacalnyj X)

IF[#105EQ#106] GOTO 30 (esli proshli poslednij Z)

#105=#105-#17 (novyj Z)

IF[#105GT#106] GOTO 10

#105=#106

GOTO 10

N30G0G90 z99m99

%

krug.mpf.txt