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

[Kelny 1 234]

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

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

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

[ILL 241]

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

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

Изменено 14 февраля 2019 пользователем ILL
забыл переменные указать..

[РоманВ 165]

30 минут назад, ILL сказал:

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

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

[ILL 241]

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

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

 

Что именно??

[РоманВ 165]

52 минуты назад, ILL сказал:

 

Что именно??

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

[ILL 241]

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

[РоманВ 165]

4 минуты назад, ILL сказал:

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

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

[Kir95 950]

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

 

[ILL 241]

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)

 

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

[modsley 1]

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

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

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

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

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

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

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

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

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

 

Спасибо. 

_crankGear.SLDPRT

Изменено 14 февраля 2019 пользователем modsley

[Plumber 737]

12 минуты назад, modsley сказал:

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

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

 

[РоманВ 165]

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

 

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

[Kelny 1 234]

15 часов назад, modsley сказал:

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

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

[trainalex 1]

В 13.02.2019 в 18:12, ALASK сказал:

малехо не так - подрезать изнутри заплатку еще надо

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

[trainalex 1]

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

[trainalex 1]

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

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

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

[ALASK 53]

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

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

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

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

 

[alexdorf 0]

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

[Grig75 108]

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

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

 

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

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

[Paladin_Of_War 3]

Показать содержимое  

Отвод.sldprtОтвод.sldprt

Hide  

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

Изменено 17 февраля 2019 пользователем Paladin_Of_War