Александр_67 (Все сообщения пользователя)

второе правило:

'тащим папку с компонентами и чертежами
' ipt;iam;idw_copy

newPach = ThisDoc.Path + "\" + "папка с компонентами"

If IO.Directory.Exists(newPach) = False Then
System.IO.Directory.CreateDirectory(newPach)'создаём папку для компонентов
Else MessageBox.Show("эта папка уже существует", "Проверка")
End If

Dim sourceDir As String = "путь к материнской сборке" + "\" + "папка с компонентами"
Dim backupDir As String = ThisDoc.Path + "\" + "папка с компонентами"
Dim Pr As String = "имя параметра с номером заказа или проекта или ещё какой критерий"

Dim Directory As System.IO.Directory
   Dim iptList As String() = Directory.GetFiles(sourceDir, "*.ipt")
   Dim idwList As String() = Directory.GetFiles(sourceDir, "*.idw") ' чертежи тоже тащим с собой
Dim iamList As String() = Directory.GetFiles(sourceDir, "*.iam")

Try

   For Each f As String In iamList 'копируем сборки

Dim fName As String = f.Substring(sourceDir.Length + 1)


NewFileName = backupDir & "\" & Pr & " " & fName ' ok
OldFileName = sourceDir & "\" & fName ' ok

OldName = Left(fName, Len(fName) - 4) & ":1" ' ok

If IO.File.Exists(NewFileName) = False Then
System.IO.File.Copy(OldFileName, NewFileName, True)
End If
Try
Component.Replace(OldName, NewFileName, True)
Catch
End Try

Next


   For Each f As String In iptList'копируем детали

Dim fName As String = f.Substring(sourceDir.Length + 1)


NewFileName = backupDir & "\" & Pr & " " & fName ' ok
OldFileName = sourceDir & "\" & fName ' ok

OldName = Left(fName, Len(fName) - 4) & ":1" ' ok

If IO.File.Exists(NewFileName) = False Then
System.IO.File.Copy(OldFileName, NewFileName, True)
End If
Try
Component.Replace(OldName, NewFileName, True)
Catch
End Try

Next


   For Each f As String In idwList
Dim fName As String = f.Substring(sourceDir.Length + 1)


NewFileName = backupDir & "\" & Pr & " " & fName ' ok
OldFileName = sourceDir & "\" & fName ' ok

If IO.File.Exists(NewFileName) = False Then
System.IO.File.Copy(OldFileName, NewFileName, True)
End If


Next

Catch
End Try

[QUOTE]niksasa пишет:
Не совсем понял вопрос. Речь идет о деталировке или ...?[/QUOTE]

нет, надо под лазерную резку и гибку сделать чертежи.
на скрине снизу для резки.

смысл этого чертежа в том, что детали одинаковой толщины, и с одинаковыми внешними размерами(развёртки) будут в одном чертеже.

[QUOTE]niksasa пишет:
Может есть смысл инициаторы событий задействовать для правил или триггер?[/QUOTE]
правила подправил, теперь(вроде) фунциклирует без косяков.
вызов правил оставил как есть.

[QUOTE]Алексей Романов пишет:
Реально VBA чуть медленнее в обучении (но мое ощущение - противоположное), но ни чем не ограничено в применении (в отличие от iLogic)...)))[/QUOTE]

всё упирается как раз в мою "тёмность", максимум что я в VB делал, это заточка постпроцессора под стойку Heidenhain.

как можно программно сделать так чтобы текущее правило отработало
прежде чем запустится следующее?
каждое следующее правило запускается таким макаром:
iLogicVb.RunRule("имя следующего правила")
в конце кода прописано естествено :o