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

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

немного намудрил с кодом. Кое-что подправил, теперь не копируется сама сборка а компоненты входящие в нее копируются. Как сделать чтобы сборка тоже копировалась? :dash1:

код:

Скрытый текст

'---------------------------------------------------------------------------
' Предварительные условия:
' 1. Выбрать заменяемый компонент в дереве построения головной сборки.
' 2. Запустить макрос.
'
' Результат работы программы:
' 1. Генерирует цифровой префикс к выбранному компоненту включая вложенные компоненты.
' 2. Создает экзэмпляр компонента и всех чертежей в папке головной сборки
' 3. Заменяет выбранный компонент созданным экземпляром.
'---------------------------------------------------------------------------

Dim swApp As SldWorks.SldWorks
Dim swModelDoc1 As SldWorks.ModelDoc2
Dim swModelDoc2 As SldWorks.ModelDoc2
Dim swModelDoc1Ext As SldWorks.ModelDocExtension
Dim swModelDoc2Ext As SldWorks.ModelDocExtension
Dim swPackAndGo As SldWorks.PackAndGo
Dim openFile As String
Dim pgFileNames As Variant
Dim pgFileStatus As Variant
Dim pgGetFileNames As Variant
Dim pgDocumentStatus As Variant
Dim status As Boolean
Dim warnings As Long
Dim errors As Long
Dim i As Long
Dim namesCount As Long
Dim myPath As String
Dim statuses As Variant

Dim FilePath1 As String
Dim FilePath2 As String
Dim FileName1 As String
Dim FileName2 As String
Dim curObj As Object
Dim objComponent As SldWorks.Component2
Dim SelMgr As SldWorks.SelectionMgr
Dim swAssy As SldWorks.AssemblyDoc
Public Prefix As String


Private Function myGetDate() As String
    Dim MyStr As String
    Dim MyDate As Variant

    MyDate = Now()
    MyStr = Format(MyDate, "yyMMddHHmmss")

    myGetDate = MyStr
End Function
'функция исключения имени файла из полного пути
'Path - полный путь к файлу (включая имя файла)
Private Function myGetFolder(Path As String) As String

myGetFolder = Left$(Path, InStrRev(Path, "\"))

End Function

Sub main()

Set swApp = Application.SldWorks
Set swModelDoc1 = swApp.ActiveDoc 'указатель на головную сборку
Set SelMgr = swModelDoc1.SelectionManager
Set curObj = SelMgr.GetSelectedObjectsComponent4(1, 0)
Set objComponent = curObj 'выбранный компонент в дереве построения
FilePath2 = curObj.GetPathName() 'путь к выбранному компоненту
FileName2 = Dir(FilePath2, vbDirectory)
FilePath1 = swModelDoc1.GetPathName() 'путь к головной сборке
FileName1 = Dir(FilePath1, vbDirectory)
FilePath1 = myGetFolder(FilePath1) 'убираем имя компонента из пути
FilePath2 = myGetFolder(FilePath2) 'убираем имя компонента из пути
Prefix = myGetDate
'MainForm.TextBox1.Text = Prefix
'MainForm.Show

'получаем указатель на выбранный компонент
Set swModelDoc2 = swApp.ActivateDoc3(FileName2, False, swRebuildOnActivation_e.swDontRebuildActiveDoc, errors)
Set swModelDoc2Ext = swModelDoc2.Extension

Debug.Print "Pack and Go"
Set swPackAndGo = swModelDoc2Ext.GetPackAndGo

' Get number of documents in assembly
namesCount = swPackAndGo.GetDocumentNamesCount
Debug.Print "  Number of model documents: " & namesCount

' Include any drawings, SOLIDWORKS Simulation results, and SOLIDWORKS Toolbox components
swPackAndGo.IncludeDrawings = True
Debug.Print "  Include drawings: " & swPackAndGo.IncludeDrawings

' Получаем список файлов сборки в исходной папке
status = swPackAndGo.GetDocumentNames(pgFileNames)
Debug.Print ""
Debug.Print "  Current path and filenames: "
If (Not (IsEmpty(pgFileNames))) Then
    For i = 0 To UBound(pgFileNames)
        Debug.Print "    The path and filename is: " & pgFileNames(i)
    Next i
End If

' Get current save-to paths and filenames of the assembly's documents
status = swPackAndGo.GetDocumentSaveToNames(pgFileNames, pgFileStatus)

' Set folder where to save the files
myPath = FilePath1
status = swPackAndGo.SetDocumentSaveToNames(pgFileNames)
status = swPackAndGo.SetSaveToName(True, myPath)

' Flatten the Pack and Go folder structure; save all files to the root directory
swPackAndGo.FlattenToSingleFolder = True
' Add a prefix to the new Pack and Go filenames

swPackAndGo.AddPrefix = Prefix

status = swPackAndGo.GetDocumentSaveToNames(pgGetFileNames, pgDocumentStatus)

' Pack and Go
statuses = swModelDoc2Ext.SavePackAndGo(swPackAndGo)
swApp.CloseDoc (FilePath2 + FileName2)
'
'Set swModelDoc1 = swApp.OpenDoc6(FilePath1 + FileName1, swDocASSEMBLY, swOpenDocOptions_Silent, "", errors, warnings)
Set swModelDoc1 = swApp.ActivateDoc3(FileName1, False, swRebuildOnActivation_e.swDontRebuildActiveDoc, errors)
Set swAssy = swModelDoc1
status = swAssy.ReplaceComponents(FilePath1 + Prefix + FileName2, "", True, True)

End Sub

 

 

Хэлп!

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


В 13.06.2018 в 12:14, Gaidn сказал:

Здравствуйте! По много раз за день приходится пользоваться командой "Копировать проект" со стандартным фиксированным для нас набором параметров. Можно ли как-то с помощью макроса это сделать? Как выйти на этот модуль? Запись макроса, естественно, не помогла. ))

Всем заранее спасибо! )

Не знаю, что Вы имеете ввиду под "Копировать проект". Если это все, что так или иначе относится к Вашему проекту, то PackAndGo Вам в руки. Только вряд ли это Вас устроит хотя бы из-за неопределенности того, что ОНО там копирует. И невменяемого времени. Тоже столкнулся с подобной проблемой когда потребовалось гарантированное сохранение ВСЕХ элементов модели в одном месте. Тут как минимум два способа, один с использованием метода "GetDocumentDependencies2" и второй с использованием функции "TraverseComponent" (из help'а). С последней особо не разбирался (не программист), вроде тоже работает. Важно! Эти методы не дают идентичного результата, хотя и позволяют практически идеально скопировать исходник (открывается из копии без проблем в обоих случаях). Существенное отличие их в том, что первый метод "выдирает" практически все, вплоть до того, что "разбирает" на запчасти деталь, составленную из деталей (вставка детали в деталь. При том, что штатными средствами выделить вставленную в деталь другую деталь у меня не получалось). Второй метод этого не делает, для него деталь это один компонент. Но первый способ менее информативен и не дает полной информации о состоянии детали в сборке (например она может быть погашена), ну или я не до конца разобрался. Второй способ позволяет оценить "степень бедствия", т.е если что-то не скопировалось, то можно понять насколько это серьезно. Возможно не скопирован погашенный компонент. Два макроса (vba) вложил, "06 Копия проекта - ARR" - первый способ, "05 Копия проекта + Log" - второй. Прожки в состоянии доработки, as is, комменты есть, код открытый. То, что я не программер я уже писал. Ну и да, Вас приятно удивит скорость копирования.

05 Копия проекта + Log.swp

06 Копия проекта - ARR.swp

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

Здравствуйте! В help есть такой пример на эскпорт файла в STEP формате. В нём непонятны несколько строк.

Set swApp = Application.SldWorks    
    'Open the SOLIDWORKS part document to export to a STEP file
    fileName = "C:\Program Files\SolidWorks Corp\SolidWorks\samples\tutorial\api\db9 male.sldprt"
    Set swPart = swApp.OpenDoc6(fileName, swDocumentTypes_e.swDocPART, swOpenDocOptions_e.swOpenDocOptions_Silent, "", errors, warnings)
    Set swModel = swPart 						'зачем эта строка? Если они равны, то почему бы сразу не ссылаться на swModel
    Set swModelDocExt = swModel.Extension 		'непонятно, что делается здесь.
    
    'Export the SOLIDWORKS part document to a STEP file
    stepFileName = "C:\Program Files\SolidWorks Corp\SolidWorks\samples\tutorial\api\db9 male.STEP"
    status = swModelDocExt.SaveAs(stepFileName, 0, swSaveAsOptions_e.swSaveAsOptions_Silent, Nothing, errors, warnings)
    Set swPart = Nothing 						'и здесь непонятно)
    swApp.CloseDoc "db9 male.sldprt" 

И непонятно, что делать с параметрами (или аргументами, или свойствами, не знаю, как правильно) errors и warnings. Как их обрабатывать, или что тут указывать? В справке есть какие-то варианты ошибок и предупреждений, но куда их вставлять или что с ними делать - непонятно.

Заранее всем большое спасибо.)

Ссылка на сообщение
Поделиться на других сайтах
30 минут назад, Gaidn сказал:

И непонятно, что делать с параметрами (или аргументами, или свойствами, не знаю, как правильно) errors и warnings. Как их обрабатывать, или что тут указывать? В справке есть какие-то варианты ошибок и предупреждений, но куда их вставлять или что с ними делать - непонятно.

Начните с книжки по азам программирования, возможно для начала какой-нибудь краткий курс по VBA. Потому как судя по вашим вопросам вам будет туго без первичных знаний.

 

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

Ссылка на сообщение
Поделиться на других сайтах
32 минуты назад, Gaidn сказал:

'зачем эта строка?

Низачем. Тупанули индусы))

33 минуты назад, Gaidn сказал:

Как их обрабатывать, или что тут указывать?

Если они не равны нулю после открытия - значит что-то может пойти не так (или уже пошло). В описании к OpenDoc6 есть описание параметров. Почитайте, там всё написано.

Ссылка на сообщение
Поделиться на других сайтах
1 минуту назад, Kelny сказал:

Начните с книжки по азам программирования, возможно для начала какой-нибудь краткий курс по VBA

Вот не поверите, но у меня есть несколько книжек по VB. Правда не VBA, a VB.Net. И я их периодически даже почитываю по мере необходимости. ))

10 минут назад, streamdown сказал:

Низачем. Тупанули индусы))

Спасибо. )

10 минут назад, streamdown сказал:

В описании к OpenDoc6 есть описание параметров. Почитайте, там всё написано.

Первым делом прочитал. Но всё равно непонятно. Хотя сейчас начинает проясняться. То есть это некие переменные (errors, warnings), в которые будут заноситься коды ошибок и я смогу их отследить. Так получается?

Ссылка на сообщение
Поделиться на других сайтах
В 13.06.2018 в 13:14, Gaidn сказал:

Здравствуйте! По много раз за день приходится пользоваться командой "Копировать проект" со стандартным фиксированным для нас набором параметров. Можно ли как-то с помощью макроса это сделать? Как выйти на этот модуль? Запись макроса, естественно, не помогла. ))

Всем заранее спасибо! )

Добрый день.

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

Как это можно прописать в общем макросе?

 

P.s. Пожалуйста, не предлагайте саму команду PackAndGo... 

P.s.2 Пожалуйста, не отправляйте ссылку в справку...

Спасибо.

Ссылка на сообщение
Поделиться на других сайтах
В 20.07.2018 в 14:33, Gaidn сказал:

То есть это некие переменные

да, переменная которая передалась по ссылке. Изменилась внутри метода, и вернулась назад изменённая. Это применяется когда из метода нудно вернуть несколько разных типов и значений.

Ссылка на сообщение
Поделиться на других сайтах
В 22.07.2018 в 11:54, streamdown сказал:

да, переменная которая передалась по ссылке. Изменилась внутри метода, и вернулась назад изменённая. Это применяется когда из метода нудно вернуть несколько разных типов и значений.

Большое спасибо! Всё получилось. )

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

Снова здравствуйте!

Может быть у кого-то есть макрос на сворачивание всего дерева сразу? Или может это как-то можно сделать силами обычного солида? ) Заранее всем большое спасибо! )

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

ПКМ на сборке - свернуть элементы. Это же можно хоть на кнопку в настройках повесить. Макрос блин)))

Ссылка на сообщение
Поделиться на других сайтах
38 минут назад, Gaidn сказал:

сворачивание всего дерева сразу?

А зачем?

Может лучше так?  

Clip469.png.27d2eb654be03540760e4b129fbff809.png

Hide  
Изменено пользователем Plumber
Ссылка на сообщение
Поделиться на других сайтах
11 минуту назад, streamdown сказал:

ПКМ на сборке - свернуть элементы. Это же можно хоть на кнопку в настройках повесить. Макрос блин)))

Вот я тоже нашел этот способ, но не то чтобы на сборке ПКМ, а в любом месте дерева. ) Оказывается, уже горячая клавиша есть на это действие по умолчанию.) Shift+С. )

 

14 минуты назад, Plumber сказал:

А зачем?

Может лучше так?

Clip469.png.27d2eb654be03540760e4b129fbff809.png

Hide

Не, так не пойдет. ) Спасибо. )

 

А есть ли у кого макрос по сортировке дереве по заданным критериям? К примеру, по алфавиту, и все детали или сборки со словом "Кран" помещаются в папку "Арматура". 

Ссылка на сообщение
Поделиться на других сайтах
43 минуты назад, Gaidn сказал:

А есть ли у кого макрос по сортировке дереве по заданным критериям? К примеру, по алфавиту

Инструменты-Визуализация сборки:

http://help.solidworks.com/2010/russian/solidworks/sldworks/allcontent/solidworks/core/assemblies/c_assembly_visualization_overview.htm

 

43 минуты назад, Gaidn сказал:

все детали или сборки со словом "Кран"

Фильтр по дереву конструирования (строка для ввода вверху над деревом):

http://help.solidworks.com/2010/russian/solidworks/sldworks/legacyhelp/sldworks/assem_1/filtering_the_featuremanager_design_tree_in_assemblies.htm

 

 

43 минуты назад, Gaidn сказал:

помещаются в папку "Арматура". 

Через контекстное меню СОЗДАТЬ НОВУЮ ПАПКУ и/или ДОБАВИТЬ В НОВУЮ ПАПКУ, но туда не всё можно добавить, например, массивы это отдельная песня:

http://help.solidworks.com/2010/russian/solidworks/sldworks/legacyhelp/sldworks/fundamentals/add_folders.htm

Изменено пользователем Kelny
Ссылка на сообщение
Поделиться на других сайтах
18 минут назад, Kelny сказал:

Фильтр по дереву конструирования (строка для ввода вверху над деревом):

http://help.solidworks.com/2010/russian/solidworks/sldworks/legacyhelp/sldworks/assem_1/filtering_the_featuremanager_design_tree_in_assemblies.htm

Это понятно, но совсем другое. Я имел ввиду макрос, который шерстит дерево построения и элементы (детали или сборки) по определенному критерию (например по имени, чаще всего надо) складывает в определенную папку.

18 минут назад, Kelny сказал:

Через контекстное меню СОЗДАТЬ НОВУЮ ПАПКУ и/или ДОБАВИТЬ В НОВУЮ ПАПКУ, но туда не всё можно добавить, например, массивы это отдельная песня:

http://help.solidworks.com/2010/russian/solidworks/sldworks/legacyhelp/sldworks/fundamentals/add_folders.htm

аналогично

Изменено пользователем Gaidn
Ссылка на сообщение
Поделиться на других сайтах
23 минуты назад, Gaidn сказал:

Это понятно, но совсем другое. Я имел ввиду макрос

Это понятно, но зачем макрос? Если есть штатные функции программы, тем более если сами вы этот макрос писать не собираетесь.

 

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

В справке есть примеры, например, помещение компонента в новую папку:

http://help.solidworks.com/2010/english/api/sldworksapi/move_assembly_components_to_new_folder_example_vb.htm

 

Ссылка на сообщение
Поделиться на других сайтах
1 минуту назад, Kelny сказал:

Это понятно, но зачем макрос? Если есть штатные функции программы, тем более если сами вы этот макрос писать не собираетесь.

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

 

зачем писать самому макрос, если он уже у кого то есть? ))

А если нет, то придется самому. ) Спасибо большое за пример. ) Тоже на него натыкался и взял себе на примет. ;)

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

все детали или сборки со словом "Кран" помещаются в папку "Арматура". 

 

А что их так много на одном уровне сборки?? Мне обычно хватает папок по разделам спецификации..

 

5 часов назад, Kelny сказал:

но туда не всё можно добавить, например, массивы это отдельная песня:

 

А что туда нельзя добавить?? Массивы прекрасно добавляются..

Ссылка на сообщение
Поделиться на других сайтах
В 27.07.2018 в 20:40, ILL сказал:

А что их так много на одном уровне сборки?? Мне обычно хватает папок по разделам спецификации..

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

Ссылка на сообщение
Поделиться на других сайтах
11 минуту назад, Gaidn сказал:

В такие моменты я "грезю" о заветной кнопке такого макроса. ))

 

Элементарно..

 

1. http://help.solidworks.com/2015/English/api/sldworksapi/Traverse_Assembly_at_Component_Level_Example_VB.htm

записать в массив и, возможно, отсортировать..

3. 

В 27.07.2018 в 17:52, Kelny сказал:

 

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

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

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

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

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

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

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

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

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

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

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




  • Сообщения

    • lem_on
      По моему вполне логично если станок вывалится в ошибку если рука не доехала до места. У меня так же если кулачки или деталь на пути, просто пихаеш ее до места и станок опять активен. Но нынешние пановья даже не могут написать модель станка.
    • Viktor2004
      Я согласен что скорее всего проблема механическая Но если логика прописана криво и возможно не предусмотрела остановку в промежуточном состоянии, разве не логично будет попробовать принудительно подав напряжение дернуть эту руку вверх-вниз? Возможно то что туда попало выпадет  
    • Guhl
      Если оставить за скобками вопрото том, что до м19 работает нормально, а после нет, то вы не считали сколько у него реально импульсов на оборот? с помощью стороннего плк, например  А если ориентацию м5 снимать, а не м20?
    • lem_on
      Что это за станок такой в котором сразу ладер ковырять надо, даже не смотря на возможность механической проблемы? Или профдеформация?
    • Viktor2004
      не сразу я понял в чем вопрос. Долго соображал что такое режим управления скоростью. При завершении ориентации PMC снимает сигнал G70.6 ? И если он после снятия сигнала продолжает удерживать шпиндель, при каких условиях эта ориентация все же снимается? После нажатия аварийного грибка или еще как?
    • Viktor2004
      Ладдер пришлите. Будем принудительно пробовать поднимать и опускать
    • streamdown
      Коллеги приветствую! IPS 8. Подскажите пожалуйста, кто какое серверное железо использует? Интересуют параметры при одновременной работе, ну например, 400 пользователей онлайн
    • gudstartup
      так он так и позиционируется по m19 pmc выдает g70.6 а чпу отвечает f45.7 но ориентацию и смещение в 4077 он отрабатывает нормально шпиндель встает ровно и смена происходит хорошо. вопрос почему после ввода команды управления скоростью он все еще продолжает контролировать число импульсов между нуль метками хотя в принципе уже должен отменить позиционный контроль и просто считать обороты по 0 метке как он это делает без М19? это все понятно но почему оно продолжает проверять это после завершения ориентации мне непонятно
    • Александр1979
      SP9047 SSPA:47 ILLEGAL SIGNAL OF POSITION CODER "The relationship between the A/B phase and 1-rotation signal is incorrect (Pulse interval mismatch)." "Неправильное значение счетчика импульсов сигнала на энкодере ALPHAi. На фазах A и B энкодера за один оборот шпинделя насчитывается 4096 импульсов обратной связи. Программное обеспечение по управлению шпинделем проверяет количество импульсов на фазах A и B, соответствующее энкодеру, при каждой генерации сигнала одного оборота. Данный аварийный сигнал срабатывает, если регистрируется число импульсов, нарушающее заданный диапазон."
    • vs3dpro
      Добрый день! У нас на есть SLA принтер 600х600х400мм. Можно напечатать мастер- модели, и можно приехать посмотреть. mail@iges.space
×
×
  • Создать...