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

[алексей556 0]

В 23.10.2017 в 21:36, Kir95 сказал:

Напишите MsgBox "Версия-" + Rev

результат тот же - пустое значение. sw2012. код взят из предыдущего поста, как было написано. Почему то не хочет вычислять значение из переменной revision (ни в свойствах, ни в макросе):

 

[Kelny 1 234]

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

результат тот же - пустое значение. sw2012. код взят из предыдущего поста, как было написано. Почему то не хочет вычислять значение из переменной revision (ни в свойствах, ни в макросе):

Может во втором виде у вас другая модель (без ревизии) или второй вид пустой (без моделей)?

Ведь предложенный макрос выбирает первый вид, а потом выбирает второй:

    Set swView = swDraw.GetFirstView
    Set swView = swView.GetNextView

Может вторую строчку исключить и остановиться только:

    Set swView = swDraw.GetFirstView

[алексей556 0]

В 20.10.2017 в 15:22, Kelny сказал:

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

сначала была ошибка что swNote не определено, добавил так: Dim swNote As SldWorks.ModelDoc2 

потом ошибка: run-time error 424 Object required на строке Set swNote = ModelDoc2.InsertNote("$PRPSHEET:" & Chr(34) & "Revision")

у меня sw2012.

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

Может вторую строчку исключить

если исключить - ошибка

[Kelny 1 234]

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

если исключить - ошибка

Может активирован режим:

' Включаем проверку переменных VBA
Option Explicit

и требуется объявить swCustProp или убрать проверку.

 

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

сначала была ошибка что swNote не определено, добавил так: Dim swNote As SldWorks.ModelDoc2 

потом ошибка: run-time error 424 Object required на строке Set swNote = ModelDoc2.InsertNote("$PRPSHEET:" & Chr(34) & "Revision")

у меня sw2012.

Вы чего-то всё мешаете в одну кучу, я приводил свой метод считывания значения с заметки. Данный метод сработал?

 

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

[алексей556 0]

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

Вы чего-то всё мешаете в одну кучу

это два разных теста/макроса (пробую и так и так) - пока оба не работают.

[streamdown 1 565]

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

Может вторую строчку исключить и остановиться только:

FirstView у солида - это лист. Исключив вторую строчку вы будете брать значения с null вида.

[алексей556 0]

В 19.10.2017 в 08:06, streamdown сказал:

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

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

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

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

1) текущий чертеж детали/сборки
2) в имя файла.
3) ничего
4) себе.

Еще вопросы будут или предложите решение?

[streamdown 1 565]

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

Еще вопросы будут

На, выполняй поставленную себе задачу по написанию тебе макроса))

(основа с поста выше)

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

 

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 confName 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
    confName = swView.ReferencedConfiguration
    Set swCustProp = swModel.Extension.CustomPropertyManager(confName)
        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)

If Trim(Rev & vbNullString) = vbNullString Then
    MsgBox "Нет версии! Сохранение не произойдёт"
    Exit Sub
End If

NewFilePath_dwg = sPath & sName & " - Версия " & Rev & ".slddrw"

Part.SaveAs2 NewFilePath_dwg, 0, True, False

MsgBox "Готово"

End Sub

 

 

[алексей556 0]

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

confName = swView.ReferencedConfiguration
    Set swCustProp = swModel.Extension.CustomPropertyManager(confName)

Спасибо за уточнение, теперь работает! По моему вопросу я ожидал более скромный ответ, а не целиком код :) Что то типа:

Dim swCustProp As CustomPropertyManager

Dim Rev As String

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

    Set swDraw = swApp.ActiveDoc
    Set swView = swDraw.GetFirstView
    Set swView = swView.GetNextView
    Set swModel = swView.ReferencedDocument
    confName = swView.ReferencedConfiguration
    Set swCustProp = swModel.Extension.CustomPropertyManager(confName)
        swCustProp.Get2 "Revision", 30, Rev  ' значение переменной Revision, описанной в 3д модели

[streamdown 1 565]

Опять не так ответил... да что ж я такой невнимательный  

[Maik812 288]

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

Да... тотал

[xxxx 2]

В 04.11.2017 в 19:25, Maik812 сказал:

А вообще зачем нужно видеть ревизию в имени файла?

Затем, что некоторые отечественные системы менеджмента файлов. при открытии одноименных файлов от разных "версий" объектов, пишут "файл с таким именем уже открыт. перечитать?" и закрывают файл.

[Maik812 288]

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

Затем, что некоторые отечественные системы менеджмента файлов. 

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

 

Revision  показывает и сортирует, также вводится в фаил . но все до 2015 версии Солида. Не кто не хочет плагин написать с АПИ.

[Kelny 1 234]

10 часов назад, Maik812 сказал:

Не кто не хочет плагин написать с АПИ.

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

[xxxx 2]

@Maik812

"менеджер файлов" -"Лоцман", причем не последней версии

[Solan 3]

Доброго времени суток. Требуется макросом записать значения двух переменных в третью в формате "Переменная1"_"Переменная2". Сторонняя программа берет значение из колонки Значение/текстовое выражение, а не из вычисленное значение. Ткните пожалуйста в пример кода...

[Kir95 950]

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

макросом записать значения двух переменных в третью в формате "Переменная1"_"Переменная2". Сторонняя программа берет значение

а без макроса это как выглядит, в смысле переменные откуда берутся и где будут, в уравнениях или свойствах файла?

[Solan 3]

Переменные будут в свойствах файла.

При передачи развертки в CNCKad (dxf и dft) необходимо в название файла вставить информацию о материале (сортамент и толщина). Эти два параметра вносятся из списка вырезов и панели свойств. Вставить в название файла можно только одну переменную и она берется из колонки Значение/текстовое выражение  - поэтому необходим макрос для записи значения.

[Solan 3]

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

[Kir95 950]

6 часов назад, Solan сказал:

необходимо в название файла вставить информацию о материале (сортамент и толщина).

У вас свойство CNCKad прописано заранее? И вы в свойствах Конфигурации вручную или макросом заполняете значение Сортамент и Толщина, получаете значение  CNCKad, затем хотите запустить макрос, который бы активный файл "Деталь1_00" сохранил под именем "Деталь1_00 Оцинковка-2мм" в папку детали? То есть "Имя файла+CNCKad"? Версия солида какая?