Перейти к публикации

Циклы синумерик


Артур52

Рекомендованные сообщения

Доброго времени суток, кто-нибудь, знает как можно со станка скачать циклы (например cycle86.spf) или там какая-то защита стоит, чтобы нельзя было так сделать?

Ссылка на сообщение
Поделиться на других сайтах


UnPinned posts
12.04.2023 в 17:23, Артур52 сказал:

Доброго времени суток, кто-нибудь, знает как можно со станка скачать циклы (например cycle86.spf) или там какая-то защита стоит, чтобы нельзя было так сделать?

В последнее время при поставке станков начали шифровать иногда. Требования сохранения интеллектуальной собственности. В любом случае, можно поглядеть в циклах - всё там лежит на стойке. Если они зашифрованы, то Вам каракули откроются.

Ссылка на сообщение
Поделиться на других сайтах

Как-то в Иркутском техникуме мне удалось качнуть циклы с 808d SL 

Посмотри, подойдет ли тебе это:

PROC CYCLE86 (REAL RTP,REAL RFP,REAL SDIS,REAL DP,REAL DPR,REAL DTB,INT SDIR,REAL RPA,REAL RPO,REAL RPAP,REAL POSS) SAVE SBLOF DISPLOF
;VERSION: 04.01.15.00 Oct 11, 2007
;CHANGE : 05.03.08.00 May 05, 2000
;Ausbohren 2, Ausdrehen
DEF AXIS _X,_Y,_Z
DEF REAL HH2
DEF INT HH7
DEF INT _ABS=1,_ORD=2,_APP=3
IF $P_GG[6]==2
_ABS=3 _ORD=1 _APP=2
ENDIF
IF $P_GG[6]==3
_ABS=2 _ORD=3 _APP=1
ENDIF
IF (ISAXIS(_APP)==0) GOTOF FEHL2
IF HH7 GOTOF _MM1B
_Z=$P_AXN3
IF(ISAXIS(_ABS)==1)
_X=$P_AXN1
ENDIF
IF(ISAXIS(_ORD)==1)
_Y=$P_AXN2
ENDIF
DPR=ABS(DPR) SDIS=ABS(SDIS)
IF (SDIR==3)OR(SDIR==4) GOTOF _MM00
STOPRE
SETAL(61102)
RET
_MM00:IF DPR==0 GOTOF _MM1 IF RTP==RFP GOTOF FEHL1
HH2=RFP-((RTP-RFP)/ABS(RTP-RFP)*DPR)
IF DP==0 GOTOF _MM0 IF DP==HH2 GOTOF _MM1
N10 MELDUNG(1)
_MM0:DP=HH2
_MM1:HH2=RTP-RFP
IF RFP==DP GOTOF _MM2 IF HH2==0 GOTOF _MM1A IF HH2/ABS(HH2)<>(RFP-DP)/ABS(RFP-DP) GOTOF FEHL1
_MM1A:HH7=1
_MM1B:M=SDIR
SBLON
N1 G0 G64 G90 AX[_Z]=RFP+SDIS*(RFP-DP)/ABS(RFP-DP)
SBLOF
N2 G1 AX[_Z]=DP
N3 G4 F=DTB
N4 SPOS=POSS
IF(ISAXIS(_ABS)==1) AND (ISAXIS(_ORD)==1) AND (ISAXIS(_APP)==1)
N5 G91 G0 AX[_X]=RPA AX[_Y]=RPO AX[_Z]=RPAP
ELSE
IF(ISAXIS(_ABS)==1) AND (ISAXIS(_APP)==1)
N51 G91 G0 AX[_X]=RPA AX[_Z]=RPAP
ELSE
IF(ISAXIS(_ORD)==1) AND (ISAXIS(_APP)==1)
N52 G91 G0 AX[_Y]=RPO AX[_Z]=RPAP
ELSE
GOTOF FEHL2
ENDIF
ENDIF
ENDIF
N6 G90 G0 AX[_Z]=RFP+SDIS*(RFP-DP)/ABS(RFP-DP)
SBLON
IF(ISAXIS(_ABS)==1) AND (ISAXIS(_ORD)==1) AND (ISAXIS(_APP)==1)
N7 G91 AX[_X]=-RPA AX[_Y]=-RPO AX[_Z]=RTP-(RFP+SDIS*(RFP-DP)/ABS(RFP-DP))
ELSE
IF(ISAXIS(_ABS)==1) AND (ISAXIS(_APP)==1)
N71 G91 AX[_X]=-RPA AX[_Z]=RTP-(RFP+SDIS*(RFP-DP)/ABS(RFP-DP))
ELSE
N72 G91 AX[_Y]=-RPO AX[_Z]=RTP-(RFP+SDIS*(RFP-DP)/ABS(RFP-DP))
ENDIF
ENDIF
SBLOF
_MM2:MSG("")
RET
N20 FEHL1:STOPRE
SETAL(61101)
RET
N30 FEHL2:STOPRE
SETAL(61005)
RET

 

Ссылка на сообщение
Поделиться на других сайтах
17.04.2023 в 12:35, Евгений_А сказал:

Как-то в Иркутском техникуме мне удалось качнуть циклы с 808d SL 

Посмотри, подойдет ли тебе это:


PROC CYCLE86 (REAL RTP,REAL RFP,REAL SDIS,REAL DP,REAL DPR,REAL DTB,INT SDIR,REAL RPA,REAL RPO,REAL RPAP,REAL POSS) SAVE SBLOF DISPLOF
;VERSION: 04.01.15.00 Oct 11, 2007
;CHANGE : 05.03.08.00 May 05, 2000
;Ausbohren 2, Ausdrehen
DEF AXIS _X,_Y,_Z
DEF REAL HH2
DEF INT HH7
DEF INT _ABS=1,_ORD=2,_APP=3
IF $P_GG[6]==2
_ABS=3 _ORD=1 _APP=2
ENDIF
IF $P_GG[6]==3
_ABS=2 _ORD=3 _APP=1
ENDIF
IF (ISAXIS(_APP)==0) GOTOF FEHL2
IF HH7 GOTOF _MM1B
_Z=$P_AXN3
IF(ISAXIS(_ABS)==1)
_X=$P_AXN1
ENDIF
IF(ISAXIS(_ORD)==1)
_Y=$P_AXN2
ENDIF
DPR=ABS(DPR) SDIS=ABS(SDIS)
IF (SDIR==3)OR(SDIR==4) GOTOF _MM00
STOPRE
SETAL(61102)
RET
_MM00:IF DPR==0 GOTOF _MM1 IF RTP==RFP GOTOF FEHL1
HH2=RFP-((RTP-RFP)/ABS(RTP-RFP)*DPR)
IF DP==0 GOTOF _MM0 IF DP==HH2 GOTOF _MM1
N10 MELDUNG(1)
_MM0:DP=HH2
_MM1:HH2=RTP-RFP
IF RFP==DP GOTOF _MM2 IF HH2==0 GOTOF _MM1A IF HH2/ABS(HH2)<>(RFP-DP)/ABS(RFP-DP) GOTOF FEHL1
_MM1A:HH7=1
_MM1B:M=SDIR
SBLON
N1 G0 G64 G90 AX[_Z]=RFP+SDIS*(RFP-DP)/ABS(RFP-DP)
SBLOF
N2 G1 AX[_Z]=DP
N3 G4 F=DTB
N4 SPOS=POSS
IF(ISAXIS(_ABS)==1) AND (ISAXIS(_ORD)==1) AND (ISAXIS(_APP)==1)
N5 G91 G0 AX[_X]=RPA AX[_Y]=RPO AX[_Z]=RPAP
ELSE
IF(ISAXIS(_ABS)==1) AND (ISAXIS(_APP)==1)
N51 G91 G0 AX[_X]=RPA AX[_Z]=RPAP
ELSE
IF(ISAXIS(_ORD)==1) AND (ISAXIS(_APP)==1)
N52 G91 G0 AX[_Y]=RPO AX[_Z]=RPAP
ELSE
GOTOF FEHL2
ENDIF
ENDIF
ENDIF
N6 G90 G0 AX[_Z]=RFP+SDIS*(RFP-DP)/ABS(RFP-DP)
SBLON
IF(ISAXIS(_ABS)==1) AND (ISAXIS(_ORD)==1) AND (ISAXIS(_APP)==1)
N7 G91 AX[_X]=-RPA AX[_Y]=-RPO AX[_Z]=RTP-(RFP+SDIS*(RFP-DP)/ABS(RFP-DP))
ELSE
IF(ISAXIS(_ABS)==1) AND (ISAXIS(_APP)==1)
N71 G91 AX[_X]=-RPA AX[_Z]=RTP-(RFP+SDIS*(RFP-DP)/ABS(RFP-DP))
ELSE
N72 G91 AX[_Y]=-RPO AX[_Z]=RTP-(RFP+SDIS*(RFP-DP)/ABS(RFP-DP))
ENDIF
ENDIF
SBLOF
_MM2:MSG("")
RET
N20 FEHL1:STOPRE
SETAL(61101)
RET
N30 FEHL2:STOPRE
SETAL(61005)
RET

 

О, спасибо большое. А нету случайно ещё циклов? Желательно от cycle81.spf до cycle89..spf и cycle70.spf.

Ссылка на сообщение
Поделиться на других сайтах

Поблагодарить можно "пальцем вверх" )) Конечно есть, этож я для примера выложил. Мне проще будет вам на почту скинуть...

Ссылка на сообщение
Поделиться на других сайтах
13 часов назад, Евгений_А сказал:

Поблагодарить можно "пальцем вверх" )) Конечно есть, этож я для примера выложил. Мне проще будет вам на почту скинуть...

khafizovartur102@gmail.com. В личку не получилось написать.

Ссылка на сообщение
Поделиться на других сайтах

Присоединяйтесь к обсуждению

Вы можете опубликовать сообщение сейчас, а зарегистрироваться позже. Если у вас есть аккаунт, войдите в него для написания от своего имени.
Примечание: вашему сообщению потребуется утверждение модератора, прежде чем оно станет доступным.

Гость
Ответить в тему...

×   Вставлено в виде отформатированного текста.   Вставить в виде обычного текста

  Разрешено не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отобразить как ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставить изображения напрямую. Загрузите или вставьте изображения по ссылке.

  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу.




  • Сообщения

    • IgnatvKudrin
      Для нашего производства требуются постоянно инструментальные пружины для штампов. Сейчас заказы обрабатываются довольно долго - до 2-х месяцев. А у нас сроки на штампы 1-2 месяца с испытанием, доработкой и т.п. Хотелось бы найти поставщика, у которого уже есть склад с данными пружинами или кто может доставить за 1 месяц.   Пружины стандартные по ISO, но на всякий случай приложил каталог. Вот список пружин, которые нужны очень срочно:   LR 32 x 44 - 1 шт. LR 25 x 51 - 2 шт. LB 63 x 89 - 7 шт. LB 32 x 102 - 10 шт. LB 32 x 89 - 20 шт. LB 32 x 76 - 12 шт. LB 32 x 51 - 6 шт. LB 25 x 127 - 9 шт.   Готов выслушать все предложения. Возможно даже есть те, кто сможет изготовить подобные пружины с такими же параметрами. 20231101.pdf
    • bubblyk
      Знатоки форума, подскажите, как смоделировать простую (на первый взгляд) задачу термомеханики в упругой постановке.   Есть брусок правильный формы ака кирпич, в котором генерируется НЕРАВНОМЕРНОЕ удельное тепловыделение (HGEN). Задняя и передняя поверхности конвективно охлаждаются с известными (но различными) коэффициентами теплоотдачи и температурами жидкости/газа. Свойства кирпича (теплофизика + механика) принимаются зависящими от температуры. Постановка - стационарная Собственно вопрос : как грамотно смоделировать температурное поле в кирпиче с учетом температурного расширения?   Исходный код приложил.     Надеюсь на коллективный разум и опыт! EPTH2D.mac p.s.   Если есть опыт решения этой задачи в Ansys WB, тоже можно сюда приложить командные вставки.
    • OutXL
      Это было давно использовал NC-Link  и данную инструкцию. The Maho.docx
    • Mikhail_Podgornyj
      Добрый день, кто может поделиться SKF Bearing V1.6 (ANSYS App)? Заранее благодарен!
    • alexqwq10
      В данных корпусах ничего лишнего быть не должно. Максимум шпильки заземления, в количестве предусмотренном для конкретного корпуса. Рассматривал очень много подобных корпусов разных производителей и данная проблема актуальна для подавляющего большинства.
    • MFS
      Коллеги, приветствую, нужно штамповать на горячую из алюминиевого сплава (АК6 или около того) заготовки размером 280*180*12. Подскажите, пожалуйста, параметры пресса для такой заготовки - размеры, усилия. А есл дадите пример такой марки и модели, более менее подходящей для этой работы (нашего или импортного), то будет и еще лучше. Заранее спасибо!
    • Elbaro
      Добрый день. Уже несколько дней пытаюсь найти на просторах инета макрос, позволяющий менять материал выделенных деталей в сборке. У меня есть макрос это делающий, но только в открытой детали, заставить его работать в сборке не получается. Может кто поделится ссылкой или часть кода? Спасибо.
    • maxx2000
      @ANT0N1DZE чтобы ответить на этот вопрос надо вспомнить что экранирует СВЧ, а что для него прозрачно.
    • Александр1979
      В параметре 4018 задаётся метод позиционирования. Какой тип выбран у вас?
    • Bot
      АСКОН, российский разработчик инженерного программного обеспечения и ИТ-интегратор, подвел итоги 2023 года. Выручка компании выросла на 47% и достигла 5,6 млрд рублей, штат сотрудников увеличился до 1250 человек. Клиентская база пополнилась тысячью предприятий и сегодня с решениями АСКОН работают почти 16 000 заказчиков из всех отраслей промышленности и строительства. Смотреть полностью
×
×
  • Создать...