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

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


алексей556

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

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

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

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

Screenshot_9.png.0dbb087f0d4d84a315c76f2e7d6b51ca.png

 

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


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

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

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

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

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

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

    Set swView = swDraw.GetFirstView

Ссылка на сообщение
Поделиться на других сайтах
В 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 сказал:

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

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

Screenshot_10.png.2e0724d81c871d84d8e8877d35984d68.png

Ссылка на сообщение
Поделиться на других сайтах
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.

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

 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Ссылка на сообщение
Поделиться на других сайтах
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

 

 

Ссылка на сообщение
Поделиться на других сайтах
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д модели

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

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

Да... тотал :bleh:

Ссылка на сообщение
Поделиться на других сайтах
В 04.11.2017 в 19:25, Maik812 сказал:

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

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

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

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

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

 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Снимок.JPG

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

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

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

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

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

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

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

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

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

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

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

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

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

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




  • Сообщения

    • mactepnew
      Вот я тоже так думал, пока не столкнулся с обратным) Как еще столкнусь, пришлю скриншот. Хаос еще в том, что порядок в дереве построения весьма условный. операция, которая стоит перед групой, имеет бОльший timestamp(пардон, не знаю как это в переводе), чем эта группа, и выполняется позже. При этом все операции в группе имеют timestamp на пару сотен меньше и выполняются раньше, чем две группы, стоящие перед ней. Логика?  Если в эскизе все элементы определены, то можно поставить еще один размер (хочешь переопределить эскиз - да пожалста!), изменить его - и NX самостоятельно выберет, какой размер или ограничение отпустить и весь эскиз летит к чертям. Это ли не хаос?   Назовете хоть один CAD, которым можно пользоваться так? Любой из встреченных мной имеет много неочевидных нюансов, которые конечно не проявляются при выполнении университетского или базового курса. В Creo я на протяжении 5 лет находил всё новые фишки, которые не прописаны в документации. Огромная благодарность Ruslan за пояснения тонкостей. Даже Компас и Solidworks, которые считаются самыми дружественными, оказалось непросто обуздать, когда проходил собеседования и делал тестовые. А ведь университетский курс знал на отлично!   Возвращаясь к NX - вот сегодняшний пример. Утром деталь была оранжевая, единая. Изменил пару уклонов и толщин, стала желтая с элементами оранжевого и частично твердотельной, частично листовой. Я даже не знаю, как сформулировать вопрос в поддержку. 
    • Mikhail_Podgornyj
      Добрый день, кто может поделиться SKF Bearing V1.6 (ANSYS App)? Заранее благодарен!
    • kkk
      Короче, как сделать автоматом не нашел. Раскрасил нужные грани нужными цветами. Затем на вкладке с цветом модели можно выбирать нужный цвет, тогда в модели выбираются грани, покрашенные этим цветом. Можно еще сохранить выбор этих граней, но смысла не вижу, т.к. все легко выбирается по цвету. Затем либо в инструменте Измерить смотрим площадь и как-то ее используем, либо можно макросом (что выкладывал Kir95 ) внести площадь в свойства (на вкладку Конфигурации). Можно еще внести выбранные грани в датчики, но как использовать их в свойствах не нашел.    Макрос прикрепляю.     Площадь выбранных граней в свойства.swp
    • IgnatvKudrin
      Для нашего производства требуются постоянно инструментальные пружины для штампов. Сейчас заказы обрабатываются довольно долго - до 2-х месяцев. А у нас сроки на штампы 1-2 месяца с испытанием, доработкой и т.п. Хотелось бы найти поставщика, у которого уже есть склад с данными пружинами или кто может доставить за 1 месяц.   Пружины стандартные по ISO, но на всякий случай приложил каталог. Вот список пружин, которые нужны очень срочно:   LR 32 x 44 - 1 шт. LR 25 x 51 - 2 шт. LB 63 x 89 - 7 шт. LB 32 x 102 - 10 шт. LB 32 x 89 - 20 шт. LB 32 x 76 - 12 шт. LB 32 x 51 - 6 шт. LB 25 x 127 - 9 шт.   Готов выслушать все предложения. Возможно даже есть те, кто сможет изготовить подобные пружины с такими же параметрами. 20231101.pdf
    • bubblyk
      Знатоки форума, подскажите, как смоделировать простую (на первый взгляд) задачу термомеханики в упругой постановке.   Есть брусок правильный формы ака кирпич, в котором генерируется НЕРАВНОМЕРНОЕ удельное тепловыделение (HGEN). Задняя и передняя поверхности конвективно охлаждаются с известными (но различными) коэффициентами теплоотдачи и температурами жидкости/газа. Свойства кирпича (теплофизика + механика) принимаются зависящими от температуры. Постановка - стационарная Собственно вопрос : как грамотно смоделировать температурное поле в кирпиче с учетом температурного расширения?   Исходный код приложил.     Надеюсь на коллективный разум и опыт! EPTH2D.mac p.s.   Если есть опыт решения этой задачи в Ansys WB, тоже можно сюда приложить командные вставки.
    • OutXL
      Это было давно использовал NC-Link  и данную инструкцию. The Maho.docx
    • Mikhail_Podgornyj
      Добрый день, кто может поделиться SKF Bearing V1.6 (ANSYS App)? Заранее благодарен!
    • alexqwq10
      В данных корпусах ничего лишнего быть не должно. Максимум шпильки заземления, в количестве предусмотренном для конкретного корпуса. Рассматривал очень много подобных корпусов разных производителей и данная проблема актуальна для подавляющего большинства.
    • MFS
      Коллеги, приветствую, нужно штамповать на горячую из алюминиевого сплава (АК6 или около того) заготовки размером 280*180*12. Подскажите, пожалуйста, параметры пресса для такой заготовки - размеры, усилия. А есл дадите пример такой марки и модели, более менее подходящей для этой работы (нашего или импортного), то будет и еще лучше. Заранее спасибо!
    • Elbaro
      Добрый день. Уже несколько дней пытаюсь найти на просторах инета макрос, позволяющий менять материал выделенных деталей в сборке. У меня есть макрос это делающий, но только в открытой детали, заставить его работать в сборке не получается. Может кто поделится ссылкой или часть кода? Спасибо.
×
×
  • Создать...