Сделай свою работу в Solidworks эффективнее

[streamdown 1 567]

8 минут назад, YaDen сказал:

но вирустотал ругается

Тогда не используйте  логично же

[YaDen 0]

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

Тогда не используйте  логично же

всё понятно. спасибо.

[Kir95 951]

@kkk

В ‎04‎.‎09‎.‎2017 в 11:32, kkk сказал:

макрос для создания чертежа детали прямо из сборки

В окне модели solidworks при выборе компонента в дереве конструирования и запуске макроса, создаёт чертёж для выбранного компонента:

http://my-files.ru/123v0b

В окне модели solidworks при выборе компонента в дереве конструирования и запуске макроса, открывает окно свойств выбранного компонента:

http://my-files.ru/8npqvg

Проверьте, как работают. Лично я впечатлён, спасибо за поднятый вопрос.

[kkk 295]

@Kir95

 

Хорошие макросы, спасибо. Единственно, макрос для создания чертежа какую-то ошибку в конце выдает, надо будет покопаться. А вообще, в идеале, мне нужно, чтобы при выделении компонента в дереве или окне сборки, появлялось окно выбора формата чертежа и далее по стандартной процедуре создания чертежа из детали.

 

Макрос со свойствами у меня использоваться вряд ли будет, т.к. пользуюсь вкладкой Свойства пользователя. Так же можно заполнять свойства деталей прямо из сборки, опять же там у меня забиты все нужные свойства и писать почти ничего не нужно, все выбирается из списков и присваивается одной кнопкой. Опять же - стандартный функционал Солида, что немаловажно.

[Kir95 951]

Для чертежа макрос выбирает шаблон по умолчанию, который указан в настройках солида. У меня ошибок нет. Кинь скриншот с ошибкой, в какой строке подсвечивает, может подскажут, что не так.

Свойства я тоже через "Свойства пользователя" назначаю, но не все, а макросом удобно просматривать ещё и свойства документа и конфигураций.

 

[streamdown 1 567]

Товарищи, заделитесь макросом по переименованию видов. 

[Kir95 951]

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

заделитесь макросом по переименованию видов

типа такого?

[streamdown 1 567]

@Kir95 нет. Тут уже выкладывали - найти не могу. Shvg вроде делал.

[Kelny 1 333]

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

Тут уже выкладывали - найти не могу. Shvg вроде делал.

А как же поиск?: по ключевому слову видов при поиске в данной теме много чего находит.

 

Обсуждения и варианты по теме:

http://cccp3d.ru/topic/6071-сделай-свою-работу-в-solidworks-эффективнее/?page=94#comment-703723

http://cccp3d.ru/topic/6071-сделай-свою-работу-в-solidworks-эффективнее/?page=79#comment-614089

http://cccp3d.ru/topic/6071-сделай-свою-работу-в-solidworks-эффективнее/?page=79#comment-614080

http://cccp3d.ru/topic/6071-сделай-свою-работу-в-solidworks-эффективнее/?page=69#comment-510077

 

 

 

В 19.11.2012 в 18:30, Shvg сказал:

Мои извинения. Тестил на SW2011SP5 и WinXPx64. Там никаких ошибок не выскакивало. На Win7, да, есть ошибка. Ниже выложен исправленный вариант.

Исправленный вариант макроса ReplaceLabelView и его аналог exe-шник LabelView с исходниками.

LabelView.rar

ReplaceLabelView.rar

 

http://cccp3d.ru/topic/6071-сделай-свою-работу-в-solidworks-эффективнее/?do=findComment&comment=510181

 

 

Изменено 25 сентября 2017 пользователем Kelny

[Kir95 951]

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

Shvg вроде делал

Значит, этот, скорее всего:

http://http://my-files.ru/8yndpr

удаляется ссылка, что-то нарыли в архиве. LabelView, тот же, на который @Kelny ссылку выложил.

Изменено 25 сентября 2017 пользователем Kir95

[Wiruss 6]

В 03.09.2017 в 15:53, streamdown сказал:

Сортировка сопряжений. А точнее, правильное переименование.

http://www.streamdivision.com/сортировка-сопряжений/

Проверка на вирусы, показала Троян :( и прочую гниль...

[streamdown 1 567]

4 часа назад, Wiruss сказал:

Проверка на вирусы

Отвечу как и всем предыдущим: не качать и не запускать. Всё ж логично.

5 часов назад, Kir95 сказал:

LabelView

Это от Kelny? У Shvg название dll-ки вроде подлиньше было.

[Kelny 1 333]

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

Это от Kelny? У Shvg название dll-ки вроде подлиньше было.

По ссылкам выше варианты от Shvg  и ещё одного товарища.

[streamdown 1 567]

@Kelny да, пропустил глазами вчера.

[Solan 3]

В 30.08.2017 в 12:20, Michael_Mira сказал:

...

А по поводу конфигурации в имени - так иначе не будет, ибо может быть несколько конфигураций разверток.

 

; А можно сделать перед номером конфигурации не точку, а тире? Сам не смог...

[Kir95 951]

Макрос для установки ширины дерева конструирования - значение в скобках (420) можно поменять на более подходящее:

Option Explicit
Sub main()
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim nRetVal As Long
   
    Set swApp = CreateObject("SldWorks.Application")
    Set swModel = swApp.ActiveDoc
 
    nRetVal = swModel.SetFeatureManagerWidth(420)
   
End Sub

 

[Kir95 951]

Макрос для удаления подвешенных размеров в модели:

Option Explicit
Dim swApp           As SldWorks.SldWorks
Dim swModel         As ModelDoc2
Dim boolstatus      As Boolean
Dim swAnn           As Annotation
    
Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc

    swModel.ClearSelection2 (True)
        Set swAnn = swModel.GetFirstAnnotation2
        Do While Not swAnn Is Nothing
            If swAnn.IsDangling Then
                boolstatus = swAnn.Select3(True, Nothing)
            End If
            Set swAnn = swAnn.GetNext3
        Loop
        boolstatus = swModel.DeleteSelection(True)

    swModel.ClearSelection2 (True)
    
End Sub

 

[Kir95 951]

Макрос для удаления подвешенных размеров в чертеже:

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

Option Explicit
    
Sub main()
Dim swApp           As SldWorks.SldWorks
Dim swModel         As ModelDoc2
Dim swDraw          As DrawingDoc
Dim swSheet         As Sheet
Dim swView          As View
Dim boolstatus      As Boolean
Dim swAnn           As Annotation
Dim vSheetNames     As Variant
Dim i               As Integer

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    
    If swModel.GetType <> SwConst.swDocumentTypes_e.swDocDRAWING Then Exit Sub
    Set swDraw = swModel
    
    swModel.ClearSelection2 (True)
    vSheetNames = swDraw.GetSheetNames
    For i = 0 To UBound(vSheetNames)
        swDraw.ActivateSheet vSheetNames(i)
        Set swSheet = swDraw.Sheet(vSheetNames(i))
        Set swView = swDraw.GetFirstView
        Do While Not swView Is Nothing
            Set swAnn = swView.GetFirstAnnotation3
            Do While Not swAnn Is Nothing
                If swAnn.IsDangling Then
                    boolstatus = swAnn.Select3(True, Nothing)
                End If
                Set swAnn = swAnn.GetNext3
            Loop
            Set swView = swView.GetNextView
        Loop
        boolstatus = swModel.DeleteSelection(True)
        swModel.ClearSelection2 (True)
    Next i
    swModel.ClearSelection2 (True)
    
End Sub

 

 

[pyramide 1]

В 22.05.2017 в 17:18, shalenna сказал:

Подскажите пожалуйста, что не так? В настройках поставил галку - полоса заморозки, а в дереве построения полосы - желтой  под названием детали нет???

В контекстном меню появился пункт "заморозка" , но при выборе тоже никакой реакции. Solid 2017 sp2. Win 7.

Та же самая фигня. Ставишь убираешь галочку - всё одно - полосы нет. Глюк появился в 2017 солиде на моём компе. Но на других компах работает.

[serge ch 2]

Здравствуйте!

Вставляем в чертеж развертку (flat pattern) листовой детали.

При простановке параметров гибов (bend notes) углы автоматически указываются с точностью до второго знака после запятой.

Как изменить точность углов в behd notes? В частности - нужно округлить до целых значений.

В файле bendnoteformat.txt этого нет, манипулирование с точностью в шаблоне чертежа тоже не помогли....