Solidworks API

[streamdown 1 565]

Solidworks 2015. Новости для тех, кто в теме:

- Теперь third-party data можно читать только с помощью API SW.

- Ключ для Document Manager теперь нужно будет обновлять каждый год. Ключ будет распространяться только на те участки API, которые вы затребуете.

- Solidworks 2015 написан на VS 2012 SP4.

- Теперь не будут создаваться менюшки в top-level. Всё будет помещаться в подменюхи Tools.

[Shvg 67]

...

- Ключ для Document Manager теперь нужно будет обновлять каждый год. Ключ будет распространяться только на те участки API, которые вы затребуете.

...

Зря они это сделали...

[streamdown 1 565]

Как программно получить метку вида (например местный вид "А(2:1)" ) как объект и как текст, если на виде ещё куча дополнительных аннотаций?

Есть такая штука как GetUniqueName(), но она возвращает метку из дерева т.е "местный вид А (2:1)", мне же хочется ту метку, что прикреплена к виду т.е "А (2:1)"

[streamdown 1 565]

Сам нашёл.

String sNoteText = swNote.PropertyLinkedText;
       if (sNoteText.Contains("VLNAME"))
          {
              //.......
          }

[streamdown 1 565]

Давно, очень давно никто не выкладывал свежачка)))

Решил тут воплотить идею вставки номера листа к виду. Сделал пока к местному виду. Есть затык, подсобите люди знающие, как найти нижний правый угол метки вида. В данном случае метка выносного вида (та, которая на втором листе "S(1)").

GetTextPositionAtIndex всегда возвращает одно и то же число. Написал методу как по учебнику))

 private Double[] GetDownRightCorner(Note swNote)

        {

            Annotation swAnn = swNote.GetAnnotation();

            Double[] UpperLeftCorner = swAnn.GetPosition();

            Double[] UpperRightCorner = swNote.GetUpperRight();

            Double Height = swNote.GetHeight();

            return new double[]{UpperRightCorner[0]+0.002, UpperRightCorner[1],UpperRightCorner[2]};

        }

 

 

То же самое, одно и то же число, если метку вида передвинуть.

[streamdown 1 565]

И снова сам... всё сам 

Для того, чтобы найти метку вида, нужно просто получить первый INote для вида. Для того, чтобы словить GetUpperRight(), нужно обязок выделить эту заметку. Выделять нужно через IAnnotation. Фи, как заморочено сделано.

 

Текст метки вида так и не удалось получить, если кто подскажет, буду очень благодарен. Сам пошёл другим (менее качественным путём).

 

Пока для местных видов на разных листах - работает.

[Safonov 0]

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

Есть ли какая информация по SWE-PDM API

В идеале с рабочими примерами.

или хотя бы ссылка на начальную литературу

[SERoz 201]

Учебные курсы. Программирование

Новые возможности | API

SolidWorks Enterprise PDM - SolidWorks-Russia

[Yurikman 96]

Удалено!

Причина - нет ответа.

Изменено 23 сентября 2014 пользователем Yurikman

[KadV 0]

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

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

Изменено 11 сентября 2014 пользователем KadV

[streamdown 1 565]

Давно заинтересовавший меня вопрос, наконец то мной решён

Как прочитать свойства материала со вкладки "Настройка".

[solid_world 5]

Добрый день. Пишу небольшую програмку на VBA.

Помогите решить следующую проблему. Есть многотельная деталь (где-то 10 тел), требуется выделить конкретную деталь (это не сложно) и переименовать в конкретное имя (вот это не получается).

Спасибо

[streamdown 1 565]

В детали выделяете деталь при наличии 10 тел?

Вам имя тела надо что-ли переименовать?

[solid_world 5]

В детали выделяете деталь при наличии 10 тел? Вам имя тела надо что-ли переименовать?

 

Прошу прощения что не отвечал, т.к. следил не за той темой.

 

Да многотельная деталь из 6-10 тел всегда по разному.

Выделяю тело при помощи boolstatus = Part.Extension.SelectByID2("", "SOLIDBODY", 0, 0, 0, False, 0, Nothing, 0) используя только координаты поверхности тела (координаты всегда известны), не используя название тела, которое всегда разное.

Так вот, выделил тело и его нужно переименовать в строго определенное названия. Для конкретного тела конкретное имя.

Изменено 24 октября 2014 пользователем solid_world

[maikl_lug 0]

Доброй ночи Господа.

Ломаю голову уже не один день.

С помощью Макроса в СБОРКЕ надо присвоить материалл ТВЕРДОМУ ТЕЛУ

От справки Solida глаза на выкоте

Прикрепляю файлы до чего дошел   

 Просьба обьяснить по подробнее

Заранее благодарен

VBA.rar

[maikl_lug 0]

Доброго времени суток.

Большое спасибо за ответы 

Выкладываю макрос. Заменяет или Назначает Материал с Базы Солида по выбору Твердого тела и имени его. Окна выбора не добавлял .Каждый на свой вкус их добавит.

 

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swAssem As SldWorks.AssemblyDoc

Dim swPart As SldWorks.PartDoc

Dim swBody As SldWorks.Body2

Dim boolstat As Boolean

Dim BodyMaterialError As Long

Dim CompAssem As Variant

Dim ArrCompAssem As Variant

Dim Bodies As Variant

Dim BazaMat As String

Dim NameMat As String

Dim i As Integer

Dim Telo As String

Sub main()

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

BazaMat = "solidworks materials.sldmat"

NameMat = "Бальса"
Telo = "Бобышка -Вытянуть2"
'====================================================================

If swModel.GetType = swDocASSEMBLY Then

Set swAssem = swModel

ArrCompAssem = swAssem.GetComponents(False)

For Each CompAssem In ArrCompAssem

Set swModel = CompAssem.GetModelDoc2()

If swModel.GetType = swDocPART Then

Set swPart = swModel

Bodies = swPart.GetBodies2(swAllBodies, False)

For i = 0 To UBound(Bodies)

Set swBody = Bodies(i)

If swBody.Name = Telo Then

boolstat = swBody.Select2(False, Nothing)

BodyMaterialError = swBody.SetMaterialProperty("По умолчанию", BazaMat, NameMat)

End If

Next i

End If

Next

End If

swBody.ClearSelection2 True

'====================================================================

If swModel.GetType = swDocPART Then

Set swPart = swModel

Bodies = swPart.GetBodies2(swAllBodies, False)

For itr = 0 To UBound(Bodies)

Set swBody = Bodies(itr)

If swBody.Name = Telo Then

boolstat = swBody.Select2(False, Nothing)

BodyMaterialError = swBody.SetMaterialProperty("По умолчанию", BazaMat, NameMat)

End If

Next itr

End If

swBody.ClearSelection2 True

'====================================================================

MsgBox " Макрос выполнен "

End Sub

Доброго времени суток.

Большое спасибо за ответы 

Выкладываю макрос. Заменяет или Назначает Материал с Базы Солида по выбору Твердого тела и имени его. Окна выбора не добавлял .Каждый на свой вкус их добавит.

 

swp -  

Замена материала по имени твердого тела .rar

[maikl_lug 0]

Привет Всем! Может кто ни будь выложить код с  PropertyManagerPageSelectionbox рабочий   

Пример с Helpa не предлагайте   

[streamdown 1 565]

Что вас там конкретно смутило?

[maikl_lug 0]

Что вас там конкретно смутило?

Добрый вечер если это вопрос ко мне, отвечаю.

В примере дается только отрисовка компонентов.

Хотелось узнать как програмно добавить в SelectedItems обьекты?

Как удалить класс адекватно?

При добавлении своего кода виснет комп))))

В примере "Create PropertyManager Page" добавил только в OnSubmitSelection

Заранее Благодарен за Помощь

менеджер свойств материал.rar

[streamdown 1 565]

как програмно

 

Точно программно? Может проще ручками выбрать детали?