Как изменить предлогаемое имя файла в SolidWorks

[Kir95 951]

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

если уже успели создать и чертежи, то их имена останутся нетронуты

 В дереве переименовывать компоненты удобно, пока модель накидываешь, по 2-3 компонента, не больше. Если больше, то через "сохранить как" или "копировать проект", когда как удобнее, чтобы все ссылки обновились при переименовании файлов. И чертежи переименовываются, и входящие компоненты по "Найти-Заменить" пакетно. Рутинная задача потом вбивать значения в свойства даже для одного-двух файлов. А так для всего проекта из десятков компонентов свойства заполняются за пару секунд без открытия-заполнения-сохранения.

[streamdown 1 567]

16 минут назад, Kir95 сказал:

Рутинная задача

Я только рад 

[Maik812 309]

В 04.09.2017 в 15:02, streamdown сказал:

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

если бы сделал все таки  АПИ плагин к ТС то можно переименовывать и чертежи. Разместил бы на сайте ТС  и тд.. хорошая реклама и раскрутка.

50 % вопросов тут снялось связанных с файлами и данными в них. Причем почти все у тебя есть, по коду.

[streamdown 1 567]

25 минут назад, Maik812 сказал:

хорошая реклама и раскрутка

Ты серьёзно думаешь что мне нужна раскрутка?   Я похож на какого нибудь "бизнесмена" салахудинова с его впариванием уроков по компасу))))) ?

Будут деньги - будет товар. Ни больше, ни меньше.

[Kelny 1 333]

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

если бы сделал все таки  АПИ плагин к ТС то можно переименовывать и чертежи. Разместил бы на сайте ТС  и тд

Для этого нужно задействовать раздел API закрытый индивиндуальным ключом Document Manager, который ещё надо получить, а так же использование на свой страх и риск:

http://help.solidworks.com/2010/english/api/swdocmgrapi/SolidWorks.Interop.swdocumentmgr_WelcomeSWDocMgrAPI.html?id=5ad23c9f5ef84546a57c64ec9984a06b#Pg0

[Kir95 951]

@Сергей2014 Макрос для сохранения файла по типу "Обозначение_Наименование", значения берутся из ранее заполненных свойств файла.

http://my-files.ru/at7ybc

 

[Kir95 951]

http://my-files.ru/28mn3h

подправил немного предыдущий файл

[Anatlijj8 1]

Спасибо за макрос. Полезная вещь. Только вопрос почему пр сохранение детали он не подтягивает обозначение и наименование.Называет файл _.sldprt

[Kir95 951]

35 минут назад, Anatlijj8 сказал:

не подтягивает обозначение и наименование.Называет файл _.sldprt

@Anatlijj8

Если в свойствах файла заполнено, то работает:

 

[Anatlijj8 1]

Я разобрался уже работает. Большое спасибо

 

[Anatlijj8 1]

Интересует еще момент по макрасу который определяет обозначение и наименование с названия файла. Обозначение без проблем подтягивает а наименование но берет вместе с расширением файла. Например D001_База.SLDPRT то в обозначение оно берет D001 а в наименование База.SLDPRT. Как сделать чтобы оно не подтягивало расширение файла?

 

[Kelny 1 333]

25 минут назад, Anatlijj8 сказал:

в наименование База.SLDPRT. Как сделать чтобы оно не подтягивало расширение файла?

Можно например, использовать функцию REPLACE, например: Replace(ВашаСтрокаИлиПеременная, ".SLDPRT", "")

Не помню будет ли учитываться регистр по умолчанию (большие и маленькие буквы или будет сравнивать только буквы не взирая на регистр).

 

Или можно оставить левую часть за минус 7 символов (".SLDPRT") справа: Left(ВашаСтрокаИлиПеременная, Len(ВашаСтрокаИлиПеременная) - 7 )

 

 

Или можно отсекать правую часть по тому же алгоритму, что ищите "-" с помощью InStrRev, но искать точку для определения длины отсечения и отбрасывании/сохранения нужной строки.

 

Как вариант в Windows отключить расширения файлов и тогда возможно макрос так же не будет учитывать расширения, тогда их исключать не придётся. Но могут возникнуть проблемы в других местах при наличии точек в имени файлов, а так же от вирусов не убережётесь, которые своё расширение делают двойным, например, КАРТИНКА.JPG.EXE и без расширения видите файл вроде бы картинку, а при двойном клике на самом деле запускаете вредоносную программу.

Изменено 6 марта 2019 пользователем Kelny

[Anatlijj8 1]

А может можно как-то указать промежуток от "_" до "."? 

[Anatlijj8 1]

Я скопировал Ваш код который был написан выше для макроса сохранения параметров обозначение и наименование с имени файла. И он работает но минус того что оно в наименование подтягивает еще расширение файла. Там используется InStrRev. Как в этом случае задать точку для определения длины отсечения?

[Kelny 1 333]

16 минут назад, Anatlijj8 сказал:

А может можно как-то указать промежуток от "_" до "."? 

Можно и так, вычисляйте начальный символ и длину строки, а дальше используйте Mid(string, start[, length]).

 

 

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

[Kelny 1 333]

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

Там используется InStrRev. Как в этом случае задать точку для определения длины отсечения?

Наверно можно как-то так:
swModel.CustomInfo("Наименование") = Mid(swModel.GetTitle, InStr(swModel.GetTitle, "-"), Len(swModel.GetTitle)-InStr(swModel.GetTitle, "-") - InStrRev(swModel.GetTitle, "."))

или:

swModel.CustomInfo("Наименование") = Mid(swModel.GetTitle, InStr(swModel.GetTitle, "-"), Len(swModel.GetTitle)-InStr(swModel.GetTitle, "-") - 7)

[Anatlijj8 1]

Не работает по этому примеру что Вы написали

Второй пример почти только он перед наименованием ставит "_". Может подскажите как его убрать чтобы его не включало в наименование?

[Maik812 309]

13 часа назад, Anatlijj8 сказал:

Только вопрос почему пр сохранение детали он не подтягивает обозначение и наименование.Называет файл _.sldprt

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

[Kelny 1 333]

15 часов назад, Anatlijj8 сказал:

Второй пример почти только он перед наименованием ставит "_". Может подскажите как его убрать чтобы его не включало в наименование?

Добавить единицу и все дела:

swModel.CustomInfo("Наименование") = Mid(swModel.GetTitle, InStr(swModel.GetTitle, "-")+1, Len(swModel.GetTitle)-InStr(swModel.GetTitle, "-") - 7)

[Kir95 951]

@Anatlijj8

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

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
Dim swModelDocExt As ModelDocExtension
Dim swCustProp As CustomPropertyManager
Dim bool As Boolean
Sub main()
Dim swModel As ModelDoc2
Dim vComps As Variant
Dim swComp As SldWorks.Component2
Dim swAssy As SldWorks.AssemblyDoc
Dim i As Integer
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
    updateProperty swModel
If swModel.GetType = swDocASSEMBLY Then
    Set swAssy = swModel
    vComps = swAssy.GetComponents(False)
    For i = 0 To UBound(vComps)
        Set swComp = vComps(i)
        Set swModel = swComp.GetModelDoc2
        updateProperty swModel
    Next i
End If
    Dim vModels As Variant
    Dim count As Long
    Dim index As Long
   
    count = swApp.GetDocumentCount
    vModels = swApp.GetDocuments
   
    For index = LBound(vModels) To UBound(vModels)
        Set swModel = vModels(index)
    Next index
   
    ' Save All
Dim swErrors As Long
Dim swWarnings As Long
bool = swModel.Save3(swSaveAsOptions_Silent, swErrors, swWarnings)
MsgBox "Готово"
End Sub
Function updateProperty(swModel As SldWorks.ModelDoc2) As Boolean

Dim cpm As CustomPropertyManager
Dim i As Long
Dim path As String, filename As String

    Set swModelDocExt = swModel.Extension
    Set swCustProp = swModelDocExt.CustomPropertyManager("")
path = swModel.GetPathName
filename = Mid$(path, InStrRev(path, "\") + 1) ' With extension
filename = Left$(filename, InStrRev(filename, ".") - 1) ' Remove extension

  ' Убирает предупреждения, если файл не назван по типу Обозначение-Наименование
    On Error GoTo ErrorHandler
    For i = 1 To 999
        MsgBox " Iteration number " & i & ". DisplayAlerts is " & Application.DisplayAlerts
        Err.Raise 9999 'fake an error
ContinueLoop:
    Next i
   
    Application.DisplayAlerts = True
    
ErrorHandler:
    Err.Clear
    Resume Next
   
     'Разделитель в имени файла "-" можно заменить на свой, например —(длинное тире, клавиши Alt+0151)
    bool = swCustProp.Add3("Наименование", swCustomInfoText, Right$(filename, Len(filename) - InStrRev(filename, "-")), 2)
    bool = swCustProp.Add3("Обозначение", swCustomInfoText, Left$(filename, InStr(filename, "-") - 1), 2)

End Function

 

Мне удобнее разделителем ставить длинное тире, а то в обозначении или наименовании дефисы иногда встречаются.

Этим макросом удобно пользоваться, когда проект скопировал через "Pack and Go" и потом всем входящим компонентам поменять обозначение.

В макросонаписании не силён, набрал разных кусков с солидовского форума :)

Изменено 7 марта 2019 пользователем Kir95