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

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


алексей556

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

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

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


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

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

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

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

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

Screenshot_1.png

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

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

Screenshot_1.png

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

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

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

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

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

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

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

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

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

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

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

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

Screenshot_2.png

 

Macro_dwg.zip

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

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

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

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

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

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

 

Версия.PNG

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

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

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

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

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

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

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

 

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

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

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

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

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

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

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

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

 

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

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

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

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

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

 

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

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

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

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

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

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

 

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

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

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

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

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

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

Screenshot_6.png.5c595e11230275ea94852bccaf5e2761.png

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

 

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

 

 

Изменено пользователем Kir95
Ссылка на сообщение
Поделиться на других сайтах
В 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 (см. скрин)Screenshot_7.png.60455de17ab2790a92b59d95061ed4dd.png

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

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

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

 

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

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

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

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

версия -1.JPG

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

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

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

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

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

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

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

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

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

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

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




  • Сообщения

    • gudstartup
    • 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. Подскажите, пожалуйста, параметры пресса для такой заготовки - размеры, усилия. А есл дадите пример такой марки и модели, более менее подходящей для этой работы (нашего или импортного), то будет и еще лучше. Заранее спасибо!
×
×
  • Создать...