Вы можете опубликовать сообщение сейчас, а зарегистрироваться позже.
Если у вас есть аккаунт, войдите в него для написания от своего имени.
Примечание: вашему сообщению потребуется утверждение модератора, прежде чем оно станет доступным.
Я для своего Пособия сделал уже почти 200 анимационных роликов. Есть полезное свойство по управлению видимостью разных деталей и сборок.
И хотелось бы во время анимации иметь возможность наезда и отъезда камеры...
Для NC можно скачать в ТГ @baltsystem_cnc
Или посмотреть на форуме https://forum.mastercam-russia.ru/1_1.html
Там примерно так сделано:
pccdiaoff #Cutter Compensation
if nextccomp$ = 4, cc_pos$ = 0
if cc_pos$ = 0,
[
sccomp
!cc_pos$
]
И в plinout, pcirout добавить pccdiaoff
Можно посмотреть в скачанных постах с ТГ.
Любой фанук - выводит g40 в отводе(в траектории) - в начале кадра.
У меня приехали станки с системой nc310 - сброс коррекции g40 происходит в последнем движении контура, ни в кадре отвода.
В посте я реализовал по типу не закрытой строки "е$". G40 выводит с последним движением контура - но в конце строки. Данный вывод не читает станок - пишет ошибку.
Если есть постпроцессор у кого-нибудь прошу помочь - нужно только g40 реализовать правильно. Спасибо
Run time error -2147467259(80004005)
Method `Item` of object `Property
set ` failed
ReDim Preserve arrGroup(j + d + 1) As String
ReDim Preserve arrQty(j + d + 1) As String
ReDim Preserve arrDocType(j + d + 1) As String
ReDim Preserve arrDocLabel(j + d + 1) As String
If Not Not oAsmDocTypes Then
For i = LBound(oAsmDocTypes) To UBound(oAsmDocTypes)
arrPartNumber(j) = oCurrentVersionPartNumber
arrDescription(j) = oAsmDocTypes(i, 1)
arrSection(j) = "Äîêóìåíòàöèÿ"
arrFormat(j) = oAsmDocTypes(i, 2)
arrComment(j) = oAsmDocTypes(i, 3)
arrGroup(j) = ""
arrQty(j) = "1"
arrDocType(j) = oAsmDocTypes(i, 1)
arrDocLabel(j) = oAsmDocTypes(i, 0)
j = j + 1
Next
End If
arrPartNumber(j) = oAsmNumber
arrDescription(j) = "Ñáîðî÷íûé ÷åðò¸æ"
arrSection(j) = "Äîêóìåíòàöèÿ"
If iSpecType = 1 Then
arrFormat(j) = oAsmHeadVersionDoc.PropertySets.Item("Inventor User Defined Properties").Item("Ôîðìàò").Value
If InStr(oAsmHeadVersionDoc.PropertySets.Item("Inventor User Defined Properties").Item("Ôîðìàò_ôàêò").Value, "*)") <> 0 Then
arrComment(j) = oAsmHeadVersionDoc.PropertySets.Item("Inventor User Defined Properties").Item("Ôîðìàò_ôàêò").Value
Else
arrComment(j) = ""
End If
Else
arrFormat(j) = oAsmDoc.PropertySets.Item("Inventor User Defined Properties").Item("Ôîðìàò").Value
If InStr(oAsmDoc.PropertySets.Item("Inventor User Defined Properties").Item("Ôîðìàò_ôàêò").Value, "*)") <> 0 Then
arrComment(j) = oAsmDoc.PropertySets.Item("Inventor User Defined Properties").Item("Ôîðìàò_ôàêò").Value
Else
arrComment(j) = ""
End If
End If
arrGroup(j) = ""
arrQty(j) = "1"
arrDocType(j) = "Ñáîðî÷íûé ÷åðò¸æ"
arrDocLabel(j) = "ÑÁ"
j = j + 1
Рекомендованные сообщения
Присоединяйтесь к обсуждению
Вы можете опубликовать сообщение сейчас, а зарегистрироваться позже. Если у вас есть аккаунт, войдите в него для написания от своего имени.
Примечание: вашему сообщению потребуется утверждение модератора, прежде чем оно станет доступным.