значения переменных в макросе из 3d модели

[алексей556 0]

Подскажите как получить в макросе значения переменных, описанных в SW property tab builder для 3д модели?

[VOleg 228]

Не ясен вопрос.

Вот кусочек содержимого файла таббилдера:     

<Control Label="Разработал" PropName="Разраб." ApplyTo="Global" Type="ComboBox" UserDefineable="True">
        <Data Range="A1:A100" SheetIndex="1" Path="D:\Шаблоны SolidWorks 2016\Свойства пользователя\Поле разработал.xls" SourceType="Excel" />
      </Control>

[алексей556 0]

Подскажите как получить в макросе значения переменных, из 3д модели? Задача сделать макрос сохранения файла с номером версии. т.е. в макросе надо получить значение переменной Revision

[алексей556 0]

Задача сделать макрос сохранения файла с номером версии. т.е. в макросе надо получить значение переменной Revision

[VOleg 228]

А где в ТабБильдере эта переменная "Ревизия"?

В скрине Вы приводите набор переменных чертежа, а в первом сообщении речь шла о 3Д модели.

В торговле, я помню, был такой термин "Ревизия". А в ЕСКД кроме "Номер изменения" мне ничего не приходит в голову. Попробую проанализировать эту "Ревизию" в своих файлах - чем же она интересна?

Если говорить о "Номере изменения", но у меня в каждой 3Д модели есть такая переменная (и номер извещения тоже) и я ее использую где хочу - в том числе добавляю в конец имени файла при сохранении. Но заполняю в 3Д модели  вручную.

[алексей556 0]

23 минуты назад, VOleg сказал:

А где в ТабБильдере эта переменная "Ревизия"?

В скрине Вы приводите набор переменных чертежа, а в первом сообщении речь шла о 3Д модели.

В торговле, я помню, был такой термин "Ревизия". А в ЕСКД кроме "Номер изменения" мне ничего не приходит в голову. Попробую проанализировать эту "Ревизию" в своих файлах - чем же она интересна?

Если говорить о "Номере изменения", но у меня в каждой 3Д модели есть такая переменная (и номер извещения тоже) и я ее использую где хочу - в том числе добавляю в конец имени файла при сохранении. Но заполняю в 3Д модели  вручную.

просто так назвали переменную. это номер версии, которую заполняю в 3д модели вручную. вопрос как ее вытащить в макрос и использовать для добавления к имени файла.

макрос по кнопочке делает dwg в нужную папку см.вложение

 

Macro_dwg.zip

Изменено 18 октября 2017 пользователем алексей556
изменил

[VOleg 228]

Если есть переменная, то в макросе ее легко получить - мне программисты вставляли все, что я хотел. Сам-то я в это не лезу.

Однако, я стараюсь иностранными словами не пользоваться.

Вот какой перевод дал интернет слова "Revision"

• пересмотр
• осмотр
• ревизия
• проверка
• пересмотренное издание

А Вы говорите, что у Вас это "версия".

А вот что означает "версия" в SWE PDM? Но это у них не "изменение".

 

[алексей556 0]

VOleg, так все же каким оператором (кодом) можно получить значение в макросе из атрибута свойства пользователя. Подскажите, или пришлите образец макроса где вы добавляете "номер извещения в конец имени файла"

[streamdown 1 565]

- Подскажите, а каким образом из сотен деталей и сборок на чертеже надо выбрать нужную (деталь), чтоб потом макросом обработать?

- Подскажите, а куда будет вноситься информация о "номере версии"?

- Подскажите, а что будет если "переменной" "Revision" не окажется в файле?

- Подскажите, а "задачу сделать макрос" вы кому ставите? )))

 

[Kelny 1 236]

22 часа назад, алексей556 сказал:

Задача сделать макрос сохранения файла с номером версии. т.е. в макросе надо получить значение переменной Revision

Вот как раз под рукой оказалось:

Цитата

Dim swApp As Object

Dim ModelDoc As ModelDoc2

Set swApp = Application.SldWorks

Set ModelDoc = swApp.ActiveDoc

MsgBox ModelDoc.Extension.CustomPropertyManager("").Get("Revision")

InputBox
Debug.Print ModelDoc.Extension.CustomPropertyManager("").Set("Revision", InputBox( "введите новое значение или Inbox замените переменной с нужной цифрой"))

Если данного свойства нет, то надо его добавить:  ModelDoc.Extension.CustomPropertyManager("").Add...

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

Изменено 19 октября 2017 пользователем Kelny

[ILL 241]

http://cccp3d.ru/topic/27048-solidworks-api/

 

А зачем 2 темы про одно и тоже создавать??

[алексей556 0]

21 час назад, Kelny сказал:

Вот как раз под рукой оказалось:

Если данного свойства нет, то надо его добавить:  ModelDoc.Extension.CustomPropertyManager("").Add...

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

Спасибо, работает, могу получить свойства с чертежа, но там нет требуемого (Revision), оно прописано в 3д модели в конкретной конфигурации (см.изображение). Макрос вызывается с чертежа (для автом. сохранения в dwg). Вопрос как его получить в свойствах на чертеже (см. изображение)? или как его добавить/прописать в макросе если можно поподробней.

[Kelny 1 236]

 

1 час назад, алексей556 сказал:

нет требуемого (Revision), оно прописано в 3д модели в конкретной конфигурации (см.изображение). Макрос вызывается с чертежа (для автом. сохранения в dwg). Вопрос как его получить в свойствах на чертеже (см. изображение)? или как его добавить/прописать в макросе если можно поподробней.

Не нужен для этого макрос, надо просто в заметке листа или свойстве чертежа добавить ссылку: $PRPSHEET:"Revision"

Если свойство с таким именем (в вашем случае Revision) будет в закладке КОНФИГУРАЦИИ и в закладке НАСТРОЙКИ, то будет взято значение из закладки НАСТРОЙКИ.

[алексей556 0]

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

 

Не нужен для этого макрос, надо просто в заметке листа или свойстве чертежа добавить ссылку: $PRPSHEET:"Revision"

Если свойство с таким именем (в вашем случае Revision) будет в закладке КОНФИГУРАЦИИ и в закладке НАСТРОЙКИ, то будет взято значение из закладки НАСТРОЙКИ.

Не работает: если ставлю тип "текст", то вычисленное значение остается $PRPSHEET:"Revision", если ставлю тип "номер", то пишет недопустимое значение. А на чертеже значение определяет. что не так?

[Kelny 1 236]

22 минуты назад, алексей556 сказал:

Не работает: если ставлю тип "текст", то вычисленное значение остается $PRPSHEET:"Revision"

Так и должно быть. После этого на чертеже вместо ссылки $PRPSHEET:"Revision" уже ссылка на свойства файла $PRP:"Revision" и в заметке будет ваша ревизия.

 

23 минуты назад, алексей556 сказал:

А на чертеже значение определяет. что не так?

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

[алексей556 0]

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

Так и должно быть.

в макросе в результате считывает значение как текст "$PRPSHEET:"Revision", а не требуемое число.

[Kelny 1 236]

2 часа назад, алексей556 сказал:

в макросе в результате считывает значение как текст "$PRPSHEET:"Revision", а не требуемое число.

Читайте заметку со ссылкой, получите требуемое число.

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

Set swNote = ModelDoc2.InsertNote("$PRPSHEET:" & Chr(34) & "Revision")
swNote.SetName ("Temp_Note")
MsgBox  swNote.GetText
ModelDoc2.Extension.SelectByID2 "Temp_Note@" & swDraw.GetSheetNames(0), "NOTE", 0, 0, 0, False, 0, Nothing, 0
ModelDoc2.EditDelete

 

Изменено 20 октября 2017 пользователем Kelny

[Kir95 950]

В ‎18‎.‎10‎.‎2017 в 14:10, алексей556 сказал:

номер версии, которую заполняю в 3д модели вручную. вопрос как ее вытащить в макрос и использовать для добавления к имени файла.

Можно так:

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

Sub main()

Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
    
    Dim swDraw                      As SldWorks.DrawingDoc
    Dim swView                      As SldWorks.View
    Dim swCustProp                  As CustomPropertyManager
    Dim Rev                         As String

Dim FilePath As String
Dim PathSize As Long
Dim PathNoExtension As String
Dim NewFilePath As String
Dim sPath As String
Dim sName As String



Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc

If Part.GetType = swDocASSEMBLY Or Part.GetType = swDocPART Then
    MsgBox "Откройте чертёж."
    Exit Sub
End If
        
Dim swModel                     As SldWorks.ModelDoc2
    
    Set swDraw = swApp.ActiveDoc
    Set swView = swDraw.GetFirstView
    Set swView = swView.GetNextView
    Set swModel = swView.ReferencedDocument
    
    Set swCustProp = swModel.Extension.CustomPropertyManager("")
        swCustProp.Get2 "Revision", 30, Rev
    Set swCustProp = Part.Extension.CustomPropertyManager("")
        swCustProp.Add2 "Revision", 30, Rev
   

FilePath = Part.GetPathName

    i = Len(FilePath)
    Do While Mid(FilePath, i, 1) <> "\"
      i = i - 1
    Loop
    sPath = Left(FilePath, i) 'путь без имени файла
    sName = Mid(FilePath, i + 1) 'имя файла
    sNameNoExtension = Left(sName, Len(sName) - 7) 'имя файла без расширения (обрезали .slddrw)

PathSize = Strings.Len(FilePath)

NewFilePath_dwg = "d:\" & sNameNoExtension & " - Версия " & Rev & ".dwg"

Part.SaveAs2 NewFilePath_dwg, 0, True, False

MsgBox "Готово"

End Sub

 

 

Изменено 20 октября 2017 пользователем Kir95

[алексей556 0]

В 20.10.2017 в 19:55, Kir95 сказал:

Set swCustProp = swModel.Extension.CustomPropertyManager("") swCustProp.Get2 "Revision", 30, Rev Set swCustProp = Part.Extension.CustomPropertyManager("") swCustProp.Add2 "Revision", 30, Rev

не берет значение из переменной Revision (см. скрин)

[Kir95 950]

7 часов назад, алексей556 сказал:

не берет значение из переменной Revision (см. скрин)

Напишите MsgBox "Версия-" + Rev, получите окно с номером версии из модели, но если всё-таки:

 

В ‎18‎.‎10‎.‎2017 в 12:56, алексей556 сказал:

Задача сделать макрос сохранения файла с номером версии.

то достаточно создать новый макрос и вставить в него код из предыдущего поста (перед вставкой очистите содержимое, которое создаётся автоматически). Получите двг файл с номером версии (Revision).

Солид какого года у вас?