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

Сохранять файлы с серийными номерами


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

Здравствуйте.
Я написал небольшой макрос, который позволяет вам сохранять файлы с серийными номерами до 99.
Надеюсь вас понравится.

 

Option Explicit

Dim swApp   As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim saveFileName    As String
Dim nErrors As Long
Dim nWarnings   As Long
Dim vnam    As String
Dim vbool   As Boolean
Dim i   As Long

Sub main()
      
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
  
    For i = 1 To 99
        saveFileName = Left(swModel.GetPathName, Len(swModel.GetPathName) - 7) & "~" & Format(i, "00")
        vnam = Dir(saveFileName & ".jpg")
        If vnam = "" Then
            swModel.Extension.SaveAs saveFileName & ".jpg", swSaveAsCurrentVersion, swSaveAsOptions_Silent, Nothing, nErrors, nWarnings
            vnam = Left(swModel.GetTitle, Len(swModel.GetTitle) - 7) & "~" & Format(i, "00") & ".jpg"
            vbool = MsgBox(swModel.GetPathName & vbCr & vbCr & "->   " & vnam, vbOKOnly, "Saved As:")
            Exit For
        End If
    Next i
    
End Sub
 

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


2 часа назад, mme сказал:

макрос, который позволяет вам сохранять файлы с серийными номерами до 99

Сохраняет, как файл картинки. Удобно, спасибо.

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

Надеюсь вас понравится.

Простенький, но действительно полезный макрос.

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

Конечно спасибо за работу и макрос, ток не понятно а что дает серийный номер и картинка ? И зачем это?

 

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

Конечно спасибо за работу и макрос, ток не понятно а что дает серийный номер и картинка ? И зачем это?

 

Я, например, его немножко изменил (сохраняю в png и поменял текст) и использую для регистрации изменений. При сравнении двух картинок визуально видно что поменялось в детали. По-моему, удобно.

 Option Explicit

Dim swApp   As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim saveFileName    As String
Dim nErrors As Long
Dim nWarnings   As Long
Dim vnam    As String
Dim vbool   As Boolean
Dim i   As Long

Sub main()
      
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
  
    For i = 1 To 99
        saveFileName = Left(swModel.GetPathName, Len(swModel.GetPathName) - 7) & "~ Изм. " & Format(i, "00")
        vnam = Dir(saveFileName & ".png")
        If vnam = "" Then
            swModel.Extension.SaveAs saveFileName & ".png", swSaveAsCurrentVersion, swSaveAsOptions_Silent, Nothing, nErrors, nWarnings
            vnam = Left(swModel.GetTitle, Len(swModel.GetTitle) - 7) & "~ Изм. " & Format(i, "00") & ".png"
            vbool = MsgBox(swModel.GetPathName & vbCr & vbCr & "->   " & vnam, vbOKOnly, "Внешний вид модели сохранен как:")
            Exit For
        End If
    Next i
    
End Sub

 

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

и использую для регистрации изменений

И где хранишь изменения? а фото то зачем? и где хранить..

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

И где хранишь изменения? а фото то зачем? и где хранить..

В картинках и хранятся. Это же не ЕСКД  догма. Извещения не выпускаю, чисто для себя - визуализация, чтобы понять как поменялась модель.

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

Идея состоит в том, что один объект можно рассматривать из нескольких стран и дать визуальное представление о себе. Да, это не соответствует ECКД

 

OSN.jpg

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

Ну а че в потоке то не хранить ? И не потеряешь и вытащить и в писать можно автоматом до 9 ячеек всякими значениями заполнить? просто интересно...

mPDM.zip

 

 

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

@Maik812 Спасибо за плагин, не знал про него. Я не часто использую ТС, но может именно этот плагин приживется у меня :)

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

но может именно этот плагин приживется у меня :)

ini открой плагина и заполни что нужно еще тебе. но первые не трогай значения. хотя смотри сам.

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

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

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

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

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

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

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

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

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

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

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




  • Сообщения

    • Anat2015
      Привод наверное пневматика, вручную клапана нажимать.
    • Limon2986
    • scrimline
      А возьми в учëт тот факт что рука уже сорвалась с места, датчик нагрузки сработал и выключил привод руки. Соответственно рука то уже может нормально функционировать, просто необходимо запусть еë принудительно, проблема в том что я не знаю как это сделать. 
    • andrey2147
      Конечно, раскоксовать поможет форум.
    • Guhl
      Есть вот такие штуки. Если не лень, то можете на оптопарах hcpl спаять самому На плк простая программа с высокоскоростным счетчиком  Как вариант, по прерываню от нуль метки переписывать значенин счетчика в регистр     А фанук сам не умеет разве в диагностике показывать количество импульсов, которые насчитал?
    • gudstartup
      это как например у датчика уровни ttl какой плк работает с ttl уровнями а если уж проверять то нужен тестер сигналов например lir 590 но надо жгут изготавливать и разъем который на аi приводах стоит для энкодера проще всего проверить заменой датчика только вот со сроками покупки беда  хотя может шестерня виновата??
    • scrimline
      Сомневаюсь что попало что-то, скорее всего оператор который работал до меня этой рукой не пользовался да и за эмульсией не следил. Думаю скорее закоксовалось, поскольку после команды рука стояла на месте секунды 2-3 и начала опускаться с рывком. По поводу ладдера, постараюсь скинуть, но на нашем предприятии проблемы и с флешками и с общей сетью, да и ПК на рабочем месте нет. 
    • Bot
      Команда CSD пообщалась с представителями компании «КС-ПРО» и выяснила, как происходило внедрение G-Station, сколько времени занял процесс перехода на новую платформу, узнала об организации совместной работы и о функционале платформы. Основное направление компании «КС-ПРО» — оказание комплекса услуг технического заказчика, в том числе и для крупных офисных девелоперов. Внедрение G-Station в «КС-ПРО» проходило в ноябре 2022 года. G-Station — это всего лишь один из модулей комплексной платформы G-Tech Suite. Специалисты компании отмечают, что G-Station действительно стала хорошей альтернативой BIM 360. Специалисты «КС-ПРО» получили доступ к полноценной единой информационной среде с облачным хранилищем файлов и моделей, а также такими возможностями, как: Управление проектами, пользователями и подрядчиками; Создание чек-листов; Создание шаблонов чек-листов с процессами согласования; Передача документации на строительную площадку; Просмотр 3D- и 2D моделей [...] View the full article
    • Bot
      АСКОН, российский разработчик инженерного программного обеспечения и ИТ-интегратор, подвел итоги 2023 года. Выручка компании выросла на 47% и достигла 5,6 млрд рублей, штат сотрудников увеличился до 1250 человек. Клиентская база пополнилась тысячью предприятий, и сегодня с решениями АСКОН работают почти 16 000 заказчиков из всех отраслей промышленности и строительства. На динамику бизнеса положительно повлияли рост промышленного производства, сопровождающийся инвестициями в цифровизацию, крупные инфраструктурные проекты и курс страны на технологический суверенитет. Лидерские позиции компании в разработке и интеграции подтверждены профессиональными рейтингами. АСКОН, единственный из разработчиков инженерного ПО, вошел в ТОП-100 российских ИТ-компаний в рейтинге CNews; второй год подряд — в десятку крупнейших ИТ-поставщиков в сфере промышленности и строительства по данным TAdviser; впервые назван в тройке ведущих proptech-компаний как [...] View the full article
    • senat93
      @tribogatirya FORD 800 mm есть пост с кинематикой. По стойкам Siemens 808d , 828 там надо смотреть что за станок,какие оси и т.д. Если что,пиши lynxsenat@gmail.com, по цене договоримся. 
×
×
  • Создать...