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

Помощь новичку Solidworks


yuri-pet

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

1 час назад, anser89 сказал:

Из-за чего такая фигня получается?

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

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


3 часа назад, РоманВ сказал:

Что нужно добавить в макрос чтобы он отбрасывал текст начиная с точки?

я бы так сделал.

 

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
Dim swModelDocExt As ModelDocExtension
Dim swCustProp As CustomPropertyManager
Dim bool As Boolean
Dim errors             As Long
Dim warnings           As Long
Dim Str, string0, string1, string2 As String
Dim Numb, Number0, Number1, Number2 As Integer
Dim Seporator As String

Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swModelDocExt = swModel.Extension
    Set swCustProp = swModelDocExt.CustomPropertyManager("")

    Seporator = "-"
    
    string0 = swModel.GetTitle
    
    Number0 = Len(string0)
    Numb = Len(string0) - 5
    Number1 = InStr(string0, Seporator)
    Number2 = Len(string0) - InStrRev(string0, Seporator)
    
    Str = VBA.Mid$(string0, Numb, 3)
    string1 = VBA.Left(string0, (Number1 - 1))
    
    If Str = "sld" Then

        string2 = VBA.Mid$(string0, (Number1 + 1), Number2)

    Else

        string2 = VBA.Right$(string0, (Number1 - 2))

    End If
    
    
    bool = swCustProp.Add("Обозначение", swCustomInfoText, string1)
    bool = swCustProp.Add("Наименование", swCustomInfoText, string2)
    bool = swModel.Save3(13, errors, warnings)

End Sub

Можно еще форму нарисовать для задания разделителя..

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

я бы так сделал.

А это почему-то не сработало

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

 

Что именно??

Макрос. После его запуска в свойствах модели в графах Обозначение и Наименование ничего не появилось

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

И никаких ошибок не выдает??

нет. Первый макрос от Kir95 сработал отлично, только в наименование добавил .sldprt, а этот вообще ничего

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

Получилось, только в графе "Наименование" солид вбил вместе с точкой и расширением файла. Получилось Вставка.SLDPRT. Что нужно добавить в макрос чтобы он отбрасывал текст начиная с точки?

Попробуйте такой вариант:

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
Dim swModelDocExt As ModelDocExtension
Dim swCustProp As CustomPropertyManager
Dim bool As Boolean
Dim errors             As Long
Dim warnings           As Long
Dim path As String, filename As String

Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swModelDocExt = swModel.Extension
    Set swCustProp = swModelDocExt.CustomPropertyManager(vbNullString)
    
    path = swModel.GetPathName
    filename = Mid$(path, InStrRev(path, "\") + 1) ' With extension
    filename = Left$(filename, InStrRev(filename, ".") - 1) ' Remove extension

    bool = swCustProp.Add3("Наименование", swCustomInfoText, Right$(filename, Len(filename) - InStrRev(filename, "-")), 2)
    bool = swCustProp.Add3("Обозначение", swCustomInfoText, Left$(filename, InStr(filename, "-") - 1), 2)
    bool = swModel.Save3(1, errors, warnings)
    
End Sub

 

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

а этот вообще ничего

 

Извиняюсь, поторопился.. У меня СВ15, поэтому ругался на Add3 в строках, которые начинаются с

 

bool = swCustProp.Add3

 

Я исправил на 

 

bool = swCustProp.Add

 

Так не ругается, но и не работает.. Должно начинаться с 

 

bool = swCustProp.Add2

 

У меня работает.. 

 

И строку

 

Str = VBA.Mid$(string0, Numb, 3)

 

заменить на

 

Str = VBA.StrConv(VBA.Mid$(string0, Numb, 3), vbLowerCase)

 

Это чтобы от регистра букв не зависеть.

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

Моё почтенье. 

Такое дело. Создал из тулбокса шестерню. Деталь была ReadOnly.  Сохранил как другую деталь. 

Отредактировал. 

Вставил в сборку. 

Сохраняю сборку. 

Открываю. Опа... а в сборке опять первоначальная шестерня, которая из тулбокса. 

Файл с отредактированной деталью на месте, все изменения в нём на месте. 

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

Что я делаю не так? 

 

Спасибо. 

_crankGear.SLDPRT

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

Создал из тулбокса шестерню. Деталь была ReadOnly.  Сохранил как другую деталь. 

А отвязать от ToolBox при помощи SldSetDocProp не пробовал?

 

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

Попробуйте такой вариант:


Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
Dim swModelDocExt As ModelDocExtension
Dim swCustProp As CustomPropertyManager
Dim bool As Boolean
Dim errors             As Long
Dim warnings           As Long
Dim path As String, filename As String

Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swModelDocExt = swModel.Extension
    Set swCustProp = swModelDocExt.CustomPropertyManager(vbNullString)
    
    path = swModel.GetPathName
    filename = Mid$(path, InStrRev(path, "\") + 1) ' With extension
    filename = Left$(filename, InStrRev(filename, ".") - 1) ' Remove extension

    bool = swCustProp.Add3("Наименование", swCustomInfoText, Right$(filename, Len(filename) - InStrRev(filename, "-")), 2)
    bool = swCustProp.Add3("Обозначение", swCustomInfoText, Left$(filename, InStr(filename, "-") - 1), 2)
    bool = swModel.Save3(1, errors, warnings)
    
End Sub

 

Все сработало как надо! Огромное спасибо!

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

Открываю. Опа... а в сборке опять первоначальная шестерня, которая из тулбокса. 

Как написали выше: X:\Program Files\SolidWorks Corp\SolidWorks\Toolbox\data utilities\sldsetdocprop.exe

Ссылка на сообщение
Поделиться на других сайтах
В 13.02.2019 в 18:12, ALASK сказал:

малехо не так -5c64339f8f9e3_2.jpg.5072ea2d22f48e66c9145270fd7e7e92.jpg подрезать изнутри заплатку еще надо

А можно чуть по подробнее, что то у меня не выходит.5c66d551370b8_.thumb.jpg.a6a5ea3691f54803bf858fe968b77b79.jpg

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

Бобышку вытянуть с эскиза на сфере не получилось. Получилось сделать заплату и придать толщину. Вообщем спасибо.

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

Бобышку вытянуть с эскиза на сфере не получилось. Получилось сделать заплату и придать толщину. Вообщем спасибо.

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

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

TRAINALEX! Я был не прав, ввел тебя в заблуждение

В 13.02.2019 в 16:15, trainalex сказал:

вытянуть, повернуть потом вычесть

золотые слова! дешево и сердито...

 

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

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

Вопрос.jpg

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

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

 

Знакомая проблема. Была актуальна несколько лет назад. Причина - системное обновление KB3072630. Как исправить посмотрите по ссылке

https://www.leninsw.info/2016/11/windows-kb3072630-solidworks-failed-to.html

Ссылка на сообщение
Поделиться на других сайтах
Показать содержимое  
Гуру SW, ищу помощи и знаний в области банальных (это не ракетостроение, всего лишь стандартные детали) построений, а именно - необходимо создать отвод (колено) с заданными параметрами по известным размерам: Z=47.5 мм, L=51 мм, d=90 мм, E=108 мм. Угол колена соответственно 90 градусов (см.приложение)....
На выходе должно быть что-то похожее на уже существующий отвод (см.приложение)
PS при самостоятельных попытках сделать сие чудо появляются не объяснимые деформации детали с изменением радиусов скруглений.... Не могу понять, в чём проблема...
Изменено пользователем Paladin_Of_War
Ссылка на сообщение
Поделиться на других сайтах

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

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

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

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

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

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

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

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

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

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




  • Сообщения

    • gudstartup
      как перевести шпиндель снова первоначальный режим управления скоростью когда ему пофиг число импульсов на оборот? резьбу пока резать не будут а в подпрограмму смены можно что нить добавить или в реализацию m19  чтобы чпу из режима контроля позиционного кодера вышло?
    • 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
      В данных корпусах ничего лишнего быть не должно. Максимум шпильки заземления, в количестве предусмотренном для конкретного корпуса. Рассматривал очень много подобных корпусов разных производителей и данная проблема актуальна для подавляющего большинства.
×
×
  • Создать...