Solidworks API

[Sla_68 4]

С вашей помощью ошибка была побеждена!!! Ура! А вот вопрос, в каких  случаях нужно вставлять данный код и за что он отвечает?

[streamdown 1 565]

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

ошибка была побеждена

Как? Что случилось то? )))

[ILL 241]

16 часов назад, Sla_68 сказал:

Причина так и не нашлась

 

Это потому что, про 

 

В 20.02.2018 в 17:38, Sla_68 сказал:

"raspil"

 

это не к солиду..

[Sla_68 4]

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

"raspil"

почему? обоснуйте!

[ILL 241]

Не могу.. Про политику на форуме нельзя..

[Sla_68 4]

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

Не могу.. Про политику на форуме нельзя..

Тут нет никакой политики , тут логика и здравый смысл. Мне тут много раз помогли, только потому что я задавал знающим людям уместные вопросы ну и люди мне старались дать на них уместные ответы. В остальном я не понимаю зачем тут писать.

Изменено 21 февраля 2018 пользователем Sla_68

[ILL 241]

Это шутка юмора была..

[fox1001 787]

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

 

[Sla_68 4]

Доброго вечера. Есть ли способ выяснить координату средней точки объектов EDGE, SketchSegment? Я сейчас юзаю жутко странный метод связанный с выделением

swModel.SelectMidpoint()

[streamdown 1 565]

@Sla_68 а чем математика опять не подошла? https://www.mathsisfun.com/algebra/line-midpoint.html

На сплайне так вообще фиг найдёшь.

[Sla_68 4]

Да я просто подумал что в каком либо get ///curve ///params может скрываться точка

[Gaidn 11]

Здравствуйте! Мне нужно создать форму во время выполнения макроса с парой текстбоксов. Как это сделать из редактора макросов SolidWorks? Из VisualStudio несколько программ на vb.net делал, но вот из под Solid не пойму как создать форму программно...

Заранее большое спасибо.)

 

[ILL 241]

Так Солид  и использует  Visual Studio.. Если возможности не урезаны, то должно быть все тоже самое..

[Gaidn 11]

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

Так Солид  и использует  Visual Studio.. Если возможности не урезаны, то должно быть все тоже самое..

О, точно!! Большое спасибо! ) А я как то не сообразил, что можно также вручную создать форму. ))

 

[alek77 207]

Подскажите пожалуйста, как (какой командой) сделать автоподбор ширины столбца таблицы на чертеже по самой длинной надписи? для VBA

Или может быть, как отформатировать таблицу на чертеже, чтобы в каждой ячейке длинный текст был только одной строкой?

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

В справке нашел только:

Value = instance.SetColumnWidth(Index, Width, Options)

- задает ширину столбца.

Но длина текста ячеек всегда разная, а хотелось бы как в екселе одной командой, как Target.EntireColumn.AutoFit

[Sla_68 4]

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

[streamdown 1 565]

@alek77 автосайза нет. Но есть 3 пути:

1) https://msdn.microsoft.com/en-us/library/y4xdbe66(v=vs.110).aspx измерить текст и самому задать ширину.

2) Использовать сжатие текста в ячейке.

3) Ещё хитрый))) рекурсией изменяем фонт текста по пути замеряя изменилась ли высота строки. Как только высота стала заданной - текст влез и подгоняем ширину столбца.

 

@Sla_68 PackAndGo

Изменено 14 марта 2018 пользователем streamdown

[alek77 207]

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

 

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

Hide  

 

 

Изменено 14 марта 2018 пользователем alek77

[Sla_68 4]

10 минут назад, alek77 сказал:

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

Вы можете пройтись циклом по всем компонентам и сравнить их по признаку пути:

Sub selcomp()
    Dim swAssy As assemblyDoc
    Dim Comp As SldWorks.Component2
    
    Set swApp = Application.SldWorks
    Set swAssy = swApp.ActiveDoc
    
    ''''
    Set swSelMgr = swAssy.SelectionManager
        If swSelMgr.GetSelectedObjectCount = 0 Then
            MsgBox "ничего не выделено"
            Exit Sub
        End If
   
    If swSelMgr.GetSelectedObjectCount > 1 Then Exit Sub
    Set swEntity = swSelMgr.GetSelectedObject6(1, -1)
    Set selectiocomp = swEntity.GetComponent
    '''
  swAssy.ClearSelection2 True
Set selpart = selectiocomp.GetModelDoc2
selname = selpart.GetTitle

coms = swAssy.GetComponents(False)
    If Not IsEmpty(coms) Then
    For i = 0 To UBound(coms)
        Set Comp = coms(i)
        Set part = Comp.GetModelDoc2
            If Not part.GetTitle Like "*.SLDASM" And part.GetTitle = selname Then
                 Comp.SelectByMark 1, 2
                End If
      Next i
    End If
End Sub

 

[alek77 207]

16 минут назад, Sla_68 сказал:

Вы можете пройтись циклом по всем компонентам и сравнить их по признаку пути:

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

Изменено 14 марта 2018 пользователем alek77