Solidworks API

[Солнцеворот 207]

Имеется сборочный чертеж с проставленными позициями (позиции как текст).

Необходимо изменить текст позиции в зависимости от того, к какой детали прикреплена позиция.

Вопрос: как узнать к какой детали (сборке) прикреплена позиция?

Желательно VBA.

[streamdown 1 565]

Желательно VBA

 

ТУТ ЕСТЬ

Смотрите перебор attachedEntityArray

[Солнцеворот 207]

Из VBA выжал все, что мог. Хочу перейти на Add-in.

@@streamdown,  подскажите, пожалуйста, что я делаю не так?

Пытаюсь запустить пример из SW API для С#. 

 

При попытке собрать решение, на строчке:

IModelView mView;
            mView = (IModelView)document.GetFirstModelView();

Возникает ошибка:

1>..........EventHandling.cs(38,33,38,61): error CS0656: Отсутствует обязательный для компилятора член Microsoft.CSharp.RuntimeBinder.Binder.Convert"

И еще с десяток аналогичных ошибок по всем файлам *.cs . Все на операции приведения типов.

Visual Studio 2015 Express. В настройках проекта стоит NetFramework4. SW2015 SP1.1 . x64

Прикрепляю проект к сообщению.

---

добавлено: нормально собранный проект можно найти в следующем сообщении.

 

 

[streamdown 1 565]

Microsoft.CSharp

 

 

Ответ в вопросе))

Подключите NET4 либу

[Солнцеворот 207]

@@streamdown, спасибо. Вот я поражаюсь дубовости C# - на каждый чих подключите библиотеку. Кто бы мог подумать, что для выполнения операции приведения типов нужно отдельно подключать библиотеку. Кажется, я начинаю понимать почему SUN с Microsoft разругались.

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

CSharpAddinSample.rar

[paxan 0]

Всем доброго времени суток!

Есть компонент и мне его нужно повернуть в пространстве. Есть вектор нормали компонента, но вот кода Solidworks в API для поворота именно по вектору нормали (а не по углам), нет.

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

 

[denchikk 0]

Доброго времени суток форумчане) не решу задачу с получением name например точки на чертеже

boolstatus = Part.Extension.SelectByID2(name, "SKETCHPOINT", 0.098299016, 0.20044156, 0, False, 0, Nothing, 0)
где например mame = "Point3" 

пробывал так

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim obj As Object
Dim reference As Variant
Dim docext As SldWorks.ModelDocExtension
Dim swfeat As SldWorks.Feature

Sub main()

Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc

Dim skPoint As Object
Set skPoint = Part.SketchManager.CreatePoint(0.009842, 0.008392, 0#)

Set obj = Part.SketchManager.GetSelectedObject6(1, -1)
Set swfeat = obj.GetSketch

Open "c:\temp\1.txt" For Output As #1
Print #1, sefeat.Name
Close #1
End Sub

или так получить уникальный идентификатор

Sub main()

Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc
Set docext = Part.Extension

Dim skPoint As Object
Set skPoint = Part.SketchManager.CreatePoint(0.009842, 0.008392, 0#)

Set obj = Part.SelectionManager.GetSelectedObject5(1)
reference = docext.GetPersistReference3(obj)

Open "c:\temp\1.txt" For Output As #1
Print #1, reference
Close #1
End Sub

ошибка

Изменено 6 сентября 2015 пользователем denchikk

[Солнцеворот 207]

Получаете объект SketchPoint, как показано здесь:

http://help.solidworks.com/2015/english/api/sldworksapi/Get_Sketch_Points_Selection_Mark_Example_VB.htm

 

Получаете из объекта SketchPoint нужную вам информацию. Вот все методы и свойства этого объекта:

http://help.solidworks.com/2015/english/api/sldworksapi/SolidWorks.Interop.sldworks~SolidWorks.Interop.sldworks.ISketchPoint_members.html?id=1c931320e3e84d5ea969fc649c8ab4aa#Pg0

[denchikk 0]

Спасибо    Солнцеворот   за ответ! реализовал вот только не пойму где ошибся

Dim swApp                       As SldWorks.SldWorks
Dim swModel                     As SldWorks.ModelDoc2
Dim swSelMgr                    As SldWorks.SelectionMgr
Dim swFeat                      As SldWorks.Feature
Dim swSketch                    As Sketch
Dim sketchPoints                As Variant
Dim swSketchPoint               As SldWorks.SketchPoint
Dim swSelData                   As SldWorks.SelectData
Dim status                      As Boolean
Dim Part                        As Object

Sub main()

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Dim skPoint As Object
Set skPoint = Part.SketchManager.CreatePoint(0.034982, 0.035489, 0#)


Set swSelMgr = Part.SelectionManager
Set swFeat = swSelMgr.GetSelectedObject6(1, -1)
Set swSketch = swFeat.GetSpecificFeature2
sketchPoints = swSketch.GetSketchPoints2
Set swSketchPoint = sketchPoints(0)  

'запись в файл
Open "E:\1.txt" For Output As #1
	Print #1, "Point" & swSketchPoint.GetID(1)
	Close #1

'снимаем активность точки
Part.SetPickMode
Part.ClearSelection2 True
End Sub

Изменено 6 сентября 2015 пользователем denchikk

[denchikk 0]

ругается на эту строчку

Set swFeat = swSelMgr.GetSelectedObject6(1, -1)

Изменено 6 сентября 2015 пользователем denchikk

[denchikk 0]

заработало так

Dim swApp As Object

Dim Part As Object
Dim obj As Object
Dim reference As Variant
Dim docext As SldWorks.ModelDocExtension

Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc
Set docext = Part.Extension

Dim skPoint As Object
Set skPoint = Part.SketchManager.CreatePoint(0.03401, 0.038612, 0#)
Set obj = Part.SelectionManager.GetSelectedObject5(1)
'получение id объекта
reference = docext.GetPersistReference3(obj)


Open "E:\1.txt" For Output As #1
Print #1, reference
Close #1

End Sub

он выдает кракозябры открыв в notepad++ менял кодировки штирлиц на сайте Артема Лебедева  кодировка не определилась

 

сам файл полученный

 

1.txt

 

1.txt

Изменено 6 сентября 2015 пользователем denchikk

[Солнцеворот 207]

Завтра посмотрю, постараюсь вам помочь.

[denchikk 0]

) нашел это - https://forum.solidworks.com/thread/67749все сделал как там

    Set obj = swModel.SelectionManager.GetSelectedObject5(1)
    Dim vIds As Variant
    Dim i As Integer
    vIds = docext.GetPersistReference3(obj)
    For i = 0 To UBound(vIds)
        Debug.Print vIds(i) & " ";
    Next

получил значение= 0 там не должен быть 0

Изменено 7 сентября 2015 пользователем denchikk

[Солнцеворот 207]

@@denchikk, Запись в файл координат x,y,z выбранной точки

Dim swApp                       As SldWorks.SldWorks
Dim swModel                     As SldWorks.ModelDoc2
Dim swSelMgr                    As SldWorks.SelectionMgr
Dim swSketch                    As Sketch
Dim sketchPoints                As Variant
Dim swSketchPoint               As SldWorks.SketchPoint

Sub main()

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Dim skPoint As Object
Set skPoint = swModel.SketchManager.CreatePoint(0.034982, 0.035489, 0#)

Set swSelMgr = swModel.SelectionManager
Set swSketchPoint = swSelMgr.GetSelectedObject6(1, -1)

Debug.Print swSketchPoint.IGetID
Debug.Print swSketchPoint.GetCoords

'запись в файл
Open "C:\1.txt" For Output As #1
    Print #1, "Point " & swSketchPoint.IGetID & ": " & swSketchPoint.X & "; " & swSketchPoint.Y & "; " & swSketchPoint.Z
    Close #1

'снимаем активность точки
swModel.SetPickMode
swModel.ClearSelection2 True
End Sub

В текстовый файл нужно записывать String. А вы записали объект reference. Конечно там будут непонятные символы.

Функция GetPersistReference3  возвращает не String, а объект.

[denchikk 0]

@@Солнцеворот, спасибо! :)

 

swSketchPoint.IGetID - получить номер относительно количества элементов

 

 swSketchPoint.GetID(1) - получить номер относительно чертежа -отсюда теперь можно привязываться к нему

Изменено 7 сентября 2015 пользователем denchikk

[Солнцеворот 207]

@@denchikk, нет. ID - это уникальный идентификатор объекта в конкретной области видимости (в данном случае в эскизе). Поставите в эскизе 10 точек подряд, и их ID будут от 0 до 9 просто потому что алгоритм выдачи идентификаторов прост, как двери - каждому новому объекту выдаем следующее по счету число, начиная с нуля.

[denchikk 0]

@@Солнцеворот, почему при записи макроса первая созданная точка получает имя "Point3"? и например после удаления вспомогательной точки то нумерация продолжается не затирая индексы точек созданных после вспомогательной точки? в любом случае swSketchPoint.GetID(1) выдает индекс равный индексу при записи макроса

[Солнцеворот 207]

@@denchikk, откуда я знаю почему?. Вы сейчас говорите о точке в эскизе или о точке справочной геометрии?

Я не понимаю.

[denchikk 0]

о точке в эскизе которая далее удаляется а нумерация продолжается без вычета количества удаленных элементов (тех же точек)

[Солнцеворот 207]

@@denchikk, а нумерация продолжается, потому что ID используется для того, чтобы однозначно идентифицировать объекты, а не для подсчета их количества.

Если хотите узнать количество точек, нужно вызвать функцию, которая возвращает массив точек, после чего узнать размер массива.